{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) /No description available in the introspection data./ -} #define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ && !defined(__HADDOCK_VERSION__)) module GI.WebKit2.Objects.Settings ( -- * Exported types Settings(..) , IsSettings , toSettings , noSettings , -- * Methods -- ** fontSizeToPixels #method:fontSizeToPixels# settingsFontSizeToPixels , -- ** fontSizeToPoints #method:fontSizeToPoints# settingsFontSizeToPoints , -- ** getAllowFileAccessFromFileUrls #method:getAllowFileAccessFromFileUrls# #if ENABLE_OVERLOADING SettingsGetAllowFileAccessFromFileUrlsMethodInfo, #endif settingsGetAllowFileAccessFromFileUrls , -- ** getAllowModalDialogs #method:getAllowModalDialogs# #if ENABLE_OVERLOADING SettingsGetAllowModalDialogsMethodInfo , #endif settingsGetAllowModalDialogs , -- ** getAllowUniversalAccessFromFileUrls #method:getAllowUniversalAccessFromFileUrls# #if ENABLE_OVERLOADING SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo, #endif settingsGetAllowUniversalAccessFromFileUrls, -- ** getAutoLoadImages #method:getAutoLoadImages# #if ENABLE_OVERLOADING SettingsGetAutoLoadImagesMethodInfo , #endif settingsGetAutoLoadImages , -- ** getCursiveFontFamily #method:getCursiveFontFamily# #if ENABLE_OVERLOADING SettingsGetCursiveFontFamilyMethodInfo , #endif settingsGetCursiveFontFamily , -- ** getDefaultCharset #method:getDefaultCharset# #if ENABLE_OVERLOADING SettingsGetDefaultCharsetMethodInfo , #endif settingsGetDefaultCharset , -- ** getDefaultFontFamily #method:getDefaultFontFamily# #if ENABLE_OVERLOADING SettingsGetDefaultFontFamilyMethodInfo , #endif settingsGetDefaultFontFamily , -- ** getDefaultFontSize #method:getDefaultFontSize# #if ENABLE_OVERLOADING SettingsGetDefaultFontSizeMethodInfo , #endif settingsGetDefaultFontSize , -- ** getDefaultMonospaceFontSize #method:getDefaultMonospaceFontSize# #if ENABLE_OVERLOADING SettingsGetDefaultMonospaceFontSizeMethodInfo, #endif settingsGetDefaultMonospaceFontSize , -- ** getDrawCompositingIndicators #method:getDrawCompositingIndicators# #if ENABLE_OVERLOADING SettingsGetDrawCompositingIndicatorsMethodInfo, #endif settingsGetDrawCompositingIndicators , -- ** getEnableAccelerated2dCanvas #method:getEnableAccelerated2dCanvas# #if ENABLE_OVERLOADING SettingsGetEnableAccelerated2dCanvasMethodInfo, #endif settingsGetEnableAccelerated2dCanvas , -- ** getEnableBackForwardNavigationGestures #method:getEnableBackForwardNavigationGestures# #if ENABLE_OVERLOADING SettingsGetEnableBackForwardNavigationGesturesMethodInfo, #endif settingsGetEnableBackForwardNavigationGestures, -- ** getEnableCaretBrowsing #method:getEnableCaretBrowsing# #if ENABLE_OVERLOADING SettingsGetEnableCaretBrowsingMethodInfo, #endif settingsGetEnableCaretBrowsing , -- ** getEnableDeveloperExtras #method:getEnableDeveloperExtras# #if ENABLE_OVERLOADING SettingsGetEnableDeveloperExtrasMethodInfo, #endif settingsGetEnableDeveloperExtras , -- ** getEnableDnsPrefetching #method:getEnableDnsPrefetching# #if ENABLE_OVERLOADING SettingsGetEnableDnsPrefetchingMethodInfo, #endif settingsGetEnableDnsPrefetching , -- ** getEnableEncryptedMedia #method:getEnableEncryptedMedia# #if ENABLE_OVERLOADING SettingsGetEnableEncryptedMediaMethodInfo, #endif settingsGetEnableEncryptedMedia , -- ** getEnableFrameFlattening #method:getEnableFrameFlattening# #if ENABLE_OVERLOADING SettingsGetEnableFrameFlatteningMethodInfo, #endif settingsGetEnableFrameFlattening , -- ** getEnableFullscreen #method:getEnableFullscreen# #if ENABLE_OVERLOADING SettingsGetEnableFullscreenMethodInfo , #endif settingsGetEnableFullscreen , -- ** getEnableHtml5Database #method:getEnableHtml5Database# #if ENABLE_OVERLOADING SettingsGetEnableHtml5DatabaseMethodInfo, #endif settingsGetEnableHtml5Database , -- ** getEnableHtml5LocalStorage #method:getEnableHtml5LocalStorage# #if ENABLE_OVERLOADING SettingsGetEnableHtml5LocalStorageMethodInfo, #endif settingsGetEnableHtml5LocalStorage , -- ** getEnableHyperlinkAuditing #method:getEnableHyperlinkAuditing# #if ENABLE_OVERLOADING SettingsGetEnableHyperlinkAuditingMethodInfo, #endif settingsGetEnableHyperlinkAuditing , -- ** getEnableJava #method:getEnableJava# #if ENABLE_OVERLOADING SettingsGetEnableJavaMethodInfo , #endif settingsGetEnableJava , -- ** getEnableJavascript #method:getEnableJavascript# #if ENABLE_OVERLOADING SettingsGetEnableJavascriptMethodInfo , #endif settingsGetEnableJavascript , -- ** getEnableJavascriptMarkup #method:getEnableJavascriptMarkup# #if ENABLE_OVERLOADING SettingsGetEnableJavascriptMarkupMethodInfo, #endif settingsGetEnableJavascriptMarkup , -- ** getEnableMediaCapabilities #method:getEnableMediaCapabilities# #if ENABLE_OVERLOADING SettingsGetEnableMediaCapabilitiesMethodInfo, #endif settingsGetEnableMediaCapabilities , -- ** getEnableMediaStream #method:getEnableMediaStream# #if ENABLE_OVERLOADING SettingsGetEnableMediaStreamMethodInfo , #endif settingsGetEnableMediaStream , -- ** getEnableMediasource #method:getEnableMediasource# #if ENABLE_OVERLOADING SettingsGetEnableMediasourceMethodInfo , #endif settingsGetEnableMediasource , -- ** getEnableMockCaptureDevices #method:getEnableMockCaptureDevices# #if ENABLE_OVERLOADING SettingsGetEnableMockCaptureDevicesMethodInfo, #endif settingsGetEnableMockCaptureDevices , -- ** getEnableOfflineWebApplicationCache #method:getEnableOfflineWebApplicationCache# #if ENABLE_OVERLOADING SettingsGetEnableOfflineWebApplicationCacheMethodInfo, #endif settingsGetEnableOfflineWebApplicationCache, -- ** getEnablePageCache #method:getEnablePageCache# #if ENABLE_OVERLOADING SettingsGetEnablePageCacheMethodInfo , #endif settingsGetEnablePageCache , -- ** getEnablePlugins #method:getEnablePlugins# #if ENABLE_OVERLOADING SettingsGetEnablePluginsMethodInfo , #endif settingsGetEnablePlugins , -- ** getEnablePrivateBrowsing #method:getEnablePrivateBrowsing# #if ENABLE_OVERLOADING SettingsGetEnablePrivateBrowsingMethodInfo, #endif settingsGetEnablePrivateBrowsing , -- ** getEnableResizableTextAreas #method:getEnableResizableTextAreas# #if ENABLE_OVERLOADING SettingsGetEnableResizableTextAreasMethodInfo, #endif settingsGetEnableResizableTextAreas , -- ** getEnableSiteSpecificQuirks #method:getEnableSiteSpecificQuirks# #if ENABLE_OVERLOADING SettingsGetEnableSiteSpecificQuirksMethodInfo, #endif settingsGetEnableSiteSpecificQuirks , -- ** getEnableSmoothScrolling #method:getEnableSmoothScrolling# #if ENABLE_OVERLOADING SettingsGetEnableSmoothScrollingMethodInfo, #endif settingsGetEnableSmoothScrolling , -- ** getEnableSpatialNavigation #method:getEnableSpatialNavigation# #if ENABLE_OVERLOADING SettingsGetEnableSpatialNavigationMethodInfo, #endif settingsGetEnableSpatialNavigation , -- ** getEnableTabsToLinks #method:getEnableTabsToLinks# #if ENABLE_OVERLOADING SettingsGetEnableTabsToLinksMethodInfo , #endif settingsGetEnableTabsToLinks , -- ** getEnableWebaudio #method:getEnableWebaudio# #if ENABLE_OVERLOADING SettingsGetEnableWebaudioMethodInfo , #endif settingsGetEnableWebaudio , -- ** getEnableWebgl #method:getEnableWebgl# #if ENABLE_OVERLOADING SettingsGetEnableWebglMethodInfo , #endif settingsGetEnableWebgl , -- ** getEnableWriteConsoleMessagesToStdout #method:getEnableWriteConsoleMessagesToStdout# #if ENABLE_OVERLOADING SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo, #endif settingsGetEnableWriteConsoleMessagesToStdout, -- ** getEnableXssAuditor #method:getEnableXssAuditor# #if ENABLE_OVERLOADING SettingsGetEnableXssAuditorMethodInfo , #endif settingsGetEnableXssAuditor , -- ** getFantasyFontFamily #method:getFantasyFontFamily# #if ENABLE_OVERLOADING SettingsGetFantasyFontFamilyMethodInfo , #endif settingsGetFantasyFontFamily , -- ** getHardwareAccelerationPolicy #method:getHardwareAccelerationPolicy# #if ENABLE_OVERLOADING SettingsGetHardwareAccelerationPolicyMethodInfo, #endif settingsGetHardwareAccelerationPolicy , -- ** getJavascriptCanAccessClipboard #method:getJavascriptCanAccessClipboard# #if ENABLE_OVERLOADING SettingsGetJavascriptCanAccessClipboardMethodInfo, #endif settingsGetJavascriptCanAccessClipboard , -- ** getJavascriptCanOpenWindowsAutomatically #method:getJavascriptCanOpenWindowsAutomatically# #if ENABLE_OVERLOADING SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo, #endif settingsGetJavascriptCanOpenWindowsAutomatically, -- ** getLoadIconsIgnoringImageLoadSetting #method:getLoadIconsIgnoringImageLoadSetting# #if ENABLE_OVERLOADING SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo, #endif settingsGetLoadIconsIgnoringImageLoadSetting, -- ** getMediaPlaybackAllowsInline #method:getMediaPlaybackAllowsInline# #if ENABLE_OVERLOADING SettingsGetMediaPlaybackAllowsInlineMethodInfo, #endif settingsGetMediaPlaybackAllowsInline , -- ** getMediaPlaybackRequiresUserGesture #method:getMediaPlaybackRequiresUserGesture# #if ENABLE_OVERLOADING SettingsGetMediaPlaybackRequiresUserGestureMethodInfo, #endif settingsGetMediaPlaybackRequiresUserGesture, -- ** getMinimumFontSize #method:getMinimumFontSize# #if ENABLE_OVERLOADING SettingsGetMinimumFontSizeMethodInfo , #endif settingsGetMinimumFontSize , -- ** getMonospaceFontFamily #method:getMonospaceFontFamily# #if ENABLE_OVERLOADING SettingsGetMonospaceFontFamilyMethodInfo, #endif settingsGetMonospaceFontFamily , -- ** getPictographFontFamily #method:getPictographFontFamily# #if ENABLE_OVERLOADING SettingsGetPictographFontFamilyMethodInfo, #endif settingsGetPictographFontFamily , -- ** getPrintBackgrounds #method:getPrintBackgrounds# #if ENABLE_OVERLOADING SettingsGetPrintBackgroundsMethodInfo , #endif settingsGetPrintBackgrounds , -- ** getSansSerifFontFamily #method:getSansSerifFontFamily# #if ENABLE_OVERLOADING SettingsGetSansSerifFontFamilyMethodInfo, #endif settingsGetSansSerifFontFamily , -- ** getSerifFontFamily #method:getSerifFontFamily# #if ENABLE_OVERLOADING SettingsGetSerifFontFamilyMethodInfo , #endif settingsGetSerifFontFamily , -- ** getUserAgent #method:getUserAgent# #if ENABLE_OVERLOADING SettingsGetUserAgentMethodInfo , #endif settingsGetUserAgent , -- ** getZoomTextOnly #method:getZoomTextOnly# #if ENABLE_OVERLOADING SettingsGetZoomTextOnlyMethodInfo , #endif settingsGetZoomTextOnly , -- ** new #method:new# settingsNew , -- ** setAllowFileAccessFromFileUrls #method:setAllowFileAccessFromFileUrls# #if ENABLE_OVERLOADING SettingsSetAllowFileAccessFromFileUrlsMethodInfo, #endif settingsSetAllowFileAccessFromFileUrls , -- ** setAllowModalDialogs #method:setAllowModalDialogs# #if ENABLE_OVERLOADING SettingsSetAllowModalDialogsMethodInfo , #endif settingsSetAllowModalDialogs , -- ** setAllowUniversalAccessFromFileUrls #method:setAllowUniversalAccessFromFileUrls# #if ENABLE_OVERLOADING SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo, #endif settingsSetAllowUniversalAccessFromFileUrls, -- ** setAutoLoadImages #method:setAutoLoadImages# #if ENABLE_OVERLOADING SettingsSetAutoLoadImagesMethodInfo , #endif settingsSetAutoLoadImages , -- ** setCursiveFontFamily #method:setCursiveFontFamily# #if ENABLE_OVERLOADING SettingsSetCursiveFontFamilyMethodInfo , #endif settingsSetCursiveFontFamily , -- ** setDefaultCharset #method:setDefaultCharset# #if ENABLE_OVERLOADING SettingsSetDefaultCharsetMethodInfo , #endif settingsSetDefaultCharset , -- ** setDefaultFontFamily #method:setDefaultFontFamily# #if ENABLE_OVERLOADING SettingsSetDefaultFontFamilyMethodInfo , #endif settingsSetDefaultFontFamily , -- ** setDefaultFontSize #method:setDefaultFontSize# #if ENABLE_OVERLOADING SettingsSetDefaultFontSizeMethodInfo , #endif settingsSetDefaultFontSize , -- ** setDefaultMonospaceFontSize #method:setDefaultMonospaceFontSize# #if ENABLE_OVERLOADING SettingsSetDefaultMonospaceFontSizeMethodInfo, #endif settingsSetDefaultMonospaceFontSize , -- ** setDrawCompositingIndicators #method:setDrawCompositingIndicators# #if ENABLE_OVERLOADING SettingsSetDrawCompositingIndicatorsMethodInfo, #endif settingsSetDrawCompositingIndicators , -- ** setEnableAccelerated2dCanvas #method:setEnableAccelerated2dCanvas# #if ENABLE_OVERLOADING SettingsSetEnableAccelerated2dCanvasMethodInfo, #endif settingsSetEnableAccelerated2dCanvas , -- ** setEnableBackForwardNavigationGestures #method:setEnableBackForwardNavigationGestures# #if ENABLE_OVERLOADING SettingsSetEnableBackForwardNavigationGesturesMethodInfo, #endif settingsSetEnableBackForwardNavigationGestures, -- ** setEnableCaretBrowsing #method:setEnableCaretBrowsing# #if ENABLE_OVERLOADING SettingsSetEnableCaretBrowsingMethodInfo, #endif settingsSetEnableCaretBrowsing , -- ** setEnableDeveloperExtras #method:setEnableDeveloperExtras# #if ENABLE_OVERLOADING SettingsSetEnableDeveloperExtrasMethodInfo, #endif settingsSetEnableDeveloperExtras , -- ** setEnableDnsPrefetching #method:setEnableDnsPrefetching# #if ENABLE_OVERLOADING SettingsSetEnableDnsPrefetchingMethodInfo, #endif settingsSetEnableDnsPrefetching , -- ** setEnableEncryptedMedia #method:setEnableEncryptedMedia# #if ENABLE_OVERLOADING SettingsSetEnableEncryptedMediaMethodInfo, #endif settingsSetEnableEncryptedMedia , -- ** setEnableFrameFlattening #method:setEnableFrameFlattening# #if ENABLE_OVERLOADING SettingsSetEnableFrameFlatteningMethodInfo, #endif settingsSetEnableFrameFlattening , -- ** setEnableFullscreen #method:setEnableFullscreen# #if ENABLE_OVERLOADING SettingsSetEnableFullscreenMethodInfo , #endif settingsSetEnableFullscreen , -- ** setEnableHtml5Database #method:setEnableHtml5Database# #if ENABLE_OVERLOADING SettingsSetEnableHtml5DatabaseMethodInfo, #endif settingsSetEnableHtml5Database , -- ** setEnableHtml5LocalStorage #method:setEnableHtml5LocalStorage# #if ENABLE_OVERLOADING SettingsSetEnableHtml5LocalStorageMethodInfo, #endif settingsSetEnableHtml5LocalStorage , -- ** setEnableHyperlinkAuditing #method:setEnableHyperlinkAuditing# #if ENABLE_OVERLOADING SettingsSetEnableHyperlinkAuditingMethodInfo, #endif settingsSetEnableHyperlinkAuditing , -- ** setEnableJava #method:setEnableJava# #if ENABLE_OVERLOADING SettingsSetEnableJavaMethodInfo , #endif settingsSetEnableJava , -- ** setEnableJavascript #method:setEnableJavascript# #if ENABLE_OVERLOADING SettingsSetEnableJavascriptMethodInfo , #endif settingsSetEnableJavascript , -- ** setEnableJavascriptMarkup #method:setEnableJavascriptMarkup# #if ENABLE_OVERLOADING SettingsSetEnableJavascriptMarkupMethodInfo, #endif settingsSetEnableJavascriptMarkup , -- ** setEnableMediaCapabilities #method:setEnableMediaCapabilities# #if ENABLE_OVERLOADING SettingsSetEnableMediaCapabilitiesMethodInfo, #endif settingsSetEnableMediaCapabilities , -- ** setEnableMediaStream #method:setEnableMediaStream# #if ENABLE_OVERLOADING SettingsSetEnableMediaStreamMethodInfo , #endif settingsSetEnableMediaStream , -- ** setEnableMediasource #method:setEnableMediasource# #if ENABLE_OVERLOADING SettingsSetEnableMediasourceMethodInfo , #endif settingsSetEnableMediasource , -- ** setEnableMockCaptureDevices #method:setEnableMockCaptureDevices# #if ENABLE_OVERLOADING SettingsSetEnableMockCaptureDevicesMethodInfo, #endif settingsSetEnableMockCaptureDevices , -- ** setEnableOfflineWebApplicationCache #method:setEnableOfflineWebApplicationCache# #if ENABLE_OVERLOADING SettingsSetEnableOfflineWebApplicationCacheMethodInfo, #endif settingsSetEnableOfflineWebApplicationCache, -- ** setEnablePageCache #method:setEnablePageCache# #if ENABLE_OVERLOADING SettingsSetEnablePageCacheMethodInfo , #endif settingsSetEnablePageCache , -- ** setEnablePlugins #method:setEnablePlugins# #if ENABLE_OVERLOADING SettingsSetEnablePluginsMethodInfo , #endif settingsSetEnablePlugins , -- ** setEnablePrivateBrowsing #method:setEnablePrivateBrowsing# #if ENABLE_OVERLOADING SettingsSetEnablePrivateBrowsingMethodInfo, #endif settingsSetEnablePrivateBrowsing , -- ** setEnableResizableTextAreas #method:setEnableResizableTextAreas# #if ENABLE_OVERLOADING SettingsSetEnableResizableTextAreasMethodInfo, #endif settingsSetEnableResizableTextAreas , -- ** setEnableSiteSpecificQuirks #method:setEnableSiteSpecificQuirks# #if ENABLE_OVERLOADING SettingsSetEnableSiteSpecificQuirksMethodInfo, #endif settingsSetEnableSiteSpecificQuirks , -- ** setEnableSmoothScrolling #method:setEnableSmoothScrolling# #if ENABLE_OVERLOADING SettingsSetEnableSmoothScrollingMethodInfo, #endif settingsSetEnableSmoothScrolling , -- ** setEnableSpatialNavigation #method:setEnableSpatialNavigation# #if ENABLE_OVERLOADING SettingsSetEnableSpatialNavigationMethodInfo, #endif settingsSetEnableSpatialNavigation , -- ** setEnableTabsToLinks #method:setEnableTabsToLinks# #if ENABLE_OVERLOADING SettingsSetEnableTabsToLinksMethodInfo , #endif settingsSetEnableTabsToLinks , -- ** setEnableWebaudio #method:setEnableWebaudio# #if ENABLE_OVERLOADING SettingsSetEnableWebaudioMethodInfo , #endif settingsSetEnableWebaudio , -- ** setEnableWebgl #method:setEnableWebgl# #if ENABLE_OVERLOADING SettingsSetEnableWebglMethodInfo , #endif settingsSetEnableWebgl , -- ** setEnableWriteConsoleMessagesToStdout #method:setEnableWriteConsoleMessagesToStdout# #if ENABLE_OVERLOADING SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo, #endif settingsSetEnableWriteConsoleMessagesToStdout, -- ** setEnableXssAuditor #method:setEnableXssAuditor# #if ENABLE_OVERLOADING SettingsSetEnableXssAuditorMethodInfo , #endif settingsSetEnableXssAuditor , -- ** setFantasyFontFamily #method:setFantasyFontFamily# #if ENABLE_OVERLOADING SettingsSetFantasyFontFamilyMethodInfo , #endif settingsSetFantasyFontFamily , -- ** setHardwareAccelerationPolicy #method:setHardwareAccelerationPolicy# #if ENABLE_OVERLOADING SettingsSetHardwareAccelerationPolicyMethodInfo, #endif settingsSetHardwareAccelerationPolicy , -- ** setJavascriptCanAccessClipboard #method:setJavascriptCanAccessClipboard# #if ENABLE_OVERLOADING SettingsSetJavascriptCanAccessClipboardMethodInfo, #endif settingsSetJavascriptCanAccessClipboard , -- ** setJavascriptCanOpenWindowsAutomatically #method:setJavascriptCanOpenWindowsAutomatically# #if ENABLE_OVERLOADING SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo, #endif settingsSetJavascriptCanOpenWindowsAutomatically, -- ** setLoadIconsIgnoringImageLoadSetting #method:setLoadIconsIgnoringImageLoadSetting# #if ENABLE_OVERLOADING SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo, #endif settingsSetLoadIconsIgnoringImageLoadSetting, -- ** setMediaPlaybackAllowsInline #method:setMediaPlaybackAllowsInline# #if ENABLE_OVERLOADING SettingsSetMediaPlaybackAllowsInlineMethodInfo, #endif settingsSetMediaPlaybackAllowsInline , -- ** setMediaPlaybackRequiresUserGesture #method:setMediaPlaybackRequiresUserGesture# #if ENABLE_OVERLOADING SettingsSetMediaPlaybackRequiresUserGestureMethodInfo, #endif settingsSetMediaPlaybackRequiresUserGesture, -- ** setMinimumFontSize #method:setMinimumFontSize# #if ENABLE_OVERLOADING SettingsSetMinimumFontSizeMethodInfo , #endif settingsSetMinimumFontSize , -- ** setMonospaceFontFamily #method:setMonospaceFontFamily# #if ENABLE_OVERLOADING SettingsSetMonospaceFontFamilyMethodInfo, #endif settingsSetMonospaceFontFamily , -- ** setPictographFontFamily #method:setPictographFontFamily# #if ENABLE_OVERLOADING SettingsSetPictographFontFamilyMethodInfo, #endif settingsSetPictographFontFamily , -- ** setPrintBackgrounds #method:setPrintBackgrounds# #if ENABLE_OVERLOADING SettingsSetPrintBackgroundsMethodInfo , #endif settingsSetPrintBackgrounds , -- ** setSansSerifFontFamily #method:setSansSerifFontFamily# #if ENABLE_OVERLOADING SettingsSetSansSerifFontFamilyMethodInfo, #endif settingsSetSansSerifFontFamily , -- ** setSerifFontFamily #method:setSerifFontFamily# #if ENABLE_OVERLOADING SettingsSetSerifFontFamilyMethodInfo , #endif settingsSetSerifFontFamily , -- ** setUserAgent #method:setUserAgent# #if ENABLE_OVERLOADING SettingsSetUserAgentMethodInfo , #endif settingsSetUserAgent , -- ** setUserAgentWithApplicationDetails #method:setUserAgentWithApplicationDetails# #if ENABLE_OVERLOADING SettingsSetUserAgentWithApplicationDetailsMethodInfo, #endif settingsSetUserAgentWithApplicationDetails, -- ** setZoomTextOnly #method:setZoomTextOnly# #if ENABLE_OVERLOADING SettingsSetZoomTextOnlyMethodInfo , #endif settingsSetZoomTextOnly , -- * Properties -- ** allowFileAccessFromFileUrls #attr:allowFileAccessFromFileUrls# {- | Whether file access is allowed from file URLs. By default, when something is loaded in a 'GI.WebKit2.Objects.WebView.WebView' using a file URI, cross origin requests to other file resources are not allowed. This setting allows you to change that behaviour, so that it would be possible to do a XMLHttpRequest of a local file, for example. /Since: 2.10/ -} #if ENABLE_OVERLOADING SettingsAllowFileAccessFromFileUrlsPropertyInfo, #endif constructSettingsAllowFileAccessFromFileUrls, getSettingsAllowFileAccessFromFileUrls , setSettingsAllowFileAccessFromFileUrls , #if ENABLE_OVERLOADING settingsAllowFileAccessFromFileUrls , #endif -- ** allowModalDialogs #attr:allowModalDialogs# {- | Determine whether it\'s allowed to create and run modal dialogs from a 'GI.WebKit2.Objects.WebView.WebView' through JavaScript with \window.showModalDialog\<\/function>. If it\'s set to 'False', the associated 'GI.WebKit2.Objects.WebView.WebView' won\'t be able to create new modal dialogs, so not even the 'GI.WebKit2.Objects.WebView.WebView'::@/create/@ signal will be emitted. -} #if ENABLE_OVERLOADING SettingsAllowModalDialogsPropertyInfo , #endif constructSettingsAllowModalDialogs , getSettingsAllowModalDialogs , setSettingsAllowModalDialogs , #if ENABLE_OVERLOADING settingsAllowModalDialogs , #endif -- ** allowUniversalAccessFromFileUrls #attr:allowUniversalAccessFromFileUrls# {- | Whether or not JavaScript running in the context of a file scheme URL should be allowed to access content from any origin. By default, when something is loaded in a 'GI.WebKit2.Objects.WebView.WebView' using a file scheme URL, access to the local file system and arbitrary local storage is not allowed. This setting allows you to change that behaviour, so that it would be possible to use local storage, for example. /Since: 2.14/ -} #if ENABLE_OVERLOADING SettingsAllowUniversalAccessFromFileUrlsPropertyInfo, #endif constructSettingsAllowUniversalAccessFromFileUrls, getSettingsAllowUniversalAccessFromFileUrls, setSettingsAllowUniversalAccessFromFileUrls, #if ENABLE_OVERLOADING settingsAllowUniversalAccessFromFileUrls, #endif -- ** autoLoadImages #attr:autoLoadImages# {- | Determines whether images should be automatically loaded or not. On devices where network bandwidth is of concern, it might be useful to turn this property off. -} #if ENABLE_OVERLOADING SettingsAutoLoadImagesPropertyInfo , #endif constructSettingsAutoLoadImages , getSettingsAutoLoadImages , setSettingsAutoLoadImages , #if ENABLE_OVERLOADING settingsAutoLoadImages , #endif -- ** cursiveFontFamily #attr:cursiveFontFamily# {- | The font family used as the default for content using a cursive font. -} #if ENABLE_OVERLOADING SettingsCursiveFontFamilyPropertyInfo , #endif constructSettingsCursiveFontFamily , getSettingsCursiveFontFamily , setSettingsCursiveFontFamily , #if ENABLE_OVERLOADING settingsCursiveFontFamily , #endif -- ** defaultCharset #attr:defaultCharset# {- | The default text charset used when interpreting content with an unspecified charset. -} #if ENABLE_OVERLOADING SettingsDefaultCharsetPropertyInfo , #endif constructSettingsDefaultCharset , getSettingsDefaultCharset , setSettingsDefaultCharset , #if ENABLE_OVERLOADING settingsDefaultCharset , #endif -- ** defaultFontFamily #attr:defaultFontFamily# {- | The font family to use as the default for content that does not specify a font. -} #if ENABLE_OVERLOADING SettingsDefaultFontFamilyPropertyInfo , #endif constructSettingsDefaultFontFamily , getSettingsDefaultFontFamily , setSettingsDefaultFontFamily , #if ENABLE_OVERLOADING settingsDefaultFontFamily , #endif -- ** defaultFontSize #attr:defaultFontSize# {- | The default font size in pixels to use for content displayed if no font size is specified. -} #if ENABLE_OVERLOADING SettingsDefaultFontSizePropertyInfo , #endif constructSettingsDefaultFontSize , getSettingsDefaultFontSize , setSettingsDefaultFontSize , #if ENABLE_OVERLOADING settingsDefaultFontSize , #endif -- ** defaultMonospaceFontSize #attr:defaultMonospaceFontSize# {- | The default font size in pixels to use for content displayed in monospace font if no font size is specified. -} #if ENABLE_OVERLOADING SettingsDefaultMonospaceFontSizePropertyInfo, #endif constructSettingsDefaultMonospaceFontSize, getSettingsDefaultMonospaceFontSize , setSettingsDefaultMonospaceFontSize , #if ENABLE_OVERLOADING settingsDefaultMonospaceFontSize , #endif -- ** drawCompositingIndicators #attr:drawCompositingIndicators# {- | Whether to draw compositing borders and repaint counters on layers drawn with accelerated compositing. This is useful for debugging issues related to web content that is composited with the GPU. -} #if ENABLE_OVERLOADING SettingsDrawCompositingIndicatorsPropertyInfo, #endif constructSettingsDrawCompositingIndicators, getSettingsDrawCompositingIndicators , setSettingsDrawCompositingIndicators , #if ENABLE_OVERLOADING settingsDrawCompositingIndicators , #endif -- ** enableAccelerated2dCanvas #attr:enableAccelerated2dCanvas# {- | Enable or disable accelerated 2D canvas. Accelerated 2D canvas is only available if WebKit was compiled with a version of Cairo including the unstable CairoGL API. When accelerated 2D canvas is enabled, WebKit may render some 2D canvas content using hardware accelerated drawing operations. /Since: 2.2/ -} #if ENABLE_OVERLOADING SettingsEnableAccelerated2dCanvasPropertyInfo, #endif constructSettingsEnableAccelerated2dCanvas, getSettingsEnableAccelerated2dCanvas , setSettingsEnableAccelerated2dCanvas , #if ENABLE_OVERLOADING settingsEnableAccelerated2dCanvas , #endif -- ** enableBackForwardNavigationGestures #attr:enableBackForwardNavigationGestures# {- | Enable or disable horizontal swipe gesture for back-forward navigation. /Since: 2.24/ -} #if ENABLE_OVERLOADING SettingsEnableBackForwardNavigationGesturesPropertyInfo, #endif constructSettingsEnableBackForwardNavigationGestures, getSettingsEnableBackForwardNavigationGestures, setSettingsEnableBackForwardNavigationGestures, #if ENABLE_OVERLOADING settingsEnableBackForwardNavigationGestures, #endif -- ** enableCaretBrowsing #attr:enableCaretBrowsing# {- | Whether to enable accessibility enhanced keyboard navigation. -} #if ENABLE_OVERLOADING SettingsEnableCaretBrowsingPropertyInfo , #endif constructSettingsEnableCaretBrowsing , getSettingsEnableCaretBrowsing , setSettingsEnableCaretBrowsing , #if ENABLE_OVERLOADING settingsEnableCaretBrowsing , #endif -- ** enableDeveloperExtras #attr:enableDeveloperExtras# {- | Determines whether or not developer tools, such as the Web Inspector, are enabled. -} #if ENABLE_OVERLOADING SettingsEnableDeveloperExtrasPropertyInfo, #endif constructSettingsEnableDeveloperExtras , getSettingsEnableDeveloperExtras , setSettingsEnableDeveloperExtras , #if ENABLE_OVERLOADING settingsEnableDeveloperExtras , #endif -- ** enableDnsPrefetching #attr:enableDnsPrefetching# {- | Determines whether or not to prefetch domain names. DNS prefetching attempts to resolve domain names before a user tries to follow a link. -} #if ENABLE_OVERLOADING SettingsEnableDnsPrefetchingPropertyInfo, #endif constructSettingsEnableDnsPrefetching , getSettingsEnableDnsPrefetching , setSettingsEnableDnsPrefetching , #if ENABLE_OVERLOADING settingsEnableDnsPrefetching , #endif -- ** enableEncryptedMedia #attr:enableEncryptedMedia# {- | Enable or disable support for Encrypted Media API on pages. EncryptedMedia is an experimental JavaScript API for playing encrypted media in HTML. This property will only work as intended if the EncryptedMedia feature is enabled at build time with the ENABLE_ENCRYPTED_MEDIA flag. See https:\/\/www.w3.org\/TR\/encrypted-media\/ /Since: 2.20/ -} #if ENABLE_OVERLOADING SettingsEnableEncryptedMediaPropertyInfo, #endif constructSettingsEnableEncryptedMedia , getSettingsEnableEncryptedMedia , setSettingsEnableEncryptedMedia , #if ENABLE_OVERLOADING settingsEnableEncryptedMedia , #endif -- ** enableFrameFlattening #attr:enableFrameFlattening# {- | Whether to enable the frame flattening. With this setting each subframe is expanded to its contents, which will flatten all the frames to become one scrollable page. On touch devices scrollable subframes on a page can result in a confusing user experience. -} #if ENABLE_OVERLOADING SettingsEnableFrameFlatteningPropertyInfo, #endif constructSettingsEnableFrameFlattening , getSettingsEnableFrameFlattening , setSettingsEnableFrameFlattening , #if ENABLE_OVERLOADING settingsEnableFrameFlattening , #endif -- ** enableFullscreen #attr:enableFullscreen# {- | Whether to enable the Javascript Fullscreen API. The API allows any HTML element to request fullscreen display. See also the current draft of the spec: http:\/\/www.w3.org\/TR\/fullscreen\/ -} #if ENABLE_OVERLOADING SettingsEnableFullscreenPropertyInfo , #endif constructSettingsEnableFullscreen , getSettingsEnableFullscreen , setSettingsEnableFullscreen , #if ENABLE_OVERLOADING settingsEnableFullscreen , #endif -- ** enableHtml5Database #attr:enableHtml5Database# {- | Whether to enable HTML5 client-side SQL database support. Client-side SQL database allows web pages to store structured data and be able to use SQL to manipulate that data asynchronously. HTML5 database specification is available at http:\/\/www.w3.org\/TR\/webdatabase\/. -} #if ENABLE_OVERLOADING SettingsEnableHtml5DatabasePropertyInfo , #endif constructSettingsEnableHtml5Database , getSettingsEnableHtml5Database , setSettingsEnableHtml5Database , #if ENABLE_OVERLOADING settingsEnableHtml5Database , #endif -- ** enableHtml5LocalStorage #attr:enableHtml5LocalStorage# {- | Whether to enable HTML5 local storage support. Local storage provides simple synchronous storage access. HTML5 local storage specification is available at http:\/\/dev.w3.org\/html5\/webstorage\/. -} #if ENABLE_OVERLOADING SettingsEnableHtml5LocalStoragePropertyInfo, #endif constructSettingsEnableHtml5LocalStorage, getSettingsEnableHtml5LocalStorage , setSettingsEnableHtml5LocalStorage , #if ENABLE_OVERLOADING settingsEnableHtml5LocalStorage , #endif -- ** enableHyperlinkAuditing #attr:enableHyperlinkAuditing# {- | Determines whether or not hyperlink auditing is enabled. The hyperlink auditing specification is available at http:\/\/www.whatwg.org\/specs\/web-apps\/current-work\/multipage\/links.html@/hyperlink/@-auditing. -} #if ENABLE_OVERLOADING SettingsEnableHyperlinkAuditingPropertyInfo, #endif constructSettingsEnableHyperlinkAuditing, getSettingsEnableHyperlinkAuditing , setSettingsEnableHyperlinkAuditing , #if ENABLE_OVERLOADING settingsEnableHyperlinkAuditing , #endif -- ** enableJava #attr:enableJava# {- | Determines whether or not Java is enabled on the page. -} #if ENABLE_OVERLOADING SettingsEnableJavaPropertyInfo , #endif constructSettingsEnableJava , getSettingsEnableJava , setSettingsEnableJava , #if ENABLE_OVERLOADING settingsEnableJava , #endif -- ** enableJavascript #attr:enableJavascript# {- | Determines whether or not JavaScript executes within a page. -} #if ENABLE_OVERLOADING SettingsEnableJavascriptPropertyInfo , #endif constructSettingsEnableJavascript , getSettingsEnableJavascript , setSettingsEnableJavascript , #if ENABLE_OVERLOADING settingsEnableJavascript , #endif -- ** enableJavascriptMarkup #attr:enableJavascriptMarkup# {- | Determines whether or not JavaScript markup is allowed in document. When this setting is disabled, all JavaScript-related elements and attributes are removed from the document during parsing. Note that executing JavaScript is still allowed if 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript/@ is 'True'. /Since: 2.24/ -} #if ENABLE_OVERLOADING SettingsEnableJavascriptMarkupPropertyInfo, #endif constructSettingsEnableJavascriptMarkup , getSettingsEnableJavascriptMarkup , setSettingsEnableJavascriptMarkup , #if ENABLE_OVERLOADING settingsEnableJavascriptMarkup , #endif -- ** enableMediaCapabilities #attr:enableMediaCapabilities# {- | Enable or disable support for MediaCapabilities on pages. This specification intends to provide APIs to allow websites to make an optimal decision when picking media content for the user. The APIs will expose information about the decoding and encoding capabilities for a given format but also output capabilities to find the best match based on the device’s display. See also https:\/\/wicg.github.io\/media-capabilities\/ /Since: 2.22/ -} #if ENABLE_OVERLOADING SettingsEnableMediaCapabilitiesPropertyInfo, #endif constructSettingsEnableMediaCapabilities, getSettingsEnableMediaCapabilities , setSettingsEnableMediaCapabilities , #if ENABLE_OVERLOADING settingsEnableMediaCapabilities , #endif -- ** enableMediaStream #attr:enableMediaStream# {- | Enable or disable support for MediaStream on pages. MediaStream is an experimental proposal for allowing web pages to access audio and video devices for capture. See also http:\/\/dev.w3.org\/2011\/webrtc\/editor\/getusermedia.html /Since: 2.4/ -} #if ENABLE_OVERLOADING SettingsEnableMediaStreamPropertyInfo , #endif constructSettingsEnableMediaStream , getSettingsEnableMediaStream , setSettingsEnableMediaStream , #if ENABLE_OVERLOADING settingsEnableMediaStream , #endif -- ** enableMediasource #attr:enableMediasource# {- | Enable or disable support for MediaSource on pages. MediaSource extends HTMLMediaElement to allow JavaScript to generate media streams for playback. See also http:\/\/www.w3.org\/TR\/media-source\/ /Since: 2.4/ -} #if ENABLE_OVERLOADING SettingsEnableMediasourcePropertyInfo , #endif constructSettingsEnableMediasource , getSettingsEnableMediasource , setSettingsEnableMediasource , #if ENABLE_OVERLOADING settingsEnableMediasource , #endif -- ** enableMockCaptureDevices #attr:enableMockCaptureDevices# {- | Enable or disable the Mock Capture Devices. Those are fake Microphone and Camera devices to be used as MediaStream sources. /Since: 2.24/ -} #if ENABLE_OVERLOADING SettingsEnableMockCaptureDevicesPropertyInfo, #endif constructSettingsEnableMockCaptureDevices, getSettingsEnableMockCaptureDevices , setSettingsEnableMockCaptureDevices , #if ENABLE_OVERLOADING settingsEnableMockCaptureDevices , #endif -- ** enableOfflineWebApplicationCache #attr:enableOfflineWebApplicationCache# {- | Whether to enable HTML5 offline web application cache support. Offline web application cache allows web applications to run even when the user is not connected to the network. HTML5 offline web application specification is available at http:\/\/dev.w3.org\/html5\/spec\/offline.html. -} #if ENABLE_OVERLOADING SettingsEnableOfflineWebApplicationCachePropertyInfo, #endif constructSettingsEnableOfflineWebApplicationCache, getSettingsEnableOfflineWebApplicationCache, setSettingsEnableOfflineWebApplicationCache, #if ENABLE_OVERLOADING settingsEnableOfflineWebApplicationCache, #endif -- ** enablePageCache #attr:enablePageCache# {- | Enable or disable the page cache. Disabling the page cache is generally only useful for special circumstances like low-memory scenarios or special purpose applications like static HTML viewers. This setting only controls the Page Cache, this cache is different than the disk-based or memory-based traditional resource caches, its point is to make going back and forth between pages much faster. For details about the different types of caches and their purposes see: http:\/\/webkit.org\/blog\/427\/webkit-page-cache-i-the-basics\/ -} #if ENABLE_OVERLOADING SettingsEnablePageCachePropertyInfo , #endif constructSettingsEnablePageCache , getSettingsEnablePageCache , setSettingsEnablePageCache , #if ENABLE_OVERLOADING settingsEnablePageCache , #endif -- ** enablePlugins #attr:enablePlugins# {- | Determines whether or not plugins on the page are enabled. -} #if ENABLE_OVERLOADING SettingsEnablePluginsPropertyInfo , #endif constructSettingsEnablePlugins , getSettingsEnablePlugins , setSettingsEnablePlugins , #if ENABLE_OVERLOADING settingsEnablePlugins , #endif -- ** enablePrivateBrowsing #attr:enablePrivateBrowsing# {- | Determines whether or not private browsing is enabled. Private browsing will disable history, cache and form auto-fill for any pages visited. -} #if ENABLE_OVERLOADING SettingsEnablePrivateBrowsingPropertyInfo, #endif constructSettingsEnablePrivateBrowsing , getSettingsEnablePrivateBrowsing , setSettingsEnablePrivateBrowsing , #if ENABLE_OVERLOADING settingsEnablePrivateBrowsing , #endif -- ** enableResizableTextAreas #attr:enableResizableTextAreas# {- | Determines whether or not text areas can be resized. -} #if ENABLE_OVERLOADING SettingsEnableResizableTextAreasPropertyInfo, #endif constructSettingsEnableResizableTextAreas, getSettingsEnableResizableTextAreas , setSettingsEnableResizableTextAreas , #if ENABLE_OVERLOADING settingsEnableResizableTextAreas , #endif -- ** enableSiteSpecificQuirks #attr:enableSiteSpecificQuirks# {- | Whether to turn on site-specific quirks. Turning this on will tell WebKit to use some site-specific workarounds for better web compatibility. For example, older versions of MediaWiki will incorrectly send to WebKit a CSS file with KHTML workarounds. By turning on site-specific quirks, WebKit will special-case this and other cases to make some specific sites work. -} #if ENABLE_OVERLOADING SettingsEnableSiteSpecificQuirksPropertyInfo, #endif constructSettingsEnableSiteSpecificQuirks, getSettingsEnableSiteSpecificQuirks , setSettingsEnableSiteSpecificQuirks , #if ENABLE_OVERLOADING settingsEnableSiteSpecificQuirks , #endif -- ** enableSmoothScrolling #attr:enableSmoothScrolling# {- | Enable or disable smooth scrolling. -} #if ENABLE_OVERLOADING SettingsEnableSmoothScrollingPropertyInfo, #endif constructSettingsEnableSmoothScrolling , getSettingsEnableSmoothScrolling , setSettingsEnableSmoothScrolling , #if ENABLE_OVERLOADING settingsEnableSmoothScrolling , #endif -- ** enableSpatialNavigation #attr:enableSpatialNavigation# {- | Whether to enable Spatial Navigation. This feature consists in the ability to navigate between focusable elements in a Web page, such as hyperlinks and form controls, by using Left, Right, Up and Down arrow keys. For example, if an user presses the Right key, heuristics determine whether there is an element they might be trying to reach towards the right, and if there are multiple elements, which element they probably wants. /Since: 2.4/ -} #if ENABLE_OVERLOADING SettingsEnableSpatialNavigationPropertyInfo, #endif constructSettingsEnableSpatialNavigation, getSettingsEnableSpatialNavigation , setSettingsEnableSpatialNavigation , #if ENABLE_OVERLOADING settingsEnableSpatialNavigation , #endif -- ** enableTabsToLinks #attr:enableTabsToLinks# {- | Determines whether the tab key cycles through the elements on the page. When this setting is enabled, users will be able to focus the next element in the page by pressing the tab key. If the selected element is editable, then pressing tab key will insert the tab character. -} #if ENABLE_OVERLOADING SettingsEnableTabsToLinksPropertyInfo , #endif constructSettingsEnableTabsToLinks , getSettingsEnableTabsToLinks , setSettingsEnableTabsToLinks , #if ENABLE_OVERLOADING settingsEnableTabsToLinks , #endif -- ** enableWebaudio #attr:enableWebaudio# {- | Enable or disable support for WebAudio on pages. WebAudio is an experimental proposal for allowing web pages to generate Audio WAVE data from JavaScript. The standard is currently a work-in-progress by the W3C Audio Working Group. See also https:\/\/dvcs.w3.org\/hg\/audio\/raw-file\/tip\/webaudio\/specification.html -} #if ENABLE_OVERLOADING SettingsEnableWebaudioPropertyInfo , #endif constructSettingsEnableWebaudio , getSettingsEnableWebaudio , setSettingsEnableWebaudio , #if ENABLE_OVERLOADING settingsEnableWebaudio , #endif -- ** enableWebgl #attr:enableWebgl# {- | Enable or disable support for WebGL on pages. WebGL is an experimental proposal for allowing web pages to use OpenGL ES-like calls directly. The standard is currently a work-in-progress by the Khronos Group. -} #if ENABLE_OVERLOADING SettingsEnableWebglPropertyInfo , #endif constructSettingsEnableWebgl , getSettingsEnableWebgl , setSettingsEnableWebgl , #if ENABLE_OVERLOADING settingsEnableWebgl , #endif -- ** enableWriteConsoleMessagesToStdout #attr:enableWriteConsoleMessagesToStdout# {- | Enable or disable writing console messages to stdout. These are messages sent to the console with console.log and related methods. /Since: 2.2/ -} #if ENABLE_OVERLOADING SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo, #endif constructSettingsEnableWriteConsoleMessagesToStdout, getSettingsEnableWriteConsoleMessagesToStdout, setSettingsEnableWriteConsoleMessagesToStdout, #if ENABLE_OVERLOADING settingsEnableWriteConsoleMessagesToStdout, #endif -- ** enableXssAuditor #attr:enableXssAuditor# {- | Whether to enable the XSS auditor. This feature filters some kinds of reflective XSS attacks on vulnerable web sites. -} #if ENABLE_OVERLOADING SettingsEnableXssAuditorPropertyInfo , #endif constructSettingsEnableXssAuditor , getSettingsEnableXssAuditor , setSettingsEnableXssAuditor , #if ENABLE_OVERLOADING settingsEnableXssAuditor , #endif -- ** fantasyFontFamily #attr:fantasyFontFamily# {- | The font family used as the default for content using a fantasy font. -} #if ENABLE_OVERLOADING SettingsFantasyFontFamilyPropertyInfo , #endif constructSettingsFantasyFontFamily , getSettingsFantasyFontFamily , setSettingsFantasyFontFamily , #if ENABLE_OVERLOADING settingsFantasyFontFamily , #endif -- ** hardwareAccelerationPolicy #attr:hardwareAccelerationPolicy# {- | The 'GI.WebKit2.Enums.HardwareAccelerationPolicy' to decide how to enable and disable hardware acceleration. The default value 'GI.WebKit2.Enums.HardwareAccelerationPolicyOnDemand' enables the hardware acceleration when the web contents request it, disabling it again when no longer needed. It\'s possible to enforce hardware acceleration to be always enabled by using 'GI.WebKit2.Enums.HardwareAccelerationPolicyAlways'. And it\'s also possible to disable it completely using 'GI.WebKit2.Enums.HardwareAccelerationPolicyNever'. Note that disabling hardware acceleration might cause some websites to not render correctly or consume more CPU. Note that changing this setting might not be possible if hardware acceleration is not supported by the hardware or the system. In that case you can get the value to know the actual policy being used, but changing the setting will not have any effect. /Since: 2.16/ -} #if ENABLE_OVERLOADING SettingsHardwareAccelerationPolicyPropertyInfo, #endif constructSettingsHardwareAccelerationPolicy, getSettingsHardwareAccelerationPolicy , setSettingsHardwareAccelerationPolicy , #if ENABLE_OVERLOADING settingsHardwareAccelerationPolicy , #endif -- ** javascriptCanAccessClipboard #attr:javascriptCanAccessClipboard# {- | Whether JavaScript can access the clipboard. The default value is 'False'. If set to 'True', document.@/execCommand()/@ allows cut, copy and paste commands. -} #if ENABLE_OVERLOADING SettingsJavascriptCanAccessClipboardPropertyInfo, #endif constructSettingsJavascriptCanAccessClipboard, getSettingsJavascriptCanAccessClipboard , setSettingsJavascriptCanAccessClipboard , #if ENABLE_OVERLOADING settingsJavascriptCanAccessClipboard , #endif -- ** javascriptCanOpenWindowsAutomatically #attr:javascriptCanOpenWindowsAutomatically# {- | Whether JavaScript can open popup windows automatically without user intervention. -} #if ENABLE_OVERLOADING SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo, #endif constructSettingsJavascriptCanOpenWindowsAutomatically, getSettingsJavascriptCanOpenWindowsAutomatically, setSettingsJavascriptCanOpenWindowsAutomatically, #if ENABLE_OVERLOADING settingsJavascriptCanOpenWindowsAutomatically, #endif -- ** loadIconsIgnoringImageLoadSetting #attr:loadIconsIgnoringImageLoadSetting# {- | Determines whether a site can load favicons irrespective of the value of 'GI.WebKit2.Objects.Settings.Settings':@/auto-load-images/@. -} #if ENABLE_OVERLOADING SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo, #endif constructSettingsLoadIconsIgnoringImageLoadSetting, getSettingsLoadIconsIgnoringImageLoadSetting, setSettingsLoadIconsIgnoringImageLoadSetting, #if ENABLE_OVERLOADING settingsLoadIconsIgnoringImageLoadSetting, #endif -- ** mediaPlaybackAllowsInline #attr:mediaPlaybackAllowsInline# {- | Whether media playback is full-screen only or inline playback is allowed. This is 'True' by default, so media playback can be inline. Setting it to 'False' allows specifying that media playback should be always fullscreen. -} #if ENABLE_OVERLOADING SettingsMediaPlaybackAllowsInlinePropertyInfo, #endif constructSettingsMediaPlaybackAllowsInline, getSettingsMediaPlaybackAllowsInline , setSettingsMediaPlaybackAllowsInline , #if ENABLE_OVERLOADING settingsMediaPlaybackAllowsInline , #endif -- ** mediaPlaybackRequiresUserGesture #attr:mediaPlaybackRequiresUserGesture# {- | Whether a user gesture (such as clicking the play button) would be required to start media playback or load media. This is off by default, so media playback could start automatically. Setting it on requires a gesture by the user to start playback, or to load the media. -} #if ENABLE_OVERLOADING SettingsMediaPlaybackRequiresUserGesturePropertyInfo, #endif constructSettingsMediaPlaybackRequiresUserGesture, getSettingsMediaPlaybackRequiresUserGesture, setSettingsMediaPlaybackRequiresUserGesture, #if ENABLE_OVERLOADING settingsMediaPlaybackRequiresUserGesture, #endif -- ** minimumFontSize #attr:minimumFontSize# {- | The minimum font size in pixels used to display text. This setting controls the absolute smallest size. Values other than 0 can potentially break page layouts. -} #if ENABLE_OVERLOADING SettingsMinimumFontSizePropertyInfo , #endif constructSettingsMinimumFontSize , getSettingsMinimumFontSize , setSettingsMinimumFontSize , #if ENABLE_OVERLOADING settingsMinimumFontSize , #endif -- ** monospaceFontFamily #attr:monospaceFontFamily# {- | The font family used as the default for content using a monospace font. -} #if ENABLE_OVERLOADING SettingsMonospaceFontFamilyPropertyInfo , #endif constructSettingsMonospaceFontFamily , getSettingsMonospaceFontFamily , setSettingsMonospaceFontFamily , #if ENABLE_OVERLOADING settingsMonospaceFontFamily , #endif -- ** pictographFontFamily #attr:pictographFontFamily# {- | The font family used as the default for content using a pictograph font. -} #if ENABLE_OVERLOADING SettingsPictographFontFamilyPropertyInfo, #endif constructSettingsPictographFontFamily , getSettingsPictographFontFamily , setSettingsPictographFontFamily , #if ENABLE_OVERLOADING settingsPictographFontFamily , #endif -- ** printBackgrounds #attr:printBackgrounds# {- | Whether background images should be drawn during printing. -} #if ENABLE_OVERLOADING SettingsPrintBackgroundsPropertyInfo , #endif constructSettingsPrintBackgrounds , getSettingsPrintBackgrounds , setSettingsPrintBackgrounds , #if ENABLE_OVERLOADING settingsPrintBackgrounds , #endif -- ** sansSerifFontFamily #attr:sansSerifFontFamily# {- | The font family used as the default for content using a sans-serif font. -} #if ENABLE_OVERLOADING SettingsSansSerifFontFamilyPropertyInfo , #endif constructSettingsSansSerifFontFamily , getSettingsSansSerifFontFamily , setSettingsSansSerifFontFamily , #if ENABLE_OVERLOADING settingsSansSerifFontFamily , #endif -- ** serifFontFamily #attr:serifFontFamily# {- | The font family used as the default for content using a serif font. -} #if ENABLE_OVERLOADING SettingsSerifFontFamilyPropertyInfo , #endif constructSettingsSerifFontFamily , getSettingsSerifFontFamily , setSettingsSerifFontFamily , #if ENABLE_OVERLOADING settingsSerifFontFamily , #endif -- ** userAgent #attr:userAgent# {- | The user-agent string used by WebKit. Unusual user-agent strings may cause web content to render incorrectly or fail to run, as many web pages are written to parse the user-agent strings of only the most popular browsers. Therefore, it\'s typically better to not completely override the standard user-agent, but to use 'GI.WebKit2.Objects.Settings.settingsSetUserAgentWithApplicationDetails' instead. If this property is set to the empty string or 'Nothing', it will revert to the standard user-agent. -} #if ENABLE_OVERLOADING SettingsUserAgentPropertyInfo , #endif clearSettingsUserAgent , constructSettingsUserAgent , getSettingsUserAgent , setSettingsUserAgent , #if ENABLE_OVERLOADING settingsUserAgent , #endif -- ** zoomTextOnly #attr:zoomTextOnly# {- | Whether 'GI.WebKit2.Objects.WebView.WebView':@/zoom-level/@ affects only the text of the page or all the contents. Other contents containing text like form controls will be also affected by zoom factor when this property is enabled. -} #if ENABLE_OVERLOADING SettingsZoomTextOnlyPropertyInfo , #endif constructSettingsZoomTextOnly , getSettingsZoomTextOnly , setSettingsZoomTextOnly , #if ENABLE_OVERLOADING settingsZoomTextOnly , #endif ) where import Data.GI.Base.ShortPrelude import qualified Data.GI.Base.ShortPrelude as SP import qualified Data.GI.Base.Overloading as O import qualified Prelude as P import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr import qualified Data.GI.Base.GClosure as B.GClosure import qualified Data.GI.Base.GError as B.GError import qualified Data.GI.Base.GVariant as B.GVariant import qualified Data.GI.Base.GValue as B.GValue import qualified Data.GI.Base.GParamSpec as B.GParamSpec import qualified Data.GI.Base.CallStack as B.CallStack import qualified Data.GI.Base.Properties as B.Properties import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import qualified Foreign.Ptr as FP import qualified GHC.OverloadedLabels as OL import qualified GI.GObject.Objects.Object as GObject.Object import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums -- | Memory-managed wrapper type. newtype Settings = Settings (ManagedPtr Settings) foreign import ccall "webkit_settings_get_type" c_webkit_settings_get_type :: IO GType instance GObject Settings where gobjectType = c_webkit_settings_get_type -- | Type class for types which can be safely cast to `Settings`, for instance with `toSettings`. class (GObject o, O.IsDescendantOf Settings o) => IsSettings o instance (GObject o, O.IsDescendantOf Settings o) => IsSettings o instance O.HasParentTypes Settings type instance O.ParentTypes Settings = '[GObject.Object.Object] -- | Cast to `Settings`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. toSettings :: (MonadIO m, IsSettings o) => o -> m Settings toSettings = liftIO . unsafeCastTo Settings -- | A convenience alias for `Nothing` :: `Maybe` `Settings`. noSettings :: Maybe Settings noSettings = Nothing #if ENABLE_OVERLOADING type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where ResolveSettingsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo ResolveSettingsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo ResolveSettingsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo ResolveSettingsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo ResolveSettingsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo ResolveSettingsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo ResolveSettingsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo ResolveSettingsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo ResolveSettingsMethod "ref" o = GObject.Object.ObjectRefMethodInfo ResolveSettingsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo ResolveSettingsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo ResolveSettingsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo ResolveSettingsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo ResolveSettingsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo ResolveSettingsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo ResolveSettingsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo ResolveSettingsMethod "getAllowFileAccessFromFileUrls" o = SettingsGetAllowFileAccessFromFileUrlsMethodInfo ResolveSettingsMethod "getAllowModalDialogs" o = SettingsGetAllowModalDialogsMethodInfo ResolveSettingsMethod "getAllowUniversalAccessFromFileUrls" o = SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo ResolveSettingsMethod "getAutoLoadImages" o = SettingsGetAutoLoadImagesMethodInfo ResolveSettingsMethod "getCursiveFontFamily" o = SettingsGetCursiveFontFamilyMethodInfo ResolveSettingsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo ResolveSettingsMethod "getDefaultCharset" o = SettingsGetDefaultCharsetMethodInfo ResolveSettingsMethod "getDefaultFontFamily" o = SettingsGetDefaultFontFamilyMethodInfo ResolveSettingsMethod "getDefaultFontSize" o = SettingsGetDefaultFontSizeMethodInfo ResolveSettingsMethod "getDefaultMonospaceFontSize" o = SettingsGetDefaultMonospaceFontSizeMethodInfo ResolveSettingsMethod "getDrawCompositingIndicators" o = SettingsGetDrawCompositingIndicatorsMethodInfo ResolveSettingsMethod "getEnableAccelerated2dCanvas" o = SettingsGetEnableAccelerated2dCanvasMethodInfo ResolveSettingsMethod "getEnableBackForwardNavigationGestures" o = SettingsGetEnableBackForwardNavigationGesturesMethodInfo ResolveSettingsMethod "getEnableCaretBrowsing" o = SettingsGetEnableCaretBrowsingMethodInfo ResolveSettingsMethod "getEnableDeveloperExtras" o = SettingsGetEnableDeveloperExtrasMethodInfo ResolveSettingsMethod "getEnableDnsPrefetching" o = SettingsGetEnableDnsPrefetchingMethodInfo ResolveSettingsMethod "getEnableEncryptedMedia" o = SettingsGetEnableEncryptedMediaMethodInfo ResolveSettingsMethod "getEnableFrameFlattening" o = SettingsGetEnableFrameFlatteningMethodInfo ResolveSettingsMethod "getEnableFullscreen" o = SettingsGetEnableFullscreenMethodInfo ResolveSettingsMethod "getEnableHtml5Database" o = SettingsGetEnableHtml5DatabaseMethodInfo ResolveSettingsMethod "getEnableHtml5LocalStorage" o = SettingsGetEnableHtml5LocalStorageMethodInfo ResolveSettingsMethod "getEnableHyperlinkAuditing" o = SettingsGetEnableHyperlinkAuditingMethodInfo ResolveSettingsMethod "getEnableJava" o = SettingsGetEnableJavaMethodInfo ResolveSettingsMethod "getEnableJavascript" o = SettingsGetEnableJavascriptMethodInfo ResolveSettingsMethod "getEnableJavascriptMarkup" o = SettingsGetEnableJavascriptMarkupMethodInfo ResolveSettingsMethod "getEnableMediaCapabilities" o = SettingsGetEnableMediaCapabilitiesMethodInfo ResolveSettingsMethod "getEnableMediaStream" o = SettingsGetEnableMediaStreamMethodInfo ResolveSettingsMethod "getEnableMediasource" o = SettingsGetEnableMediasourceMethodInfo ResolveSettingsMethod "getEnableMockCaptureDevices" o = SettingsGetEnableMockCaptureDevicesMethodInfo ResolveSettingsMethod "getEnableOfflineWebApplicationCache" o = SettingsGetEnableOfflineWebApplicationCacheMethodInfo ResolveSettingsMethod "getEnablePageCache" o = SettingsGetEnablePageCacheMethodInfo ResolveSettingsMethod "getEnablePlugins" o = SettingsGetEnablePluginsMethodInfo ResolveSettingsMethod "getEnablePrivateBrowsing" o = SettingsGetEnablePrivateBrowsingMethodInfo ResolveSettingsMethod "getEnableResizableTextAreas" o = SettingsGetEnableResizableTextAreasMethodInfo ResolveSettingsMethod "getEnableSiteSpecificQuirks" o = SettingsGetEnableSiteSpecificQuirksMethodInfo ResolveSettingsMethod "getEnableSmoothScrolling" o = SettingsGetEnableSmoothScrollingMethodInfo ResolveSettingsMethod "getEnableSpatialNavigation" o = SettingsGetEnableSpatialNavigationMethodInfo ResolveSettingsMethod "getEnableTabsToLinks" o = SettingsGetEnableTabsToLinksMethodInfo ResolveSettingsMethod "getEnableWebaudio" o = SettingsGetEnableWebaudioMethodInfo ResolveSettingsMethod "getEnableWebgl" o = SettingsGetEnableWebglMethodInfo ResolveSettingsMethod "getEnableWriteConsoleMessagesToStdout" o = SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo ResolveSettingsMethod "getEnableXssAuditor" o = SettingsGetEnableXssAuditorMethodInfo ResolveSettingsMethod "getFantasyFontFamily" o = SettingsGetFantasyFontFamilyMethodInfo ResolveSettingsMethod "getHardwareAccelerationPolicy" o = SettingsGetHardwareAccelerationPolicyMethodInfo ResolveSettingsMethod "getJavascriptCanAccessClipboard" o = SettingsGetJavascriptCanAccessClipboardMethodInfo ResolveSettingsMethod "getJavascriptCanOpenWindowsAutomatically" o = SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo ResolveSettingsMethod "getLoadIconsIgnoringImageLoadSetting" o = SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo ResolveSettingsMethod "getMediaPlaybackAllowsInline" o = SettingsGetMediaPlaybackAllowsInlineMethodInfo ResolveSettingsMethod "getMediaPlaybackRequiresUserGesture" o = SettingsGetMediaPlaybackRequiresUserGestureMethodInfo ResolveSettingsMethod "getMinimumFontSize" o = SettingsGetMinimumFontSizeMethodInfo ResolveSettingsMethod "getMonospaceFontFamily" o = SettingsGetMonospaceFontFamilyMethodInfo ResolveSettingsMethod "getPictographFontFamily" o = SettingsGetPictographFontFamilyMethodInfo ResolveSettingsMethod "getPrintBackgrounds" o = SettingsGetPrintBackgroundsMethodInfo ResolveSettingsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo ResolveSettingsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo ResolveSettingsMethod "getSansSerifFontFamily" o = SettingsGetSansSerifFontFamilyMethodInfo ResolveSettingsMethod "getSerifFontFamily" o = SettingsGetSerifFontFamilyMethodInfo ResolveSettingsMethod "getUserAgent" o = SettingsGetUserAgentMethodInfo ResolveSettingsMethod "getZoomTextOnly" o = SettingsGetZoomTextOnlyMethodInfo ResolveSettingsMethod "setAllowFileAccessFromFileUrls" o = SettingsSetAllowFileAccessFromFileUrlsMethodInfo ResolveSettingsMethod "setAllowModalDialogs" o = SettingsSetAllowModalDialogsMethodInfo ResolveSettingsMethod "setAllowUniversalAccessFromFileUrls" o = SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo ResolveSettingsMethod "setAutoLoadImages" o = SettingsSetAutoLoadImagesMethodInfo ResolveSettingsMethod "setCursiveFontFamily" o = SettingsSetCursiveFontFamilyMethodInfo ResolveSettingsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo ResolveSettingsMethod "setDefaultCharset" o = SettingsSetDefaultCharsetMethodInfo ResolveSettingsMethod "setDefaultFontFamily" o = SettingsSetDefaultFontFamilyMethodInfo ResolveSettingsMethod "setDefaultFontSize" o = SettingsSetDefaultFontSizeMethodInfo ResolveSettingsMethod "setDefaultMonospaceFontSize" o = SettingsSetDefaultMonospaceFontSizeMethodInfo ResolveSettingsMethod "setDrawCompositingIndicators" o = SettingsSetDrawCompositingIndicatorsMethodInfo ResolveSettingsMethod "setEnableAccelerated2dCanvas" o = SettingsSetEnableAccelerated2dCanvasMethodInfo ResolveSettingsMethod "setEnableBackForwardNavigationGestures" o = SettingsSetEnableBackForwardNavigationGesturesMethodInfo ResolveSettingsMethod "setEnableCaretBrowsing" o = SettingsSetEnableCaretBrowsingMethodInfo ResolveSettingsMethod "setEnableDeveloperExtras" o = SettingsSetEnableDeveloperExtrasMethodInfo ResolveSettingsMethod "setEnableDnsPrefetching" o = SettingsSetEnableDnsPrefetchingMethodInfo ResolveSettingsMethod "setEnableEncryptedMedia" o = SettingsSetEnableEncryptedMediaMethodInfo ResolveSettingsMethod "setEnableFrameFlattening" o = SettingsSetEnableFrameFlatteningMethodInfo ResolveSettingsMethod "setEnableFullscreen" o = SettingsSetEnableFullscreenMethodInfo ResolveSettingsMethod "setEnableHtml5Database" o = SettingsSetEnableHtml5DatabaseMethodInfo ResolveSettingsMethod "setEnableHtml5LocalStorage" o = SettingsSetEnableHtml5LocalStorageMethodInfo ResolveSettingsMethod "setEnableHyperlinkAuditing" o = SettingsSetEnableHyperlinkAuditingMethodInfo ResolveSettingsMethod "setEnableJava" o = SettingsSetEnableJavaMethodInfo ResolveSettingsMethod "setEnableJavascript" o = SettingsSetEnableJavascriptMethodInfo ResolveSettingsMethod "setEnableJavascriptMarkup" o = SettingsSetEnableJavascriptMarkupMethodInfo ResolveSettingsMethod "setEnableMediaCapabilities" o = SettingsSetEnableMediaCapabilitiesMethodInfo ResolveSettingsMethod "setEnableMediaStream" o = SettingsSetEnableMediaStreamMethodInfo ResolveSettingsMethod "setEnableMediasource" o = SettingsSetEnableMediasourceMethodInfo ResolveSettingsMethod "setEnableMockCaptureDevices" o = SettingsSetEnableMockCaptureDevicesMethodInfo ResolveSettingsMethod "setEnableOfflineWebApplicationCache" o = SettingsSetEnableOfflineWebApplicationCacheMethodInfo ResolveSettingsMethod "setEnablePageCache" o = SettingsSetEnablePageCacheMethodInfo ResolveSettingsMethod "setEnablePlugins" o = SettingsSetEnablePluginsMethodInfo ResolveSettingsMethod "setEnablePrivateBrowsing" o = SettingsSetEnablePrivateBrowsingMethodInfo ResolveSettingsMethod "setEnableResizableTextAreas" o = SettingsSetEnableResizableTextAreasMethodInfo ResolveSettingsMethod "setEnableSiteSpecificQuirks" o = SettingsSetEnableSiteSpecificQuirksMethodInfo ResolveSettingsMethod "setEnableSmoothScrolling" o = SettingsSetEnableSmoothScrollingMethodInfo ResolveSettingsMethod "setEnableSpatialNavigation" o = SettingsSetEnableSpatialNavigationMethodInfo ResolveSettingsMethod "setEnableTabsToLinks" o = SettingsSetEnableTabsToLinksMethodInfo ResolveSettingsMethod "setEnableWebaudio" o = SettingsSetEnableWebaudioMethodInfo ResolveSettingsMethod "setEnableWebgl" o = SettingsSetEnableWebglMethodInfo ResolveSettingsMethod "setEnableWriteConsoleMessagesToStdout" o = SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo ResolveSettingsMethod "setEnableXssAuditor" o = SettingsSetEnableXssAuditorMethodInfo ResolveSettingsMethod "setFantasyFontFamily" o = SettingsSetFantasyFontFamilyMethodInfo ResolveSettingsMethod "setHardwareAccelerationPolicy" o = SettingsSetHardwareAccelerationPolicyMethodInfo ResolveSettingsMethod "setJavascriptCanAccessClipboard" o = SettingsSetJavascriptCanAccessClipboardMethodInfo ResolveSettingsMethod "setJavascriptCanOpenWindowsAutomatically" o = SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo ResolveSettingsMethod "setLoadIconsIgnoringImageLoadSetting" o = SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo ResolveSettingsMethod "setMediaPlaybackAllowsInline" o = SettingsSetMediaPlaybackAllowsInlineMethodInfo ResolveSettingsMethod "setMediaPlaybackRequiresUserGesture" o = SettingsSetMediaPlaybackRequiresUserGestureMethodInfo ResolveSettingsMethod "setMinimumFontSize" o = SettingsSetMinimumFontSizeMethodInfo ResolveSettingsMethod "setMonospaceFontFamily" o = SettingsSetMonospaceFontFamilyMethodInfo ResolveSettingsMethod "setPictographFontFamily" o = SettingsSetPictographFontFamilyMethodInfo ResolveSettingsMethod "setPrintBackgrounds" o = SettingsSetPrintBackgroundsMethodInfo ResolveSettingsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo ResolveSettingsMethod "setSansSerifFontFamily" o = SettingsSetSansSerifFontFamilyMethodInfo ResolveSettingsMethod "setSerifFontFamily" o = SettingsSetSerifFontFamilyMethodInfo ResolveSettingsMethod "setUserAgent" o = SettingsSetUserAgentMethodInfo ResolveSettingsMethod "setUserAgentWithApplicationDetails" o = SettingsSetUserAgentWithApplicationDetailsMethodInfo ResolveSettingsMethod "setZoomTextOnly" o = SettingsSetZoomTextOnlyMethodInfo ResolveSettingsMethod l o = O.MethodResolutionFailed l o instance (info ~ ResolveSettingsMethod t Settings, O.MethodInfo info Settings p) => OL.IsLabel t (Settings -> p) where #if MIN_VERSION_base(4,10,0) fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #else fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #endif #endif -- VVV Prop "allow-file-access-from-file-urls" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@allow-file-access-from-file-urls@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #allowFileAccessFromFileUrls @ -} getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsAllowFileAccessFromFileUrls obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-file-access-from-file-urls" {- | Set the value of the “@allow-file-access-from-file-urls@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #allowFileAccessFromFileUrls 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsAllowFileAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsAllowFileAccessFromFileUrls obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-file-access-from-file-urls" val {- | Construct a `GValueConstruct` with valid value for the “@allow-file-access-from-file-urls@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsAllowFileAccessFromFileUrls :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsAllowFileAccessFromFileUrls val = B.Properties.constructObjectPropertyBool "allow-file-access-from-file-urls" val #if ENABLE_OVERLOADING data SettingsAllowFileAccessFromFileUrlsPropertyInfo instance AttrInfo SettingsAllowFileAccessFromFileUrlsPropertyInfo where type AttrAllowedOps SettingsAllowFileAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = IsSettings type AttrGetType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool type AttrLabel SettingsAllowFileAccessFromFileUrlsPropertyInfo = "allow-file-access-from-file-urls" type AttrOrigin SettingsAllowFileAccessFromFileUrlsPropertyInfo = Settings attrGet _ = getSettingsAllowFileAccessFromFileUrls attrSet _ = setSettingsAllowFileAccessFromFileUrls attrConstruct _ = constructSettingsAllowFileAccessFromFileUrls attrClear _ = undefined #endif -- VVV Prop "allow-modal-dialogs" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@allow-modal-dialogs@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #allowModalDialogs @ -} getSettingsAllowModalDialogs :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsAllowModalDialogs obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-modal-dialogs" {- | Set the value of the “@allow-modal-dialogs@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #allowModalDialogs 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsAllowModalDialogs :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsAllowModalDialogs obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-modal-dialogs" val {- | Construct a `GValueConstruct` with valid value for the “@allow-modal-dialogs@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsAllowModalDialogs :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsAllowModalDialogs val = B.Properties.constructObjectPropertyBool "allow-modal-dialogs" val #if ENABLE_OVERLOADING data SettingsAllowModalDialogsPropertyInfo instance AttrInfo SettingsAllowModalDialogsPropertyInfo where type AttrAllowedOps SettingsAllowModalDialogsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsAllowModalDialogsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsAllowModalDialogsPropertyInfo = IsSettings type AttrGetType SettingsAllowModalDialogsPropertyInfo = Bool type AttrLabel SettingsAllowModalDialogsPropertyInfo = "allow-modal-dialogs" type AttrOrigin SettingsAllowModalDialogsPropertyInfo = Settings attrGet _ = getSettingsAllowModalDialogs attrSet _ = setSettingsAllowModalDialogs attrConstruct _ = constructSettingsAllowModalDialogs attrClear _ = undefined #endif -- VVV Prop "allow-universal-access-from-file-urls" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@allow-universal-access-from-file-urls@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #allowUniversalAccessFromFileUrls @ -} getSettingsAllowUniversalAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsAllowUniversalAccessFromFileUrls obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-universal-access-from-file-urls" {- | Set the value of the “@allow-universal-access-from-file-urls@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #allowUniversalAccessFromFileUrls 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsAllowUniversalAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsAllowUniversalAccessFromFileUrls obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-universal-access-from-file-urls" val {- | Construct a `GValueConstruct` with valid value for the “@allow-universal-access-from-file-urls@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsAllowUniversalAccessFromFileUrls :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsAllowUniversalAccessFromFileUrls val = B.Properties.constructObjectPropertyBool "allow-universal-access-from-file-urls" val #if ENABLE_OVERLOADING data SettingsAllowUniversalAccessFromFileUrlsPropertyInfo instance AttrInfo SettingsAllowUniversalAccessFromFileUrlsPropertyInfo where type AttrAllowedOps SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = IsSettings type AttrGetType SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = Bool type AttrLabel SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = "allow-universal-access-from-file-urls" type AttrOrigin SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = Settings attrGet _ = getSettingsAllowUniversalAccessFromFileUrls attrSet _ = setSettingsAllowUniversalAccessFromFileUrls attrConstruct _ = constructSettingsAllowUniversalAccessFromFileUrls attrClear _ = undefined #endif -- VVV Prop "auto-load-images" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@auto-load-images@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #autoLoadImages @ -} getSettingsAutoLoadImages :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsAutoLoadImages obj = liftIO $ B.Properties.getObjectPropertyBool obj "auto-load-images" {- | Set the value of the “@auto-load-images@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #autoLoadImages 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsAutoLoadImages :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsAutoLoadImages obj val = liftIO $ B.Properties.setObjectPropertyBool obj "auto-load-images" val {- | Construct a `GValueConstruct` with valid value for the “@auto-load-images@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsAutoLoadImages :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsAutoLoadImages val = B.Properties.constructObjectPropertyBool "auto-load-images" val #if ENABLE_OVERLOADING data SettingsAutoLoadImagesPropertyInfo instance AttrInfo SettingsAutoLoadImagesPropertyInfo where type AttrAllowedOps SettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsAutoLoadImagesPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsAutoLoadImagesPropertyInfo = IsSettings type AttrGetType SettingsAutoLoadImagesPropertyInfo = Bool type AttrLabel SettingsAutoLoadImagesPropertyInfo = "auto-load-images" type AttrOrigin SettingsAutoLoadImagesPropertyInfo = Settings attrGet _ = getSettingsAutoLoadImages attrSet _ = setSettingsAutoLoadImages attrConstruct _ = constructSettingsAutoLoadImages attrClear _ = undefined #endif -- VVV Prop "cursive-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@cursive-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #cursiveFontFamily @ -} getSettingsCursiveFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text getSettingsCursiveFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsCursiveFontFamily" $ B.Properties.getObjectPropertyString obj "cursive-font-family" {- | Set the value of the “@cursive-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #cursiveFontFamily 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsCursiveFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m () setSettingsCursiveFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "cursive-font-family" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@cursive-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsCursiveFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o) constructSettingsCursiveFontFamily val = B.Properties.constructObjectPropertyString "cursive-font-family" (Just val) #if ENABLE_OVERLOADING data SettingsCursiveFontFamilyPropertyInfo instance AttrInfo SettingsCursiveFontFamilyPropertyInfo where type AttrAllowedOps SettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsCursiveFontFamilyPropertyInfo = IsSettings type AttrGetType SettingsCursiveFontFamilyPropertyInfo = T.Text type AttrLabel SettingsCursiveFontFamilyPropertyInfo = "cursive-font-family" type AttrOrigin SettingsCursiveFontFamilyPropertyInfo = Settings attrGet _ = getSettingsCursiveFontFamily attrSet _ = setSettingsCursiveFontFamily attrConstruct _ = constructSettingsCursiveFontFamily attrClear _ = undefined #endif -- VVV Prop "default-charset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@default-charset@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #defaultCharset @ -} getSettingsDefaultCharset :: (MonadIO m, IsSettings o) => o -> m T.Text getSettingsDefaultCharset obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultCharset" $ B.Properties.getObjectPropertyString obj "default-charset" {- | Set the value of the “@default-charset@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #defaultCharset 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsDefaultCharset :: (MonadIO m, IsSettings o) => o -> T.Text -> m () setSettingsDefaultCharset obj val = liftIO $ B.Properties.setObjectPropertyString obj "default-charset" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@default-charset@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsDefaultCharset :: (IsSettings o) => T.Text -> IO (GValueConstruct o) constructSettingsDefaultCharset val = B.Properties.constructObjectPropertyString "default-charset" (Just val) #if ENABLE_OVERLOADING data SettingsDefaultCharsetPropertyInfo instance AttrInfo SettingsDefaultCharsetPropertyInfo where type AttrAllowedOps SettingsDefaultCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsDefaultCharsetPropertyInfo = IsSettings type AttrGetType SettingsDefaultCharsetPropertyInfo = T.Text type AttrLabel SettingsDefaultCharsetPropertyInfo = "default-charset" type AttrOrigin SettingsDefaultCharsetPropertyInfo = Settings attrGet _ = getSettingsDefaultCharset attrSet _ = setSettingsDefaultCharset attrConstruct _ = constructSettingsDefaultCharset attrClear _ = undefined #endif -- VVV Prop "default-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@default-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #defaultFontFamily @ -} getSettingsDefaultFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text getSettingsDefaultFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultFontFamily" $ B.Properties.getObjectPropertyString obj "default-font-family" {- | Set the value of the “@default-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #defaultFontFamily 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsDefaultFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m () setSettingsDefaultFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "default-font-family" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@default-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsDefaultFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o) constructSettingsDefaultFontFamily val = B.Properties.constructObjectPropertyString "default-font-family" (Just val) #if ENABLE_OVERLOADING data SettingsDefaultFontFamilyPropertyInfo instance AttrInfo SettingsDefaultFontFamilyPropertyInfo where type AttrAllowedOps SettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsDefaultFontFamilyPropertyInfo = IsSettings type AttrGetType SettingsDefaultFontFamilyPropertyInfo = T.Text type AttrLabel SettingsDefaultFontFamilyPropertyInfo = "default-font-family" type AttrOrigin SettingsDefaultFontFamilyPropertyInfo = Settings attrGet _ = getSettingsDefaultFontFamily attrSet _ = setSettingsDefaultFontFamily attrConstruct _ = constructSettingsDefaultFontFamily attrClear _ = undefined #endif -- VVV Prop "default-font-size" -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@default-font-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #defaultFontSize @ -} getSettingsDefaultFontSize :: (MonadIO m, IsSettings o) => o -> m Word32 getSettingsDefaultFontSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "default-font-size" {- | Set the value of the “@default-font-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #defaultFontSize 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsDefaultFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m () setSettingsDefaultFontSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "default-font-size" val {- | Construct a `GValueConstruct` with valid value for the “@default-font-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsDefaultFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o) constructSettingsDefaultFontSize val = B.Properties.constructObjectPropertyUInt32 "default-font-size" val #if ENABLE_OVERLOADING data SettingsDefaultFontSizePropertyInfo instance AttrInfo SettingsDefaultFontSizePropertyInfo where type AttrAllowedOps SettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32 type AttrBaseTypeConstraint SettingsDefaultFontSizePropertyInfo = IsSettings type AttrGetType SettingsDefaultFontSizePropertyInfo = Word32 type AttrLabel SettingsDefaultFontSizePropertyInfo = "default-font-size" type AttrOrigin SettingsDefaultFontSizePropertyInfo = Settings attrGet _ = getSettingsDefaultFontSize attrSet _ = setSettingsDefaultFontSize attrConstruct _ = constructSettingsDefaultFontSize attrClear _ = undefined #endif -- VVV Prop "default-monospace-font-size" -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@default-monospace-font-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #defaultMonospaceFontSize @ -} getSettingsDefaultMonospaceFontSize :: (MonadIO m, IsSettings o) => o -> m Word32 getSettingsDefaultMonospaceFontSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "default-monospace-font-size" {- | Set the value of the “@default-monospace-font-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #defaultMonospaceFontSize 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsDefaultMonospaceFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m () setSettingsDefaultMonospaceFontSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "default-monospace-font-size" val {- | Construct a `GValueConstruct` with valid value for the “@default-monospace-font-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsDefaultMonospaceFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o) constructSettingsDefaultMonospaceFontSize val = B.Properties.constructObjectPropertyUInt32 "default-monospace-font-size" val #if ENABLE_OVERLOADING data SettingsDefaultMonospaceFontSizePropertyInfo instance AttrInfo SettingsDefaultMonospaceFontSizePropertyInfo where type AttrAllowedOps SettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32 type AttrBaseTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = IsSettings type AttrGetType SettingsDefaultMonospaceFontSizePropertyInfo = Word32 type AttrLabel SettingsDefaultMonospaceFontSizePropertyInfo = "default-monospace-font-size" type AttrOrigin SettingsDefaultMonospaceFontSizePropertyInfo = Settings attrGet _ = getSettingsDefaultMonospaceFontSize attrSet _ = setSettingsDefaultMonospaceFontSize attrConstruct _ = constructSettingsDefaultMonospaceFontSize attrClear _ = undefined #endif -- VVV Prop "draw-compositing-indicators" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@draw-compositing-indicators@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #drawCompositingIndicators @ -} getSettingsDrawCompositingIndicators :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsDrawCompositingIndicators obj = liftIO $ B.Properties.getObjectPropertyBool obj "draw-compositing-indicators" {- | Set the value of the “@draw-compositing-indicators@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #drawCompositingIndicators 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsDrawCompositingIndicators :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsDrawCompositingIndicators obj val = liftIO $ B.Properties.setObjectPropertyBool obj "draw-compositing-indicators" val {- | Construct a `GValueConstruct` with valid value for the “@draw-compositing-indicators@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsDrawCompositingIndicators :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsDrawCompositingIndicators val = B.Properties.constructObjectPropertyBool "draw-compositing-indicators" val #if ENABLE_OVERLOADING data SettingsDrawCompositingIndicatorsPropertyInfo instance AttrInfo SettingsDrawCompositingIndicatorsPropertyInfo where type AttrAllowedOps SettingsDrawCompositingIndicatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = IsSettings type AttrGetType SettingsDrawCompositingIndicatorsPropertyInfo = Bool type AttrLabel SettingsDrawCompositingIndicatorsPropertyInfo = "draw-compositing-indicators" type AttrOrigin SettingsDrawCompositingIndicatorsPropertyInfo = Settings attrGet _ = getSettingsDrawCompositingIndicators attrSet _ = setSettingsDrawCompositingIndicators attrConstruct _ = constructSettingsDrawCompositingIndicators attrClear _ = undefined #endif -- VVV Prop "enable-accelerated-2d-canvas" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-accelerated-2d-canvas@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableAccelerated2dCanvas @ -} getSettingsEnableAccelerated2dCanvas :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableAccelerated2dCanvas obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-accelerated-2d-canvas" {- | Set the value of the “@enable-accelerated-2d-canvas@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableAccelerated2dCanvas 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableAccelerated2dCanvas :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableAccelerated2dCanvas obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-accelerated-2d-canvas" val {- | Construct a `GValueConstruct` with valid value for the “@enable-accelerated-2d-canvas@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableAccelerated2dCanvas :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableAccelerated2dCanvas val = B.Properties.constructObjectPropertyBool "enable-accelerated-2d-canvas" val #if ENABLE_OVERLOADING data SettingsEnableAccelerated2dCanvasPropertyInfo instance AttrInfo SettingsEnableAccelerated2dCanvasPropertyInfo where type AttrAllowedOps SettingsEnableAccelerated2dCanvasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = IsSettings type AttrGetType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool type AttrLabel SettingsEnableAccelerated2dCanvasPropertyInfo = "enable-accelerated-2d-canvas" type AttrOrigin SettingsEnableAccelerated2dCanvasPropertyInfo = Settings attrGet _ = getSettingsEnableAccelerated2dCanvas attrSet _ = setSettingsEnableAccelerated2dCanvas attrConstruct _ = constructSettingsEnableAccelerated2dCanvas attrClear _ = undefined #endif -- VVV Prop "enable-back-forward-navigation-gestures" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-back-forward-navigation-gestures@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableBackForwardNavigationGestures @ -} getSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableBackForwardNavigationGestures obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-back-forward-navigation-gestures" {- | Set the value of the “@enable-back-forward-navigation-gestures@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableBackForwardNavigationGestures 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableBackForwardNavigationGestures obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-back-forward-navigation-gestures" val {- | Construct a `GValueConstruct` with valid value for the “@enable-back-forward-navigation-gestures@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableBackForwardNavigationGestures :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableBackForwardNavigationGestures val = B.Properties.constructObjectPropertyBool "enable-back-forward-navigation-gestures" val #if ENABLE_OVERLOADING data SettingsEnableBackForwardNavigationGesturesPropertyInfo instance AttrInfo SettingsEnableBackForwardNavigationGesturesPropertyInfo where type AttrAllowedOps SettingsEnableBackForwardNavigationGesturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableBackForwardNavigationGesturesPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableBackForwardNavigationGesturesPropertyInfo = IsSettings type AttrGetType SettingsEnableBackForwardNavigationGesturesPropertyInfo = Bool type AttrLabel SettingsEnableBackForwardNavigationGesturesPropertyInfo = "enable-back-forward-navigation-gestures" type AttrOrigin SettingsEnableBackForwardNavigationGesturesPropertyInfo = Settings attrGet _ = getSettingsEnableBackForwardNavigationGestures attrSet _ = setSettingsEnableBackForwardNavigationGestures attrConstruct _ = constructSettingsEnableBackForwardNavigationGestures attrClear _ = undefined #endif -- VVV Prop "enable-caret-browsing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-caret-browsing@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableCaretBrowsing @ -} getSettingsEnableCaretBrowsing :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableCaretBrowsing obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-caret-browsing" {- | Set the value of the “@enable-caret-browsing@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableCaretBrowsing 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableCaretBrowsing :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableCaretBrowsing obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-caret-browsing" val {- | Construct a `GValueConstruct` with valid value for the “@enable-caret-browsing@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableCaretBrowsing :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableCaretBrowsing val = B.Properties.constructObjectPropertyBool "enable-caret-browsing" val #if ENABLE_OVERLOADING data SettingsEnableCaretBrowsingPropertyInfo instance AttrInfo SettingsEnableCaretBrowsingPropertyInfo where type AttrAllowedOps SettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = IsSettings type AttrGetType SettingsEnableCaretBrowsingPropertyInfo = Bool type AttrLabel SettingsEnableCaretBrowsingPropertyInfo = "enable-caret-browsing" type AttrOrigin SettingsEnableCaretBrowsingPropertyInfo = Settings attrGet _ = getSettingsEnableCaretBrowsing attrSet _ = setSettingsEnableCaretBrowsing attrConstruct _ = constructSettingsEnableCaretBrowsing attrClear _ = undefined #endif -- VVV Prop "enable-developer-extras" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-developer-extras@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableDeveloperExtras @ -} getSettingsEnableDeveloperExtras :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableDeveloperExtras obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-developer-extras" {- | Set the value of the “@enable-developer-extras@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableDeveloperExtras 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableDeveloperExtras :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableDeveloperExtras obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-developer-extras" val {- | Construct a `GValueConstruct` with valid value for the “@enable-developer-extras@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableDeveloperExtras :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableDeveloperExtras val = B.Properties.constructObjectPropertyBool "enable-developer-extras" val #if ENABLE_OVERLOADING data SettingsEnableDeveloperExtrasPropertyInfo instance AttrInfo SettingsEnableDeveloperExtrasPropertyInfo where type AttrAllowedOps SettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = IsSettings type AttrGetType SettingsEnableDeveloperExtrasPropertyInfo = Bool type AttrLabel SettingsEnableDeveloperExtrasPropertyInfo = "enable-developer-extras" type AttrOrigin SettingsEnableDeveloperExtrasPropertyInfo = Settings attrGet _ = getSettingsEnableDeveloperExtras attrSet _ = setSettingsEnableDeveloperExtras attrConstruct _ = constructSettingsEnableDeveloperExtras attrClear _ = undefined #endif -- VVV Prop "enable-dns-prefetching" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-dns-prefetching@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableDnsPrefetching @ -} getSettingsEnableDnsPrefetching :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableDnsPrefetching obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-dns-prefetching" {- | Set the value of the “@enable-dns-prefetching@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableDnsPrefetching 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableDnsPrefetching :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableDnsPrefetching obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-dns-prefetching" val {- | Construct a `GValueConstruct` with valid value for the “@enable-dns-prefetching@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableDnsPrefetching :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableDnsPrefetching val = B.Properties.constructObjectPropertyBool "enable-dns-prefetching" val #if ENABLE_OVERLOADING data SettingsEnableDnsPrefetchingPropertyInfo instance AttrInfo SettingsEnableDnsPrefetchingPropertyInfo where type AttrAllowedOps SettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = IsSettings type AttrGetType SettingsEnableDnsPrefetchingPropertyInfo = Bool type AttrLabel SettingsEnableDnsPrefetchingPropertyInfo = "enable-dns-prefetching" type AttrOrigin SettingsEnableDnsPrefetchingPropertyInfo = Settings attrGet _ = getSettingsEnableDnsPrefetching attrSet _ = setSettingsEnableDnsPrefetching attrConstruct _ = constructSettingsEnableDnsPrefetching attrClear _ = undefined #endif -- VVV Prop "enable-encrypted-media" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-encrypted-media@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableEncryptedMedia @ -} getSettingsEnableEncryptedMedia :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableEncryptedMedia obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-encrypted-media" {- | Set the value of the “@enable-encrypted-media@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableEncryptedMedia 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableEncryptedMedia :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableEncryptedMedia obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-encrypted-media" val {- | Construct a `GValueConstruct` with valid value for the “@enable-encrypted-media@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableEncryptedMedia :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableEncryptedMedia val = B.Properties.constructObjectPropertyBool "enable-encrypted-media" val #if ENABLE_OVERLOADING data SettingsEnableEncryptedMediaPropertyInfo instance AttrInfo SettingsEnableEncryptedMediaPropertyInfo where type AttrAllowedOps SettingsEnableEncryptedMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableEncryptedMediaPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableEncryptedMediaPropertyInfo = IsSettings type AttrGetType SettingsEnableEncryptedMediaPropertyInfo = Bool type AttrLabel SettingsEnableEncryptedMediaPropertyInfo = "enable-encrypted-media" type AttrOrigin SettingsEnableEncryptedMediaPropertyInfo = Settings attrGet _ = getSettingsEnableEncryptedMedia attrSet _ = setSettingsEnableEncryptedMedia attrConstruct _ = constructSettingsEnableEncryptedMedia attrClear _ = undefined #endif -- VVV Prop "enable-frame-flattening" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-frame-flattening@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableFrameFlattening @ -} getSettingsEnableFrameFlattening :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableFrameFlattening obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-frame-flattening" {- | Set the value of the “@enable-frame-flattening@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableFrameFlattening 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableFrameFlattening :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableFrameFlattening obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-frame-flattening" val {- | Construct a `GValueConstruct` with valid value for the “@enable-frame-flattening@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableFrameFlattening :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableFrameFlattening val = B.Properties.constructObjectPropertyBool "enable-frame-flattening" val #if ENABLE_OVERLOADING data SettingsEnableFrameFlatteningPropertyInfo instance AttrInfo SettingsEnableFrameFlatteningPropertyInfo where type AttrAllowedOps SettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = IsSettings type AttrGetType SettingsEnableFrameFlatteningPropertyInfo = Bool type AttrLabel SettingsEnableFrameFlatteningPropertyInfo = "enable-frame-flattening" type AttrOrigin SettingsEnableFrameFlatteningPropertyInfo = Settings attrGet _ = getSettingsEnableFrameFlattening attrSet _ = setSettingsEnableFrameFlattening attrConstruct _ = constructSettingsEnableFrameFlattening attrClear _ = undefined #endif -- VVV Prop "enable-fullscreen" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-fullscreen@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableFullscreen @ -} getSettingsEnableFullscreen :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableFullscreen obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-fullscreen" {- | Set the value of the “@enable-fullscreen@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableFullscreen 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableFullscreen :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableFullscreen obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-fullscreen" val {- | Construct a `GValueConstruct` with valid value for the “@enable-fullscreen@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableFullscreen :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableFullscreen val = B.Properties.constructObjectPropertyBool "enable-fullscreen" val #if ENABLE_OVERLOADING data SettingsEnableFullscreenPropertyInfo instance AttrInfo SettingsEnableFullscreenPropertyInfo where type AttrAllowedOps SettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableFullscreenPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableFullscreenPropertyInfo = IsSettings type AttrGetType SettingsEnableFullscreenPropertyInfo = Bool type AttrLabel SettingsEnableFullscreenPropertyInfo = "enable-fullscreen" type AttrOrigin SettingsEnableFullscreenPropertyInfo = Settings attrGet _ = getSettingsEnableFullscreen attrSet _ = setSettingsEnableFullscreen attrConstruct _ = constructSettingsEnableFullscreen attrClear _ = undefined #endif -- VVV Prop "enable-html5-database" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-html5-database@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableHtml5Database @ -} getSettingsEnableHtml5Database :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableHtml5Database obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-html5-database" {- | Set the value of the “@enable-html5-database@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableHtml5Database 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableHtml5Database :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableHtml5Database obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-html5-database" val {- | Construct a `GValueConstruct` with valid value for the “@enable-html5-database@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableHtml5Database :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableHtml5Database val = B.Properties.constructObjectPropertyBool "enable-html5-database" val #if ENABLE_OVERLOADING data SettingsEnableHtml5DatabasePropertyInfo instance AttrInfo SettingsEnableHtml5DatabasePropertyInfo where type AttrAllowedOps SettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = IsSettings type AttrGetType SettingsEnableHtml5DatabasePropertyInfo = Bool type AttrLabel SettingsEnableHtml5DatabasePropertyInfo = "enable-html5-database" type AttrOrigin SettingsEnableHtml5DatabasePropertyInfo = Settings attrGet _ = getSettingsEnableHtml5Database attrSet _ = setSettingsEnableHtml5Database attrConstruct _ = constructSettingsEnableHtml5Database attrClear _ = undefined #endif -- VVV Prop "enable-html5-local-storage" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-html5-local-storage@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableHtml5LocalStorage @ -} getSettingsEnableHtml5LocalStorage :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableHtml5LocalStorage obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-html5-local-storage" {- | Set the value of the “@enable-html5-local-storage@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableHtml5LocalStorage 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableHtml5LocalStorage :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableHtml5LocalStorage obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-html5-local-storage" val {- | Construct a `GValueConstruct` with valid value for the “@enable-html5-local-storage@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableHtml5LocalStorage :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableHtml5LocalStorage val = B.Properties.constructObjectPropertyBool "enable-html5-local-storage" val #if ENABLE_OVERLOADING data SettingsEnableHtml5LocalStoragePropertyInfo instance AttrInfo SettingsEnableHtml5LocalStoragePropertyInfo where type AttrAllowedOps SettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = IsSettings type AttrGetType SettingsEnableHtml5LocalStoragePropertyInfo = Bool type AttrLabel SettingsEnableHtml5LocalStoragePropertyInfo = "enable-html5-local-storage" type AttrOrigin SettingsEnableHtml5LocalStoragePropertyInfo = Settings attrGet _ = getSettingsEnableHtml5LocalStorage attrSet _ = setSettingsEnableHtml5LocalStorage attrConstruct _ = constructSettingsEnableHtml5LocalStorage attrClear _ = undefined #endif -- VVV Prop "enable-hyperlink-auditing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-hyperlink-auditing@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableHyperlinkAuditing @ -} getSettingsEnableHyperlinkAuditing :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableHyperlinkAuditing obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-hyperlink-auditing" {- | Set the value of the “@enable-hyperlink-auditing@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableHyperlinkAuditing 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableHyperlinkAuditing :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableHyperlinkAuditing obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-hyperlink-auditing" val {- | Construct a `GValueConstruct` with valid value for the “@enable-hyperlink-auditing@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableHyperlinkAuditing :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableHyperlinkAuditing val = B.Properties.constructObjectPropertyBool "enable-hyperlink-auditing" val #if ENABLE_OVERLOADING data SettingsEnableHyperlinkAuditingPropertyInfo instance AttrInfo SettingsEnableHyperlinkAuditingPropertyInfo where type AttrAllowedOps SettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = IsSettings type AttrGetType SettingsEnableHyperlinkAuditingPropertyInfo = Bool type AttrLabel SettingsEnableHyperlinkAuditingPropertyInfo = "enable-hyperlink-auditing" type AttrOrigin SettingsEnableHyperlinkAuditingPropertyInfo = Settings attrGet _ = getSettingsEnableHyperlinkAuditing attrSet _ = setSettingsEnableHyperlinkAuditing attrConstruct _ = constructSettingsEnableHyperlinkAuditing attrClear _ = undefined #endif -- VVV Prop "enable-java" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-java@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableJava @ -} getSettingsEnableJava :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableJava obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-java" {- | Set the value of the “@enable-java@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableJava 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableJava :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableJava obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-java" val {- | Construct a `GValueConstruct` with valid value for the “@enable-java@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableJava :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableJava val = B.Properties.constructObjectPropertyBool "enable-java" val #if ENABLE_OVERLOADING data SettingsEnableJavaPropertyInfo instance AttrInfo SettingsEnableJavaPropertyInfo where type AttrAllowedOps SettingsEnableJavaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableJavaPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableJavaPropertyInfo = IsSettings type AttrGetType SettingsEnableJavaPropertyInfo = Bool type AttrLabel SettingsEnableJavaPropertyInfo = "enable-java" type AttrOrigin SettingsEnableJavaPropertyInfo = Settings attrGet _ = getSettingsEnableJava attrSet _ = setSettingsEnableJava attrConstruct _ = constructSettingsEnableJava attrClear _ = undefined #endif -- VVV Prop "enable-javascript" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-javascript@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableJavascript @ -} getSettingsEnableJavascript :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableJavascript obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-javascript" {- | Set the value of the “@enable-javascript@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableJavascript 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableJavascript :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableJavascript obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-javascript" val {- | Construct a `GValueConstruct` with valid value for the “@enable-javascript@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableJavascript :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableJavascript val = B.Properties.constructObjectPropertyBool "enable-javascript" val #if ENABLE_OVERLOADING data SettingsEnableJavascriptPropertyInfo instance AttrInfo SettingsEnableJavascriptPropertyInfo where type AttrAllowedOps SettingsEnableJavascriptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableJavascriptPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableJavascriptPropertyInfo = IsSettings type AttrGetType SettingsEnableJavascriptPropertyInfo = Bool type AttrLabel SettingsEnableJavascriptPropertyInfo = "enable-javascript" type AttrOrigin SettingsEnableJavascriptPropertyInfo = Settings attrGet _ = getSettingsEnableJavascript attrSet _ = setSettingsEnableJavascript attrConstruct _ = constructSettingsEnableJavascript attrClear _ = undefined #endif -- VVV Prop "enable-javascript-markup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-javascript-markup@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableJavascriptMarkup @ -} getSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableJavascriptMarkup obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-javascript-markup" {- | Set the value of the “@enable-javascript-markup@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableJavascriptMarkup 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableJavascriptMarkup obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-javascript-markup" val {- | Construct a `GValueConstruct` with valid value for the “@enable-javascript-markup@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableJavascriptMarkup :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableJavascriptMarkup val = B.Properties.constructObjectPropertyBool "enable-javascript-markup" val #if ENABLE_OVERLOADING data SettingsEnableJavascriptMarkupPropertyInfo instance AttrInfo SettingsEnableJavascriptMarkupPropertyInfo where type AttrAllowedOps SettingsEnableJavascriptMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableJavascriptMarkupPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableJavascriptMarkupPropertyInfo = IsSettings type AttrGetType SettingsEnableJavascriptMarkupPropertyInfo = Bool type AttrLabel SettingsEnableJavascriptMarkupPropertyInfo = "enable-javascript-markup" type AttrOrigin SettingsEnableJavascriptMarkupPropertyInfo = Settings attrGet _ = getSettingsEnableJavascriptMarkup attrSet _ = setSettingsEnableJavascriptMarkup attrConstruct _ = constructSettingsEnableJavascriptMarkup attrClear _ = undefined #endif -- VVV Prop "enable-media-capabilities" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-media-capabilities@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableMediaCapabilities @ -} getSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableMediaCapabilities obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-media-capabilities" {- | Set the value of the “@enable-media-capabilities@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableMediaCapabilities 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableMediaCapabilities obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-media-capabilities" val {- | Construct a `GValueConstruct` with valid value for the “@enable-media-capabilities@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableMediaCapabilities :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableMediaCapabilities val = B.Properties.constructObjectPropertyBool "enable-media-capabilities" val #if ENABLE_OVERLOADING data SettingsEnableMediaCapabilitiesPropertyInfo instance AttrInfo SettingsEnableMediaCapabilitiesPropertyInfo where type AttrAllowedOps SettingsEnableMediaCapabilitiesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableMediaCapabilitiesPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableMediaCapabilitiesPropertyInfo = IsSettings type AttrGetType SettingsEnableMediaCapabilitiesPropertyInfo = Bool type AttrLabel SettingsEnableMediaCapabilitiesPropertyInfo = "enable-media-capabilities" type AttrOrigin SettingsEnableMediaCapabilitiesPropertyInfo = Settings attrGet _ = getSettingsEnableMediaCapabilities attrSet _ = setSettingsEnableMediaCapabilities attrConstruct _ = constructSettingsEnableMediaCapabilities attrClear _ = undefined #endif -- VVV Prop "enable-media-stream" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-media-stream@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableMediaStream @ -} getSettingsEnableMediaStream :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableMediaStream obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-media-stream" {- | Set the value of the “@enable-media-stream@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableMediaStream 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableMediaStream :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableMediaStream obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-media-stream" val {- | Construct a `GValueConstruct` with valid value for the “@enable-media-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableMediaStream :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableMediaStream val = B.Properties.constructObjectPropertyBool "enable-media-stream" val #if ENABLE_OVERLOADING data SettingsEnableMediaStreamPropertyInfo instance AttrInfo SettingsEnableMediaStreamPropertyInfo where type AttrAllowedOps SettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableMediaStreamPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableMediaStreamPropertyInfo = IsSettings type AttrGetType SettingsEnableMediaStreamPropertyInfo = Bool type AttrLabel SettingsEnableMediaStreamPropertyInfo = "enable-media-stream" type AttrOrigin SettingsEnableMediaStreamPropertyInfo = Settings attrGet _ = getSettingsEnableMediaStream attrSet _ = setSettingsEnableMediaStream attrConstruct _ = constructSettingsEnableMediaStream attrClear _ = undefined #endif -- VVV Prop "enable-mediasource" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-mediasource@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableMediasource @ -} getSettingsEnableMediasource :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableMediasource obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-mediasource" {- | Set the value of the “@enable-mediasource@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableMediasource 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableMediasource :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableMediasource obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-mediasource" val {- | Construct a `GValueConstruct` with valid value for the “@enable-mediasource@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableMediasource :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableMediasource val = B.Properties.constructObjectPropertyBool "enable-mediasource" val #if ENABLE_OVERLOADING data SettingsEnableMediasourcePropertyInfo instance AttrInfo SettingsEnableMediasourcePropertyInfo where type AttrAllowedOps SettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableMediasourcePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableMediasourcePropertyInfo = IsSettings type AttrGetType SettingsEnableMediasourcePropertyInfo = Bool type AttrLabel SettingsEnableMediasourcePropertyInfo = "enable-mediasource" type AttrOrigin SettingsEnableMediasourcePropertyInfo = Settings attrGet _ = getSettingsEnableMediasource attrSet _ = setSettingsEnableMediasource attrConstruct _ = constructSettingsEnableMediasource attrClear _ = undefined #endif -- VVV Prop "enable-mock-capture-devices" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-mock-capture-devices@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableMockCaptureDevices @ -} getSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableMockCaptureDevices obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-mock-capture-devices" {- | Set the value of the “@enable-mock-capture-devices@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableMockCaptureDevices 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableMockCaptureDevices obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-mock-capture-devices" val {- | Construct a `GValueConstruct` with valid value for the “@enable-mock-capture-devices@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableMockCaptureDevices :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableMockCaptureDevices val = B.Properties.constructObjectPropertyBool "enable-mock-capture-devices" val #if ENABLE_OVERLOADING data SettingsEnableMockCaptureDevicesPropertyInfo instance AttrInfo SettingsEnableMockCaptureDevicesPropertyInfo where type AttrAllowedOps SettingsEnableMockCaptureDevicesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableMockCaptureDevicesPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableMockCaptureDevicesPropertyInfo = IsSettings type AttrGetType SettingsEnableMockCaptureDevicesPropertyInfo = Bool type AttrLabel SettingsEnableMockCaptureDevicesPropertyInfo = "enable-mock-capture-devices" type AttrOrigin SettingsEnableMockCaptureDevicesPropertyInfo = Settings attrGet _ = getSettingsEnableMockCaptureDevices attrSet _ = setSettingsEnableMockCaptureDevices attrConstruct _ = constructSettingsEnableMockCaptureDevices attrClear _ = undefined #endif -- VVV Prop "enable-offline-web-application-cache" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-offline-web-application-cache@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableOfflineWebApplicationCache @ -} getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableOfflineWebApplicationCache obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-offline-web-application-cache" {- | Set the value of the “@enable-offline-web-application-cache@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableOfflineWebApplicationCache 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableOfflineWebApplicationCache :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableOfflineWebApplicationCache obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-offline-web-application-cache" val {- | Construct a `GValueConstruct` with valid value for the “@enable-offline-web-application-cache@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableOfflineWebApplicationCache :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableOfflineWebApplicationCache val = B.Properties.constructObjectPropertyBool "enable-offline-web-application-cache" val #if ENABLE_OVERLOADING data SettingsEnableOfflineWebApplicationCachePropertyInfo instance AttrInfo SettingsEnableOfflineWebApplicationCachePropertyInfo where type AttrAllowedOps SettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = IsSettings type AttrGetType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool type AttrLabel SettingsEnableOfflineWebApplicationCachePropertyInfo = "enable-offline-web-application-cache" type AttrOrigin SettingsEnableOfflineWebApplicationCachePropertyInfo = Settings attrGet _ = getSettingsEnableOfflineWebApplicationCache attrSet _ = setSettingsEnableOfflineWebApplicationCache attrConstruct _ = constructSettingsEnableOfflineWebApplicationCache attrClear _ = undefined #endif -- VVV Prop "enable-page-cache" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-page-cache@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enablePageCache @ -} getSettingsEnablePageCache :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnablePageCache obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-page-cache" {- | Set the value of the “@enable-page-cache@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enablePageCache 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnablePageCache :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnablePageCache obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-page-cache" val {- | Construct a `GValueConstruct` with valid value for the “@enable-page-cache@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnablePageCache :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnablePageCache val = B.Properties.constructObjectPropertyBool "enable-page-cache" val #if ENABLE_OVERLOADING data SettingsEnablePageCachePropertyInfo instance AttrInfo SettingsEnablePageCachePropertyInfo where type AttrAllowedOps SettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnablePageCachePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnablePageCachePropertyInfo = IsSettings type AttrGetType SettingsEnablePageCachePropertyInfo = Bool type AttrLabel SettingsEnablePageCachePropertyInfo = "enable-page-cache" type AttrOrigin SettingsEnablePageCachePropertyInfo = Settings attrGet _ = getSettingsEnablePageCache attrSet _ = setSettingsEnablePageCache attrConstruct _ = constructSettingsEnablePageCache attrClear _ = undefined #endif -- VVV Prop "enable-plugins" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-plugins@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enablePlugins @ -} getSettingsEnablePlugins :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnablePlugins obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-plugins" {- | Set the value of the “@enable-plugins@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enablePlugins 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnablePlugins :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnablePlugins obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-plugins" val {- | Construct a `GValueConstruct` with valid value for the “@enable-plugins@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnablePlugins :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnablePlugins val = B.Properties.constructObjectPropertyBool "enable-plugins" val #if ENABLE_OVERLOADING data SettingsEnablePluginsPropertyInfo instance AttrInfo SettingsEnablePluginsPropertyInfo where type AttrAllowedOps SettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnablePluginsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnablePluginsPropertyInfo = IsSettings type AttrGetType SettingsEnablePluginsPropertyInfo = Bool type AttrLabel SettingsEnablePluginsPropertyInfo = "enable-plugins" type AttrOrigin SettingsEnablePluginsPropertyInfo = Settings attrGet _ = getSettingsEnablePlugins attrSet _ = setSettingsEnablePlugins attrConstruct _ = constructSettingsEnablePlugins attrClear _ = undefined #endif -- VVV Prop "enable-private-browsing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-private-browsing@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enablePrivateBrowsing @ -} getSettingsEnablePrivateBrowsing :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnablePrivateBrowsing obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-private-browsing" {- | Set the value of the “@enable-private-browsing@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enablePrivateBrowsing 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnablePrivateBrowsing :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnablePrivateBrowsing obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-private-browsing" val {- | Construct a `GValueConstruct` with valid value for the “@enable-private-browsing@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnablePrivateBrowsing :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnablePrivateBrowsing val = B.Properties.constructObjectPropertyBool "enable-private-browsing" val #if ENABLE_OVERLOADING data SettingsEnablePrivateBrowsingPropertyInfo instance AttrInfo SettingsEnablePrivateBrowsingPropertyInfo where type AttrAllowedOps SettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = IsSettings type AttrGetType SettingsEnablePrivateBrowsingPropertyInfo = Bool type AttrLabel SettingsEnablePrivateBrowsingPropertyInfo = "enable-private-browsing" type AttrOrigin SettingsEnablePrivateBrowsingPropertyInfo = Settings attrGet _ = getSettingsEnablePrivateBrowsing attrSet _ = setSettingsEnablePrivateBrowsing attrConstruct _ = constructSettingsEnablePrivateBrowsing attrClear _ = undefined #endif -- VVV Prop "enable-resizable-text-areas" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-resizable-text-areas@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableResizableTextAreas @ -} getSettingsEnableResizableTextAreas :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableResizableTextAreas obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-resizable-text-areas" {- | Set the value of the “@enable-resizable-text-areas@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableResizableTextAreas 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableResizableTextAreas :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableResizableTextAreas obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-resizable-text-areas" val {- | Construct a `GValueConstruct` with valid value for the “@enable-resizable-text-areas@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableResizableTextAreas :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableResizableTextAreas val = B.Properties.constructObjectPropertyBool "enable-resizable-text-areas" val #if ENABLE_OVERLOADING data SettingsEnableResizableTextAreasPropertyInfo instance AttrInfo SettingsEnableResizableTextAreasPropertyInfo where type AttrAllowedOps SettingsEnableResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = IsSettings type AttrGetType SettingsEnableResizableTextAreasPropertyInfo = Bool type AttrLabel SettingsEnableResizableTextAreasPropertyInfo = "enable-resizable-text-areas" type AttrOrigin SettingsEnableResizableTextAreasPropertyInfo = Settings attrGet _ = getSettingsEnableResizableTextAreas attrSet _ = setSettingsEnableResizableTextAreas attrConstruct _ = constructSettingsEnableResizableTextAreas attrClear _ = undefined #endif -- VVV Prop "enable-site-specific-quirks" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-site-specific-quirks@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableSiteSpecificQuirks @ -} getSettingsEnableSiteSpecificQuirks :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableSiteSpecificQuirks obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-site-specific-quirks" {- | Set the value of the “@enable-site-specific-quirks@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableSiteSpecificQuirks 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableSiteSpecificQuirks :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableSiteSpecificQuirks obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-site-specific-quirks" val {- | Construct a `GValueConstruct` with valid value for the “@enable-site-specific-quirks@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableSiteSpecificQuirks :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableSiteSpecificQuirks val = B.Properties.constructObjectPropertyBool "enable-site-specific-quirks" val #if ENABLE_OVERLOADING data SettingsEnableSiteSpecificQuirksPropertyInfo instance AttrInfo SettingsEnableSiteSpecificQuirksPropertyInfo where type AttrAllowedOps SettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = IsSettings type AttrGetType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool type AttrLabel SettingsEnableSiteSpecificQuirksPropertyInfo = "enable-site-specific-quirks" type AttrOrigin SettingsEnableSiteSpecificQuirksPropertyInfo = Settings attrGet _ = getSettingsEnableSiteSpecificQuirks attrSet _ = setSettingsEnableSiteSpecificQuirks attrConstruct _ = constructSettingsEnableSiteSpecificQuirks attrClear _ = undefined #endif -- VVV Prop "enable-smooth-scrolling" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-smooth-scrolling@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableSmoothScrolling @ -} getSettingsEnableSmoothScrolling :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableSmoothScrolling obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-smooth-scrolling" {- | Set the value of the “@enable-smooth-scrolling@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableSmoothScrolling 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableSmoothScrolling :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableSmoothScrolling obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-smooth-scrolling" val {- | Construct a `GValueConstruct` with valid value for the “@enable-smooth-scrolling@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableSmoothScrolling :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableSmoothScrolling val = B.Properties.constructObjectPropertyBool "enable-smooth-scrolling" val #if ENABLE_OVERLOADING data SettingsEnableSmoothScrollingPropertyInfo instance AttrInfo SettingsEnableSmoothScrollingPropertyInfo where type AttrAllowedOps SettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = IsSettings type AttrGetType SettingsEnableSmoothScrollingPropertyInfo = Bool type AttrLabel SettingsEnableSmoothScrollingPropertyInfo = "enable-smooth-scrolling" type AttrOrigin SettingsEnableSmoothScrollingPropertyInfo = Settings attrGet _ = getSettingsEnableSmoothScrolling attrSet _ = setSettingsEnableSmoothScrolling attrConstruct _ = constructSettingsEnableSmoothScrolling attrClear _ = undefined #endif -- VVV Prop "enable-spatial-navigation" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-spatial-navigation@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableSpatialNavigation @ -} getSettingsEnableSpatialNavigation :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableSpatialNavigation obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-spatial-navigation" {- | Set the value of the “@enable-spatial-navigation@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableSpatialNavigation 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableSpatialNavigation :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableSpatialNavigation obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-spatial-navigation" val {- | Construct a `GValueConstruct` with valid value for the “@enable-spatial-navigation@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableSpatialNavigation :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableSpatialNavigation val = B.Properties.constructObjectPropertyBool "enable-spatial-navigation" val #if ENABLE_OVERLOADING data SettingsEnableSpatialNavigationPropertyInfo instance AttrInfo SettingsEnableSpatialNavigationPropertyInfo where type AttrAllowedOps SettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = IsSettings type AttrGetType SettingsEnableSpatialNavigationPropertyInfo = Bool type AttrLabel SettingsEnableSpatialNavigationPropertyInfo = "enable-spatial-navigation" type AttrOrigin SettingsEnableSpatialNavigationPropertyInfo = Settings attrGet _ = getSettingsEnableSpatialNavigation attrSet _ = setSettingsEnableSpatialNavigation attrConstruct _ = constructSettingsEnableSpatialNavigation attrClear _ = undefined #endif -- VVV Prop "enable-tabs-to-links" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-tabs-to-links@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableTabsToLinks @ -} getSettingsEnableTabsToLinks :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableTabsToLinks obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-tabs-to-links" {- | Set the value of the “@enable-tabs-to-links@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableTabsToLinks 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableTabsToLinks :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableTabsToLinks obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-tabs-to-links" val {- | Construct a `GValueConstruct` with valid value for the “@enable-tabs-to-links@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableTabsToLinks :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableTabsToLinks val = B.Properties.constructObjectPropertyBool "enable-tabs-to-links" val #if ENABLE_OVERLOADING data SettingsEnableTabsToLinksPropertyInfo instance AttrInfo SettingsEnableTabsToLinksPropertyInfo where type AttrAllowedOps SettingsEnableTabsToLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableTabsToLinksPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableTabsToLinksPropertyInfo = IsSettings type AttrGetType SettingsEnableTabsToLinksPropertyInfo = Bool type AttrLabel SettingsEnableTabsToLinksPropertyInfo = "enable-tabs-to-links" type AttrOrigin SettingsEnableTabsToLinksPropertyInfo = Settings attrGet _ = getSettingsEnableTabsToLinks attrSet _ = setSettingsEnableTabsToLinks attrConstruct _ = constructSettingsEnableTabsToLinks attrClear _ = undefined #endif -- VVV Prop "enable-webaudio" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-webaudio@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableWebaudio @ -} getSettingsEnableWebaudio :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableWebaudio obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-webaudio" {- | Set the value of the “@enable-webaudio@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableWebaudio 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableWebaudio :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableWebaudio obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-webaudio" val {- | Construct a `GValueConstruct` with valid value for the “@enable-webaudio@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableWebaudio :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableWebaudio val = B.Properties.constructObjectPropertyBool "enable-webaudio" val #if ENABLE_OVERLOADING data SettingsEnableWebaudioPropertyInfo instance AttrInfo SettingsEnableWebaudioPropertyInfo where type AttrAllowedOps SettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableWebaudioPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableWebaudioPropertyInfo = IsSettings type AttrGetType SettingsEnableWebaudioPropertyInfo = Bool type AttrLabel SettingsEnableWebaudioPropertyInfo = "enable-webaudio" type AttrOrigin SettingsEnableWebaudioPropertyInfo = Settings attrGet _ = getSettingsEnableWebaudio attrSet _ = setSettingsEnableWebaudio attrConstruct _ = constructSettingsEnableWebaudio attrClear _ = undefined #endif -- VVV Prop "enable-webgl" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-webgl@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableWebgl @ -} getSettingsEnableWebgl :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableWebgl obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-webgl" {- | Set the value of the “@enable-webgl@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableWebgl 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableWebgl :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableWebgl obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-webgl" val {- | Construct a `GValueConstruct` with valid value for the “@enable-webgl@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableWebgl :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableWebgl val = B.Properties.constructObjectPropertyBool "enable-webgl" val #if ENABLE_OVERLOADING data SettingsEnableWebglPropertyInfo instance AttrInfo SettingsEnableWebglPropertyInfo where type AttrAllowedOps SettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableWebglPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableWebglPropertyInfo = IsSettings type AttrGetType SettingsEnableWebglPropertyInfo = Bool type AttrLabel SettingsEnableWebglPropertyInfo = "enable-webgl" type AttrOrigin SettingsEnableWebglPropertyInfo = Settings attrGet _ = getSettingsEnableWebgl attrSet _ = setSettingsEnableWebgl attrConstruct _ = constructSettingsEnableWebgl attrClear _ = undefined #endif -- VVV Prop "enable-write-console-messages-to-stdout" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-write-console-messages-to-stdout@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableWriteConsoleMessagesToStdout @ -} getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableWriteConsoleMessagesToStdout obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-write-console-messages-to-stdout" {- | Set the value of the “@enable-write-console-messages-to-stdout@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableWriteConsoleMessagesToStdout 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableWriteConsoleMessagesToStdout obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-write-console-messages-to-stdout" val {- | Construct a `GValueConstruct` with valid value for the “@enable-write-console-messages-to-stdout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableWriteConsoleMessagesToStdout :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableWriteConsoleMessagesToStdout val = B.Properties.constructObjectPropertyBool "enable-write-console-messages-to-stdout" val #if ENABLE_OVERLOADING data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo instance AttrInfo SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo where type AttrAllowedOps SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = IsSettings type AttrGetType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool type AttrLabel SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = "enable-write-console-messages-to-stdout" type AttrOrigin SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Settings attrGet _ = getSettingsEnableWriteConsoleMessagesToStdout attrSet _ = setSettingsEnableWriteConsoleMessagesToStdout attrConstruct _ = constructSettingsEnableWriteConsoleMessagesToStdout attrClear _ = undefined #endif -- VVV Prop "enable-xss-auditor" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@enable-xss-auditor@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #enableXssAuditor @ -} getSettingsEnableXssAuditor :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsEnableXssAuditor obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-xss-auditor" {- | Set the value of the “@enable-xss-auditor@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #enableXssAuditor 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsEnableXssAuditor :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsEnableXssAuditor obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-xss-auditor" val {- | Construct a `GValueConstruct` with valid value for the “@enable-xss-auditor@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsEnableXssAuditor :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsEnableXssAuditor val = B.Properties.constructObjectPropertyBool "enable-xss-auditor" val #if ENABLE_OVERLOADING data SettingsEnableXssAuditorPropertyInfo instance AttrInfo SettingsEnableXssAuditorPropertyInfo where type AttrAllowedOps SettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsEnableXssAuditorPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsEnableXssAuditorPropertyInfo = IsSettings type AttrGetType SettingsEnableXssAuditorPropertyInfo = Bool type AttrLabel SettingsEnableXssAuditorPropertyInfo = "enable-xss-auditor" type AttrOrigin SettingsEnableXssAuditorPropertyInfo = Settings attrGet _ = getSettingsEnableXssAuditor attrSet _ = setSettingsEnableXssAuditor attrConstruct _ = constructSettingsEnableXssAuditor attrClear _ = undefined #endif -- VVV Prop "fantasy-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@fantasy-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #fantasyFontFamily @ -} getSettingsFantasyFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text getSettingsFantasyFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsFantasyFontFamily" $ B.Properties.getObjectPropertyString obj "fantasy-font-family" {- | Set the value of the “@fantasy-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #fantasyFontFamily 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsFantasyFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m () setSettingsFantasyFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "fantasy-font-family" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@fantasy-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsFantasyFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o) constructSettingsFantasyFontFamily val = B.Properties.constructObjectPropertyString "fantasy-font-family" (Just val) #if ENABLE_OVERLOADING data SettingsFantasyFontFamilyPropertyInfo instance AttrInfo SettingsFantasyFontFamilyPropertyInfo where type AttrAllowedOps SettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsFantasyFontFamilyPropertyInfo = IsSettings type AttrGetType SettingsFantasyFontFamilyPropertyInfo = T.Text type AttrLabel SettingsFantasyFontFamilyPropertyInfo = "fantasy-font-family" type AttrOrigin SettingsFantasyFontFamilyPropertyInfo = Settings attrGet _ = getSettingsFantasyFontFamily attrSet _ = setSettingsFantasyFontFamily attrConstruct _ = constructSettingsFantasyFontFamily attrClear _ = undefined #endif -- VVV Prop "hardware-acceleration-policy" -- Type: TInterface (Name {namespace = "WebKit2", name = "HardwareAccelerationPolicy"}) -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@hardware-acceleration-policy@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #hardwareAccelerationPolicy @ -} getSettingsHardwareAccelerationPolicy :: (MonadIO m, IsSettings o) => o -> m WebKit2.Enums.HardwareAccelerationPolicy getSettingsHardwareAccelerationPolicy obj = liftIO $ B.Properties.getObjectPropertyEnum obj "hardware-acceleration-policy" {- | Set the value of the “@hardware-acceleration-policy@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #hardwareAccelerationPolicy 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsHardwareAccelerationPolicy :: (MonadIO m, IsSettings o) => o -> WebKit2.Enums.HardwareAccelerationPolicy -> m () setSettingsHardwareAccelerationPolicy obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "hardware-acceleration-policy" val {- | Construct a `GValueConstruct` with valid value for the “@hardware-acceleration-policy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsHardwareAccelerationPolicy :: (IsSettings o) => WebKit2.Enums.HardwareAccelerationPolicy -> IO (GValueConstruct o) constructSettingsHardwareAccelerationPolicy val = B.Properties.constructObjectPropertyEnum "hardware-acceleration-policy" val #if ENABLE_OVERLOADING data SettingsHardwareAccelerationPolicyPropertyInfo instance AttrInfo SettingsHardwareAccelerationPolicyPropertyInfo where type AttrAllowedOps SettingsHardwareAccelerationPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = (~) WebKit2.Enums.HardwareAccelerationPolicy type AttrBaseTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = IsSettings type AttrGetType SettingsHardwareAccelerationPolicyPropertyInfo = WebKit2.Enums.HardwareAccelerationPolicy type AttrLabel SettingsHardwareAccelerationPolicyPropertyInfo = "hardware-acceleration-policy" type AttrOrigin SettingsHardwareAccelerationPolicyPropertyInfo = Settings attrGet _ = getSettingsHardwareAccelerationPolicy attrSet _ = setSettingsHardwareAccelerationPolicy attrConstruct _ = constructSettingsHardwareAccelerationPolicy attrClear _ = undefined #endif -- VVV Prop "javascript-can-access-clipboard" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@javascript-can-access-clipboard@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #javascriptCanAccessClipboard @ -} getSettingsJavascriptCanAccessClipboard :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsJavascriptCanAccessClipboard obj = liftIO $ B.Properties.getObjectPropertyBool obj "javascript-can-access-clipboard" {- | Set the value of the “@javascript-can-access-clipboard@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #javascriptCanAccessClipboard 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsJavascriptCanAccessClipboard :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsJavascriptCanAccessClipboard obj val = liftIO $ B.Properties.setObjectPropertyBool obj "javascript-can-access-clipboard" val {- | Construct a `GValueConstruct` with valid value for the “@javascript-can-access-clipboard@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsJavascriptCanAccessClipboard :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsJavascriptCanAccessClipboard val = B.Properties.constructObjectPropertyBool "javascript-can-access-clipboard" val #if ENABLE_OVERLOADING data SettingsJavascriptCanAccessClipboardPropertyInfo instance AttrInfo SettingsJavascriptCanAccessClipboardPropertyInfo where type AttrAllowedOps SettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = IsSettings type AttrGetType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool type AttrLabel SettingsJavascriptCanAccessClipboardPropertyInfo = "javascript-can-access-clipboard" type AttrOrigin SettingsJavascriptCanAccessClipboardPropertyInfo = Settings attrGet _ = getSettingsJavascriptCanAccessClipboard attrSet _ = setSettingsJavascriptCanAccessClipboard attrConstruct _ = constructSettingsJavascriptCanAccessClipboard attrClear _ = undefined #endif -- VVV Prop "javascript-can-open-windows-automatically" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@javascript-can-open-windows-automatically@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #javascriptCanOpenWindowsAutomatically @ -} getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ B.Properties.getObjectPropertyBool obj "javascript-can-open-windows-automatically" {- | Set the value of the “@javascript-can-open-windows-automatically@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #javascriptCanOpenWindowsAutomatically 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ B.Properties.setObjectPropertyBool obj "javascript-can-open-windows-automatically" val {- | Construct a `GValueConstruct` with valid value for the “@javascript-can-open-windows-automatically@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsJavascriptCanOpenWindowsAutomatically :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsJavascriptCanOpenWindowsAutomatically val = B.Properties.constructObjectPropertyBool "javascript-can-open-windows-automatically" val #if ENABLE_OVERLOADING data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo instance AttrInfo SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where type AttrAllowedOps SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = IsSettings type AttrGetType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool type AttrLabel SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "javascript-can-open-windows-automatically" type AttrOrigin SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Settings attrGet _ = getSettingsJavascriptCanOpenWindowsAutomatically attrSet _ = setSettingsJavascriptCanOpenWindowsAutomatically attrConstruct _ = constructSettingsJavascriptCanOpenWindowsAutomatically attrClear _ = undefined #endif -- VVV Prop "load-icons-ignoring-image-load-setting" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@load-icons-ignoring-image-load-setting@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #loadIconsIgnoringImageLoadSetting @ -} getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsLoadIconsIgnoringImageLoadSetting obj = liftIO $ B.Properties.getObjectPropertyBool obj "load-icons-ignoring-image-load-setting" {- | Set the value of the “@load-icons-ignoring-image-load-setting@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #loadIconsIgnoringImageLoadSetting 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsLoadIconsIgnoringImageLoadSetting obj val = liftIO $ B.Properties.setObjectPropertyBool obj "load-icons-ignoring-image-load-setting" val {- | Construct a `GValueConstruct` with valid value for the “@load-icons-ignoring-image-load-setting@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsLoadIconsIgnoringImageLoadSetting :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsLoadIconsIgnoringImageLoadSetting val = B.Properties.constructObjectPropertyBool "load-icons-ignoring-image-load-setting" val #if ENABLE_OVERLOADING data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo instance AttrInfo SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo where type AttrAllowedOps SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = IsSettings type AttrGetType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool type AttrLabel SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = "load-icons-ignoring-image-load-setting" type AttrOrigin SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Settings attrGet _ = getSettingsLoadIconsIgnoringImageLoadSetting attrSet _ = setSettingsLoadIconsIgnoringImageLoadSetting attrConstruct _ = constructSettingsLoadIconsIgnoringImageLoadSetting attrClear _ = undefined #endif -- VVV Prop "media-playback-allows-inline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@media-playback-allows-inline@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #mediaPlaybackAllowsInline @ -} getSettingsMediaPlaybackAllowsInline :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsMediaPlaybackAllowsInline obj = liftIO $ B.Properties.getObjectPropertyBool obj "media-playback-allows-inline" {- | Set the value of the “@media-playback-allows-inline@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #mediaPlaybackAllowsInline 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsMediaPlaybackAllowsInline :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsMediaPlaybackAllowsInline obj val = liftIO $ B.Properties.setObjectPropertyBool obj "media-playback-allows-inline" val {- | Construct a `GValueConstruct` with valid value for the “@media-playback-allows-inline@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsMediaPlaybackAllowsInline :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsMediaPlaybackAllowsInline val = B.Properties.constructObjectPropertyBool "media-playback-allows-inline" val #if ENABLE_OVERLOADING data SettingsMediaPlaybackAllowsInlinePropertyInfo instance AttrInfo SettingsMediaPlaybackAllowsInlinePropertyInfo where type AttrAllowedOps SettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = IsSettings type AttrGetType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool type AttrLabel SettingsMediaPlaybackAllowsInlinePropertyInfo = "media-playback-allows-inline" type AttrOrigin SettingsMediaPlaybackAllowsInlinePropertyInfo = Settings attrGet _ = getSettingsMediaPlaybackAllowsInline attrSet _ = setSettingsMediaPlaybackAllowsInline attrConstruct _ = constructSettingsMediaPlaybackAllowsInline attrClear _ = undefined #endif -- VVV Prop "media-playback-requires-user-gesture" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@media-playback-requires-user-gesture@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #mediaPlaybackRequiresUserGesture @ -} getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ B.Properties.getObjectPropertyBool obj "media-playback-requires-user-gesture" {- | Set the value of the “@media-playback-requires-user-gesture@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #mediaPlaybackRequiresUserGesture 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ B.Properties.setObjectPropertyBool obj "media-playback-requires-user-gesture" val {- | Construct a `GValueConstruct` with valid value for the “@media-playback-requires-user-gesture@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsMediaPlaybackRequiresUserGesture :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsMediaPlaybackRequiresUserGesture val = B.Properties.constructObjectPropertyBool "media-playback-requires-user-gesture" val #if ENABLE_OVERLOADING data SettingsMediaPlaybackRequiresUserGesturePropertyInfo instance AttrInfo SettingsMediaPlaybackRequiresUserGesturePropertyInfo where type AttrAllowedOps SettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = IsSettings type AttrGetType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool type AttrLabel SettingsMediaPlaybackRequiresUserGesturePropertyInfo = "media-playback-requires-user-gesture" type AttrOrigin SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Settings attrGet _ = getSettingsMediaPlaybackRequiresUserGesture attrSet _ = setSettingsMediaPlaybackRequiresUserGesture attrConstruct _ = constructSettingsMediaPlaybackRequiresUserGesture attrClear _ = undefined #endif -- VVV Prop "minimum-font-size" -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@minimum-font-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #minimumFontSize @ -} getSettingsMinimumFontSize :: (MonadIO m, IsSettings o) => o -> m Word32 getSettingsMinimumFontSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "minimum-font-size" {- | Set the value of the “@minimum-font-size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #minimumFontSize 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsMinimumFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m () setSettingsMinimumFontSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "minimum-font-size" val {- | Construct a `GValueConstruct` with valid value for the “@minimum-font-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsMinimumFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o) constructSettingsMinimumFontSize val = B.Properties.constructObjectPropertyUInt32 "minimum-font-size" val #if ENABLE_OVERLOADING data SettingsMinimumFontSizePropertyInfo instance AttrInfo SettingsMinimumFontSizePropertyInfo where type AttrAllowedOps SettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32 type AttrBaseTypeConstraint SettingsMinimumFontSizePropertyInfo = IsSettings type AttrGetType SettingsMinimumFontSizePropertyInfo = Word32 type AttrLabel SettingsMinimumFontSizePropertyInfo = "minimum-font-size" type AttrOrigin SettingsMinimumFontSizePropertyInfo = Settings attrGet _ = getSettingsMinimumFontSize attrSet _ = setSettingsMinimumFontSize attrConstruct _ = constructSettingsMinimumFontSize attrClear _ = undefined #endif -- VVV Prop "monospace-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@monospace-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #monospaceFontFamily @ -} getSettingsMonospaceFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text getSettingsMonospaceFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsMonospaceFontFamily" $ B.Properties.getObjectPropertyString obj "monospace-font-family" {- | Set the value of the “@monospace-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #monospaceFontFamily 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsMonospaceFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m () setSettingsMonospaceFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "monospace-font-family" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@monospace-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsMonospaceFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o) constructSettingsMonospaceFontFamily val = B.Properties.constructObjectPropertyString "monospace-font-family" (Just val) #if ENABLE_OVERLOADING data SettingsMonospaceFontFamilyPropertyInfo instance AttrInfo SettingsMonospaceFontFamilyPropertyInfo where type AttrAllowedOps SettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = IsSettings type AttrGetType SettingsMonospaceFontFamilyPropertyInfo = T.Text type AttrLabel SettingsMonospaceFontFamilyPropertyInfo = "monospace-font-family" type AttrOrigin SettingsMonospaceFontFamilyPropertyInfo = Settings attrGet _ = getSettingsMonospaceFontFamily attrSet _ = setSettingsMonospaceFontFamily attrConstruct _ = constructSettingsMonospaceFontFamily attrClear _ = undefined #endif -- VVV Prop "pictograph-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@pictograph-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #pictographFontFamily @ -} getSettingsPictographFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text getSettingsPictographFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsPictographFontFamily" $ B.Properties.getObjectPropertyString obj "pictograph-font-family" {- | Set the value of the “@pictograph-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #pictographFontFamily 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsPictographFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m () setSettingsPictographFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "pictograph-font-family" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@pictograph-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsPictographFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o) constructSettingsPictographFontFamily val = B.Properties.constructObjectPropertyString "pictograph-font-family" (Just val) #if ENABLE_OVERLOADING data SettingsPictographFontFamilyPropertyInfo instance AttrInfo SettingsPictographFontFamilyPropertyInfo where type AttrAllowedOps SettingsPictographFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsPictographFontFamilyPropertyInfo = IsSettings type AttrGetType SettingsPictographFontFamilyPropertyInfo = T.Text type AttrLabel SettingsPictographFontFamilyPropertyInfo = "pictograph-font-family" type AttrOrigin SettingsPictographFontFamilyPropertyInfo = Settings attrGet _ = getSettingsPictographFontFamily attrSet _ = setSettingsPictographFontFamily attrConstruct _ = constructSettingsPictographFontFamily attrClear _ = undefined #endif -- VVV Prop "print-backgrounds" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@print-backgrounds@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #printBackgrounds @ -} getSettingsPrintBackgrounds :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsPrintBackgrounds obj = liftIO $ B.Properties.getObjectPropertyBool obj "print-backgrounds" {- | Set the value of the “@print-backgrounds@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #printBackgrounds 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsPrintBackgrounds :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsPrintBackgrounds obj val = liftIO $ B.Properties.setObjectPropertyBool obj "print-backgrounds" val {- | Construct a `GValueConstruct` with valid value for the “@print-backgrounds@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsPrintBackgrounds :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsPrintBackgrounds val = B.Properties.constructObjectPropertyBool "print-backgrounds" val #if ENABLE_OVERLOADING data SettingsPrintBackgroundsPropertyInfo instance AttrInfo SettingsPrintBackgroundsPropertyInfo where type AttrAllowedOps SettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsPrintBackgroundsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsPrintBackgroundsPropertyInfo = IsSettings type AttrGetType SettingsPrintBackgroundsPropertyInfo = Bool type AttrLabel SettingsPrintBackgroundsPropertyInfo = "print-backgrounds" type AttrOrigin SettingsPrintBackgroundsPropertyInfo = Settings attrGet _ = getSettingsPrintBackgrounds attrSet _ = setSettingsPrintBackgrounds attrConstruct _ = constructSettingsPrintBackgrounds attrClear _ = undefined #endif -- VVV Prop "sans-serif-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@sans-serif-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #sansSerifFontFamily @ -} getSettingsSansSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text getSettingsSansSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSansSerifFontFamily" $ B.Properties.getObjectPropertyString obj "sans-serif-font-family" {- | Set the value of the “@sans-serif-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #sansSerifFontFamily 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsSansSerifFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m () setSettingsSansSerifFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "sans-serif-font-family" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@sans-serif-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsSansSerifFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o) constructSettingsSansSerifFontFamily val = B.Properties.constructObjectPropertyString "sans-serif-font-family" (Just val) #if ENABLE_OVERLOADING data SettingsSansSerifFontFamilyPropertyInfo instance AttrInfo SettingsSansSerifFontFamilyPropertyInfo where type AttrAllowedOps SettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = IsSettings type AttrGetType SettingsSansSerifFontFamilyPropertyInfo = T.Text type AttrLabel SettingsSansSerifFontFamilyPropertyInfo = "sans-serif-font-family" type AttrOrigin SettingsSansSerifFontFamilyPropertyInfo = Settings attrGet _ = getSettingsSansSerifFontFamily attrSet _ = setSettingsSansSerifFontFamily attrConstruct _ = constructSettingsSansSerifFontFamily attrClear _ = undefined #endif -- VVV Prop "serif-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@serif-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #serifFontFamily @ -} getSettingsSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text getSettingsSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSerifFontFamily" $ B.Properties.getObjectPropertyString obj "serif-font-family" {- | Set the value of the “@serif-font-family@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #serifFontFamily 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsSerifFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m () setSettingsSerifFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "serif-font-family" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@serif-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsSerifFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o) constructSettingsSerifFontFamily val = B.Properties.constructObjectPropertyString "serif-font-family" (Just val) #if ENABLE_OVERLOADING data SettingsSerifFontFamilyPropertyInfo instance AttrInfo SettingsSerifFontFamilyPropertyInfo where type AttrAllowedOps SettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsSerifFontFamilyPropertyInfo = IsSettings type AttrGetType SettingsSerifFontFamilyPropertyInfo = T.Text type AttrLabel SettingsSerifFontFamilyPropertyInfo = "serif-font-family" type AttrOrigin SettingsSerifFontFamilyPropertyInfo = Settings attrGet _ = getSettingsSerifFontFamily attrSet _ = setSettingsSerifFontFamily attrConstruct _ = constructSettingsSerifFontFamily attrClear _ = undefined #endif -- VVV Prop "user-agent" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just True) {- | Get the value of the “@user-agent@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #userAgent @ -} getSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m T.Text getSettingsUserAgent obj = liftIO $ checkUnexpectedNothing "getSettingsUserAgent" $ B.Properties.getObjectPropertyString obj "user-agent" {- | Set the value of the “@user-agent@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #userAgent 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> T.Text -> m () setSettingsUserAgent obj val = liftIO $ B.Properties.setObjectPropertyString obj "user-agent" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@user-agent@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsUserAgent :: (IsSettings o) => T.Text -> IO (GValueConstruct o) constructSettingsUserAgent val = B.Properties.constructObjectPropertyString "user-agent" (Just val) {- | Set the value of the “@user-agent@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #userAgent @ -} clearSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m () clearSettingsUserAgent obj = liftIO $ B.Properties.setObjectPropertyString obj "user-agent" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING data SettingsUserAgentPropertyInfo instance AttrInfo SettingsUserAgentPropertyInfo where type AttrAllowedOps SettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsUserAgentPropertyInfo = IsSettings type AttrGetType SettingsUserAgentPropertyInfo = T.Text type AttrLabel SettingsUserAgentPropertyInfo = "user-agent" type AttrOrigin SettingsUserAgentPropertyInfo = Settings attrGet _ = getSettingsUserAgent attrSet _ = setSettingsUserAgent attrConstruct _ = constructSettingsUserAgent attrClear _ = clearSettingsUserAgent #endif -- VVV Prop "zoom-text-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) {- | Get the value of the “@zoom-text-only@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' settings #zoomTextOnly @ -} getSettingsZoomTextOnly :: (MonadIO m, IsSettings o) => o -> m Bool getSettingsZoomTextOnly obj = liftIO $ B.Properties.getObjectPropertyBool obj "zoom-text-only" {- | Set the value of the “@zoom-text-only@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' settings [ #zoomTextOnly 'Data.GI.Base.Attributes.:=' value ] @ -} setSettingsZoomTextOnly :: (MonadIO m, IsSettings o) => o -> Bool -> m () setSettingsZoomTextOnly obj val = liftIO $ B.Properties.setObjectPropertyBool obj "zoom-text-only" val {- | Construct a `GValueConstruct` with valid value for the “@zoom-text-only@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructSettingsZoomTextOnly :: (IsSettings o) => Bool -> IO (GValueConstruct o) constructSettingsZoomTextOnly val = B.Properties.constructObjectPropertyBool "zoom-text-only" val #if ENABLE_OVERLOADING data SettingsZoomTextOnlyPropertyInfo instance AttrInfo SettingsZoomTextOnlyPropertyInfo where type AttrAllowedOps SettingsZoomTextOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint SettingsZoomTextOnlyPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsZoomTextOnlyPropertyInfo = IsSettings type AttrGetType SettingsZoomTextOnlyPropertyInfo = Bool type AttrLabel SettingsZoomTextOnlyPropertyInfo = "zoom-text-only" type AttrOrigin SettingsZoomTextOnlyPropertyInfo = Settings attrGet _ = getSettingsZoomTextOnly attrSet _ = setSettingsZoomTextOnly attrConstruct _ = constructSettingsZoomTextOnly attrClear _ = undefined #endif #if ENABLE_OVERLOADING instance O.HasAttributeList Settings type instance O.AttributeList Settings = SettingsAttributeList type SettingsAttributeList = ('[ '("allowFileAccessFromFileUrls", SettingsAllowFileAccessFromFileUrlsPropertyInfo), '("allowModalDialogs", SettingsAllowModalDialogsPropertyInfo), '("allowUniversalAccessFromFileUrls", SettingsAllowUniversalAccessFromFileUrlsPropertyInfo), '("autoLoadImages", SettingsAutoLoadImagesPropertyInfo), '("cursiveFontFamily", SettingsCursiveFontFamilyPropertyInfo), '("defaultCharset", SettingsDefaultCharsetPropertyInfo), '("defaultFontFamily", SettingsDefaultFontFamilyPropertyInfo), '("defaultFontSize", SettingsDefaultFontSizePropertyInfo), '("defaultMonospaceFontSize", SettingsDefaultMonospaceFontSizePropertyInfo), '("drawCompositingIndicators", SettingsDrawCompositingIndicatorsPropertyInfo), '("enableAccelerated2dCanvas", SettingsEnableAccelerated2dCanvasPropertyInfo), '("enableBackForwardNavigationGestures", SettingsEnableBackForwardNavigationGesturesPropertyInfo), '("enableCaretBrowsing", SettingsEnableCaretBrowsingPropertyInfo), '("enableDeveloperExtras", SettingsEnableDeveloperExtrasPropertyInfo), '("enableDnsPrefetching", SettingsEnableDnsPrefetchingPropertyInfo), '("enableEncryptedMedia", SettingsEnableEncryptedMediaPropertyInfo), '("enableFrameFlattening", SettingsEnableFrameFlatteningPropertyInfo), '("enableFullscreen", SettingsEnableFullscreenPropertyInfo), '("enableHtml5Database", SettingsEnableHtml5DatabasePropertyInfo), '("enableHtml5LocalStorage", SettingsEnableHtml5LocalStoragePropertyInfo), '("enableHyperlinkAuditing", SettingsEnableHyperlinkAuditingPropertyInfo), '("enableJava", SettingsEnableJavaPropertyInfo), '("enableJavascript", SettingsEnableJavascriptPropertyInfo), '("enableJavascriptMarkup", SettingsEnableJavascriptMarkupPropertyInfo), '("enableMediaCapabilities", SettingsEnableMediaCapabilitiesPropertyInfo), '("enableMediaStream", SettingsEnableMediaStreamPropertyInfo), '("enableMediasource", SettingsEnableMediasourcePropertyInfo), '("enableMockCaptureDevices", SettingsEnableMockCaptureDevicesPropertyInfo), '("enableOfflineWebApplicationCache", SettingsEnableOfflineWebApplicationCachePropertyInfo), '("enablePageCache", SettingsEnablePageCachePropertyInfo), '("enablePlugins", SettingsEnablePluginsPropertyInfo), '("enablePrivateBrowsing", SettingsEnablePrivateBrowsingPropertyInfo), '("enableResizableTextAreas", SettingsEnableResizableTextAreasPropertyInfo), '("enableSiteSpecificQuirks", SettingsEnableSiteSpecificQuirksPropertyInfo), '("enableSmoothScrolling", SettingsEnableSmoothScrollingPropertyInfo), '("enableSpatialNavigation", SettingsEnableSpatialNavigationPropertyInfo), '("enableTabsToLinks", SettingsEnableTabsToLinksPropertyInfo), '("enableWebaudio", SettingsEnableWebaudioPropertyInfo), '("enableWebgl", SettingsEnableWebglPropertyInfo), '("enableWriteConsoleMessagesToStdout", SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo), '("enableXssAuditor", SettingsEnableXssAuditorPropertyInfo), '("fantasyFontFamily", SettingsFantasyFontFamilyPropertyInfo), '("hardwareAccelerationPolicy", SettingsHardwareAccelerationPolicyPropertyInfo), '("javascriptCanAccessClipboard", SettingsJavascriptCanAccessClipboardPropertyInfo), '("javascriptCanOpenWindowsAutomatically", SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("loadIconsIgnoringImageLoadSetting", SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo), '("mediaPlaybackAllowsInline", SettingsMediaPlaybackAllowsInlinePropertyInfo), '("mediaPlaybackRequiresUserGesture", SettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimumFontSize", SettingsMinimumFontSizePropertyInfo), '("monospaceFontFamily", SettingsMonospaceFontFamilyPropertyInfo), '("pictographFontFamily", SettingsPictographFontFamilyPropertyInfo), '("printBackgrounds", SettingsPrintBackgroundsPropertyInfo), '("sansSerifFontFamily", SettingsSansSerifFontFamilyPropertyInfo), '("serifFontFamily", SettingsSerifFontFamilyPropertyInfo), '("userAgent", SettingsUserAgentPropertyInfo), '("zoomTextOnly", SettingsZoomTextOnlyPropertyInfo)] :: [(Symbol, *)]) #endif #if ENABLE_OVERLOADING settingsAllowFileAccessFromFileUrls :: AttrLabelProxy "allowFileAccessFromFileUrls" settingsAllowFileAccessFromFileUrls = AttrLabelProxy settingsAllowModalDialogs :: AttrLabelProxy "allowModalDialogs" settingsAllowModalDialogs = AttrLabelProxy settingsAllowUniversalAccessFromFileUrls :: AttrLabelProxy "allowUniversalAccessFromFileUrls" settingsAllowUniversalAccessFromFileUrls = AttrLabelProxy settingsAutoLoadImages :: AttrLabelProxy "autoLoadImages" settingsAutoLoadImages = AttrLabelProxy settingsCursiveFontFamily :: AttrLabelProxy "cursiveFontFamily" settingsCursiveFontFamily = AttrLabelProxy settingsDefaultCharset :: AttrLabelProxy "defaultCharset" settingsDefaultCharset = AttrLabelProxy settingsDefaultFontFamily :: AttrLabelProxy "defaultFontFamily" settingsDefaultFontFamily = AttrLabelProxy settingsDefaultFontSize :: AttrLabelProxy "defaultFontSize" settingsDefaultFontSize = AttrLabelProxy settingsDefaultMonospaceFontSize :: AttrLabelProxy "defaultMonospaceFontSize" settingsDefaultMonospaceFontSize = AttrLabelProxy settingsDrawCompositingIndicators :: AttrLabelProxy "drawCompositingIndicators" settingsDrawCompositingIndicators = AttrLabelProxy settingsEnableAccelerated2dCanvas :: AttrLabelProxy "enableAccelerated2dCanvas" settingsEnableAccelerated2dCanvas = AttrLabelProxy settingsEnableBackForwardNavigationGestures :: AttrLabelProxy "enableBackForwardNavigationGestures" settingsEnableBackForwardNavigationGestures = AttrLabelProxy settingsEnableCaretBrowsing :: AttrLabelProxy "enableCaretBrowsing" settingsEnableCaretBrowsing = AttrLabelProxy settingsEnableDeveloperExtras :: AttrLabelProxy "enableDeveloperExtras" settingsEnableDeveloperExtras = AttrLabelProxy settingsEnableDnsPrefetching :: AttrLabelProxy "enableDnsPrefetching" settingsEnableDnsPrefetching = AttrLabelProxy settingsEnableEncryptedMedia :: AttrLabelProxy "enableEncryptedMedia" settingsEnableEncryptedMedia = AttrLabelProxy settingsEnableFrameFlattening :: AttrLabelProxy "enableFrameFlattening" settingsEnableFrameFlattening = AttrLabelProxy settingsEnableFullscreen :: AttrLabelProxy "enableFullscreen" settingsEnableFullscreen = AttrLabelProxy settingsEnableHtml5Database :: AttrLabelProxy "enableHtml5Database" settingsEnableHtml5Database = AttrLabelProxy settingsEnableHtml5LocalStorage :: AttrLabelProxy "enableHtml5LocalStorage" settingsEnableHtml5LocalStorage = AttrLabelProxy settingsEnableHyperlinkAuditing :: AttrLabelProxy "enableHyperlinkAuditing" settingsEnableHyperlinkAuditing = AttrLabelProxy settingsEnableJava :: AttrLabelProxy "enableJava" settingsEnableJava = AttrLabelProxy settingsEnableJavascript :: AttrLabelProxy "enableJavascript" settingsEnableJavascript = AttrLabelProxy settingsEnableJavascriptMarkup :: AttrLabelProxy "enableJavascriptMarkup" settingsEnableJavascriptMarkup = AttrLabelProxy settingsEnableMediaCapabilities :: AttrLabelProxy "enableMediaCapabilities" settingsEnableMediaCapabilities = AttrLabelProxy settingsEnableMediaStream :: AttrLabelProxy "enableMediaStream" settingsEnableMediaStream = AttrLabelProxy settingsEnableMediasource :: AttrLabelProxy "enableMediasource" settingsEnableMediasource = AttrLabelProxy settingsEnableMockCaptureDevices :: AttrLabelProxy "enableMockCaptureDevices" settingsEnableMockCaptureDevices = AttrLabelProxy settingsEnableOfflineWebApplicationCache :: AttrLabelProxy "enableOfflineWebApplicationCache" settingsEnableOfflineWebApplicationCache = AttrLabelProxy settingsEnablePageCache :: AttrLabelProxy "enablePageCache" settingsEnablePageCache = AttrLabelProxy settingsEnablePlugins :: AttrLabelProxy "enablePlugins" settingsEnablePlugins = AttrLabelProxy settingsEnablePrivateBrowsing :: AttrLabelProxy "enablePrivateBrowsing" settingsEnablePrivateBrowsing = AttrLabelProxy settingsEnableResizableTextAreas :: AttrLabelProxy "enableResizableTextAreas" settingsEnableResizableTextAreas = AttrLabelProxy settingsEnableSiteSpecificQuirks :: AttrLabelProxy "enableSiteSpecificQuirks" settingsEnableSiteSpecificQuirks = AttrLabelProxy settingsEnableSmoothScrolling :: AttrLabelProxy "enableSmoothScrolling" settingsEnableSmoothScrolling = AttrLabelProxy settingsEnableSpatialNavigation :: AttrLabelProxy "enableSpatialNavigation" settingsEnableSpatialNavigation = AttrLabelProxy settingsEnableTabsToLinks :: AttrLabelProxy "enableTabsToLinks" settingsEnableTabsToLinks = AttrLabelProxy settingsEnableWebaudio :: AttrLabelProxy "enableWebaudio" settingsEnableWebaudio = AttrLabelProxy settingsEnableWebgl :: AttrLabelProxy "enableWebgl" settingsEnableWebgl = AttrLabelProxy settingsEnableWriteConsoleMessagesToStdout :: AttrLabelProxy "enableWriteConsoleMessagesToStdout" settingsEnableWriteConsoleMessagesToStdout = AttrLabelProxy settingsEnableXssAuditor :: AttrLabelProxy "enableXssAuditor" settingsEnableXssAuditor = AttrLabelProxy settingsFantasyFontFamily :: AttrLabelProxy "fantasyFontFamily" settingsFantasyFontFamily = AttrLabelProxy settingsHardwareAccelerationPolicy :: AttrLabelProxy "hardwareAccelerationPolicy" settingsHardwareAccelerationPolicy = AttrLabelProxy settingsJavascriptCanAccessClipboard :: AttrLabelProxy "javascriptCanAccessClipboard" settingsJavascriptCanAccessClipboard = AttrLabelProxy settingsJavascriptCanOpenWindowsAutomatically :: AttrLabelProxy "javascriptCanOpenWindowsAutomatically" settingsJavascriptCanOpenWindowsAutomatically = AttrLabelProxy settingsLoadIconsIgnoringImageLoadSetting :: AttrLabelProxy "loadIconsIgnoringImageLoadSetting" settingsLoadIconsIgnoringImageLoadSetting = AttrLabelProxy settingsMediaPlaybackAllowsInline :: AttrLabelProxy "mediaPlaybackAllowsInline" settingsMediaPlaybackAllowsInline = AttrLabelProxy settingsMediaPlaybackRequiresUserGesture :: AttrLabelProxy "mediaPlaybackRequiresUserGesture" settingsMediaPlaybackRequiresUserGesture = AttrLabelProxy settingsMinimumFontSize :: AttrLabelProxy "minimumFontSize" settingsMinimumFontSize = AttrLabelProxy settingsMonospaceFontFamily :: AttrLabelProxy "monospaceFontFamily" settingsMonospaceFontFamily = AttrLabelProxy settingsPictographFontFamily :: AttrLabelProxy "pictographFontFamily" settingsPictographFontFamily = AttrLabelProxy settingsPrintBackgrounds :: AttrLabelProxy "printBackgrounds" settingsPrintBackgrounds = AttrLabelProxy settingsSansSerifFontFamily :: AttrLabelProxy "sansSerifFontFamily" settingsSansSerifFontFamily = AttrLabelProxy settingsSerifFontFamily :: AttrLabelProxy "serifFontFamily" settingsSerifFontFamily = AttrLabelProxy settingsUserAgent :: AttrLabelProxy "userAgent" settingsUserAgent = AttrLabelProxy settingsZoomTextOnly :: AttrLabelProxy "zoomTextOnly" settingsZoomTextOnly = AttrLabelProxy #endif #if ENABLE_OVERLOADING type instance O.SignalList Settings = SettingsSignalList type SettingsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) #endif -- method Settings::new -- method type : Constructor -- Args : [] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "Settings"})) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_new" webkit_settings_new :: IO (Ptr Settings) {- | Creates a new 'GI.WebKit2.Objects.Settings.Settings' instance with default values. It must be manually attached to a 'GI.WebKit2.Objects.WebView.WebView'. See also @/webkit_settings_new_with_settings()/@. -} settingsNew :: (B.CallStack.HasCallStack, MonadIO m) => m Settings {- ^ __Returns:__ a new 'GI.WebKit2.Objects.Settings.Settings' instance. -} settingsNew = liftIO $ do result <- webkit_settings_new checkUnexpectedReturnNULL "settingsNew" result result' <- (wrapObject Settings) result return result' #if ENABLE_OVERLOADING #endif -- method Settings::get_allow_file_access_from_file_urls -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_allow_file_access_from_file_urls" webkit_settings_get_allow_file_access_from_file_urls :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/allow-file-access-from-file-urls/@ property. /Since: 2.10/ -} settingsGetAllowFileAccessFromFileUrls :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If file access from file URLs is allowed or 'False' otherwise. -} settingsGetAllowFileAccessFromFileUrls settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_allow_file_access_from_file_urls settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetAllowFileAccessFromFileUrlsMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAllowFileAccessFromFileUrlsMethodInfo a signature where overloadedMethod _ = settingsGetAllowFileAccessFromFileUrls #endif -- method Settings::get_allow_modal_dialogs -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_allow_modal_dialogs" webkit_settings_get_allow_modal_dialogs :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/allow-modal-dialogs/@ property. -} settingsGetAllowModalDialogs :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if it\'s allowed to create and run modal dialogs or 'False' otherwise. -} settingsGetAllowModalDialogs settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_allow_modal_dialogs settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetAllowModalDialogsMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAllowModalDialogsMethodInfo a signature where overloadedMethod _ = settingsGetAllowModalDialogs #endif -- method Settings::get_allow_universal_access_from_file_urls -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_allow_universal_access_from_file_urls" webkit_settings_get_allow_universal_access_from_file_urls :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/allow-universal-access-from-file-urls/@ property. /Since: 2.14/ -} settingsGetAllowUniversalAccessFromFileUrls :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If universal access from file URLs is allowed or 'False' otherwise. -} settingsGetAllowUniversalAccessFromFileUrls settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_allow_universal_access_from_file_urls settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo a signature where overloadedMethod _ = settingsGetAllowUniversalAccessFromFileUrls #endif -- method Settings::get_auto_load_images -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_auto_load_images" webkit_settings_get_auto_load_images :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/auto-load-images/@ property. -} settingsGetAutoLoadImages :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If auto loading of images is enabled or 'False' otherwise. -} settingsGetAutoLoadImages settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_auto_load_images settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetAutoLoadImagesMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAutoLoadImagesMethodInfo a signature where overloadedMethod _ = settingsGetAutoLoadImages #endif -- method Settings::get_cursive_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_cursive_font_family" webkit_settings_get_cursive_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CString {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/cursive-font-family/@ property. -} settingsGetCursiveFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m T.Text {- ^ __Returns:__ The default font family used to display content marked with cursive font. -} settingsGetCursiveFontFamily settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_cursive_font_family settings' checkUnexpectedReturnNULL "settingsGetCursiveFontFamily" result result' <- cstringToText result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetCursiveFontFamilyMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetCursiveFontFamilyMethodInfo a signature where overloadedMethod _ = settingsGetCursiveFontFamily #endif -- method Settings::get_default_charset -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_default_charset" webkit_settings_get_default_charset :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CString {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/default-charset/@ property. -} settingsGetDefaultCharset :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m T.Text {- ^ __Returns:__ Default charset. -} settingsGetDefaultCharset settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_default_charset settings' checkUnexpectedReturnNULL "settingsGetDefaultCharset" result result' <- cstringToText result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetDefaultCharsetMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultCharsetMethodInfo a signature where overloadedMethod _ = settingsGetDefaultCharset #endif -- method Settings::get_default_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_default_font_family" webkit_settings_get_default_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CString {- | /No description available in the introspection data./ -} settingsGetDefaultFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a -> m T.Text settingsGetDefaultFontFamily settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_default_font_family settings' checkUnexpectedReturnNULL "settingsGetDefaultFontFamily" result result' <- cstringToText result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetDefaultFontFamilyMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultFontFamilyMethodInfo a signature where overloadedMethod _ = settingsGetDefaultFontFamily #endif -- method Settings::get_default_font_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_default_font_size" webkit_settings_get_default_font_size :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO Word32 {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/default-font-size/@ property. -} settingsGetDefaultFontSize :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Word32 {- ^ __Returns:__ The default font size, in pixels. -} settingsGetDefaultFontSize settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_default_font_size settings' touchManagedPtr settings return result #if ENABLE_OVERLOADING data SettingsGetDefaultFontSizeMethodInfo instance (signature ~ (m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultFontSizeMethodInfo a signature where overloadedMethod _ = settingsGetDefaultFontSize #endif -- method Settings::get_default_monospace_font_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_default_monospace_font_size" webkit_settings_get_default_monospace_font_size :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO Word32 {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/default-monospace-font-size/@ property. -} settingsGetDefaultMonospaceFontSize :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Word32 {- ^ __Returns:__ Default monospace font size, in pixels. -} settingsGetDefaultMonospaceFontSize settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_default_monospace_font_size settings' touchManagedPtr settings return result #if ENABLE_OVERLOADING data SettingsGetDefaultMonospaceFontSizeMethodInfo instance (signature ~ (m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultMonospaceFontSizeMethodInfo a signature where overloadedMethod _ = settingsGetDefaultMonospaceFontSize #endif -- method Settings::get_draw_compositing_indicators -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_draw_compositing_indicators" webkit_settings_get_draw_compositing_indicators :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/draw-compositing-indicators/@ property. -} settingsGetDrawCompositingIndicators :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If compositing borders are drawn or 'False' otherwise. -} settingsGetDrawCompositingIndicators settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_draw_compositing_indicators settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetDrawCompositingIndicatorsMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDrawCompositingIndicatorsMethodInfo a signature where overloadedMethod _ = settingsGetDrawCompositingIndicators #endif -- method Settings::get_enable_accelerated_2d_canvas -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_accelerated_2d_canvas" webkit_settings_get_enable_accelerated_2d_canvas :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-accelerated-2d-canvas/@ property. /Since: 2.2/ -} settingsGetEnableAccelerated2dCanvas :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if accelerated 2D canvas is enabled or 'False' otherwise. -} settingsGetEnableAccelerated2dCanvas settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_accelerated_2d_canvas settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableAccelerated2dCanvasMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableAccelerated2dCanvasMethodInfo a signature where overloadedMethod _ = settingsGetEnableAccelerated2dCanvas #endif -- method Settings::get_enable_back_forward_navigation_gestures -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_back_forward_navigation_gestures" webkit_settings_get_enable_back_forward_navigation_gestures :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-back-forward-navigation-gestures/@ property. /Since: 2.24/ -} settingsGetEnableBackForwardNavigationGestures :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if horizontal swipe gesture will trigger back-forward navigaiton or 'False' otherwise. -} settingsGetEnableBackForwardNavigationGestures settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_back_forward_navigation_gestures settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableBackForwardNavigationGesturesMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableBackForwardNavigationGesturesMethodInfo a signature where overloadedMethod _ = settingsGetEnableBackForwardNavigationGestures #endif -- method Settings::get_enable_caret_browsing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_caret_browsing" webkit_settings_get_enable_caret_browsing :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-caret-browsing/@ property. -} settingsGetEnableCaretBrowsing :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If caret browsing is enabled or 'False' otherwise. -} settingsGetEnableCaretBrowsing settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_caret_browsing settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableCaretBrowsingMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableCaretBrowsingMethodInfo a signature where overloadedMethod _ = settingsGetEnableCaretBrowsing #endif -- method Settings::get_enable_developer_extras -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_developer_extras" webkit_settings_get_enable_developer_extras :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-developer-extras/@ property. -} settingsGetEnableDeveloperExtras :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If developer extras is enabled or 'False' otherwise. -} settingsGetEnableDeveloperExtras settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_developer_extras settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableDeveloperExtrasMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableDeveloperExtrasMethodInfo a signature where overloadedMethod _ = settingsGetEnableDeveloperExtras #endif -- method Settings::get_enable_dns_prefetching -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_dns_prefetching" webkit_settings_get_enable_dns_prefetching :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-dns-prefetching/@ property. -} settingsGetEnableDnsPrefetching :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If DNS prefetching is enabled or 'False' otherwise. -} settingsGetEnableDnsPrefetching settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_dns_prefetching settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableDnsPrefetchingMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableDnsPrefetchingMethodInfo a signature where overloadedMethod _ = settingsGetEnableDnsPrefetching #endif -- method Settings::get_enable_encrypted_media -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_encrypted_media" webkit_settings_get_enable_encrypted_media :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-encrypted-media/@ property. /Since: 2.20/ -} settingsGetEnableEncryptedMedia :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if EncryptedMedia support is enabled or 'False' otherwise. -} settingsGetEnableEncryptedMedia settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_encrypted_media settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableEncryptedMediaMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableEncryptedMediaMethodInfo a signature where overloadedMethod _ = settingsGetEnableEncryptedMedia #endif -- method Settings::get_enable_frame_flattening -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_frame_flattening" webkit_settings_get_enable_frame_flattening :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-frame-flattening/@ property. -} settingsGetEnableFrameFlattening :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If frame flattening is enabled or 'False' otherwise. -} settingsGetEnableFrameFlattening settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_frame_flattening settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableFrameFlatteningMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableFrameFlatteningMethodInfo a signature where overloadedMethod _ = settingsGetEnableFrameFlattening #endif -- method Settings::get_enable_fullscreen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_fullscreen" webkit_settings_get_enable_fullscreen :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-fullscreen/@ property. -} settingsGetEnableFullscreen :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If fullscreen support is enabled or 'False' otherwise. -} settingsGetEnableFullscreen settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_fullscreen settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableFullscreenMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableFullscreenMethodInfo a signature where overloadedMethod _ = settingsGetEnableFullscreen #endif -- method Settings::get_enable_html5_database -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_html5_database" webkit_settings_get_enable_html5_database :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-database/@ property. -} settingsGetEnableHtml5Database :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If HTML5 database support is enabled or 'False' otherwise. -} settingsGetEnableHtml5Database settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_html5_database settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableHtml5DatabaseMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableHtml5DatabaseMethodInfo a signature where overloadedMethod _ = settingsGetEnableHtml5Database #endif -- method Settings::get_enable_html5_local_storage -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_html5_local_storage" webkit_settings_get_enable_html5_local_storage :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-local-storage/@ property. -} settingsGetEnableHtml5LocalStorage :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If HTML5 local storage support is enabled or 'False' otherwise. -} settingsGetEnableHtml5LocalStorage settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_html5_local_storage settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableHtml5LocalStorageMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableHtml5LocalStorageMethodInfo a signature where overloadedMethod _ = settingsGetEnableHtml5LocalStorage #endif -- method Settings::get_enable_hyperlink_auditing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_hyperlink_auditing" webkit_settings_get_enable_hyperlink_auditing :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-hyperlink-auditing/@ property. -} settingsGetEnableHyperlinkAuditing :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If hyper link auditing is enabled or 'False' otherwise. -} settingsGetEnableHyperlinkAuditing settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_hyperlink_auditing settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableHyperlinkAuditingMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableHyperlinkAuditingMethodInfo a signature where overloadedMethod _ = settingsGetEnableHyperlinkAuditing #endif -- method Settings::get_enable_java -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_java" webkit_settings_get_enable_java :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-java/@ property. -} settingsGetEnableJava :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If Java is enabled or 'False' otherwise. -} settingsGetEnableJava settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_java settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableJavaMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableJavaMethodInfo a signature where overloadedMethod _ = settingsGetEnableJava #endif -- method Settings::get_enable_javascript -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_javascript" webkit_settings_get_enable_javascript :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript/@ property. -} settingsGetEnableJavascript :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If JavaScript is enabled or 'False' otherwise. -} settingsGetEnableJavascript settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_javascript settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableJavascriptMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableJavascriptMethodInfo a signature where overloadedMethod _ = settingsGetEnableJavascript #endif -- method Settings::get_enable_javascript_markup -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_javascript_markup" webkit_settings_get_enable_javascript_markup :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript-markup/@ property. /Since: 2.24/ -} settingsGetEnableJavascriptMarkup :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if JavaScript markup is enabled or 'False' otherwise. -} settingsGetEnableJavascriptMarkup settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_javascript_markup settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableJavascriptMarkupMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableJavascriptMarkupMethodInfo a signature where overloadedMethod _ = settingsGetEnableJavascriptMarkup #endif -- method Settings::get_enable_media_capabilities -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_media_capabilities" webkit_settings_get_enable_media_capabilities :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-media-capabilities/@ property. /Since: 2.22/ -} settingsGetEnableMediaCapabilities :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if MediaCapabilities support is enabled or 'False' otherwise. -} settingsGetEnableMediaCapabilities settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_media_capabilities settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableMediaCapabilitiesMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMediaCapabilitiesMethodInfo a signature where overloadedMethod _ = settingsGetEnableMediaCapabilities #endif -- method Settings::get_enable_media_stream -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_media_stream" webkit_settings_get_enable_media_stream :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-media-stream/@ property. /Since: 2.4/ -} settingsGetEnableMediaStream :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If mediastream support is enabled or 'False' otherwise. -} settingsGetEnableMediaStream settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_media_stream settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableMediaStreamMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMediaStreamMethodInfo a signature where overloadedMethod _ = settingsGetEnableMediaStream #endif -- method Settings::get_enable_mediasource -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_mediasource" webkit_settings_get_enable_mediasource :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-mediasource/@ property. /Since: 2.4/ -} settingsGetEnableMediasource :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If MediaSource support is enabled or 'False' otherwise. -} settingsGetEnableMediasource settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_mediasource settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableMediasourceMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMediasourceMethodInfo a signature where overloadedMethod _ = settingsGetEnableMediasource #endif -- method Settings::get_enable_mock_capture_devices -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_mock_capture_devices" webkit_settings_get_enable_mock_capture_devices :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-mock-capture-devices/@ property. /Since: 2.24/ -} settingsGetEnableMockCaptureDevices :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If mock capture devices is enabled or 'False' otherwise. -} settingsGetEnableMockCaptureDevices settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_mock_capture_devices settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableMockCaptureDevicesMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMockCaptureDevicesMethodInfo a signature where overloadedMethod _ = settingsGetEnableMockCaptureDevices #endif -- method Settings::get_enable_offline_web_application_cache -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_offline_web_application_cache" webkit_settings_get_enable_offline_web_application_cache :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-offline-web-application-cache/@ property. -} settingsGetEnableOfflineWebApplicationCache :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If HTML5 offline web application cache support is enabled or 'False' otherwise. -} settingsGetEnableOfflineWebApplicationCache settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_offline_web_application_cache settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableOfflineWebApplicationCacheMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableOfflineWebApplicationCacheMethodInfo a signature where overloadedMethod _ = settingsGetEnableOfflineWebApplicationCache #endif -- method Settings::get_enable_page_cache -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_page_cache" webkit_settings_get_enable_page_cache :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-page-cache/@ property. -} settingsGetEnablePageCache :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if page cache enabled or 'False' otherwise. -} settingsGetEnablePageCache settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_page_cache settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnablePageCacheMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnablePageCacheMethodInfo a signature where overloadedMethod _ = settingsGetEnablePageCache #endif -- method Settings::get_enable_plugins -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_plugins" webkit_settings_get_enable_plugins :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-plugins/@ property. -} settingsGetEnablePlugins :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If plugins are enabled or 'False' otherwise. -} settingsGetEnablePlugins settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_plugins settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnablePluginsMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnablePluginsMethodInfo a signature where overloadedMethod _ = settingsGetEnablePlugins #endif -- method Settings::get_enable_private_browsing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_private_browsing" webkit_settings_get_enable_private_browsing :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {-# DEPRECATED settingsGetEnablePrivateBrowsing ["(Since version 2.16.)","Use 'GI.WebKit2.Objects.WebView.WebView':@/is-ephemeral/@ or 'GI.WebKit2.Objects.WebContext.WebContext':@/is-ephemeral/@ instead."] #-} {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-private-browsing/@ property. -} settingsGetEnablePrivateBrowsing :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If private browsing is enabled or 'False' otherwise. -} settingsGetEnablePrivateBrowsing settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_private_browsing settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnablePrivateBrowsingMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnablePrivateBrowsingMethodInfo a signature where overloadedMethod _ = settingsGetEnablePrivateBrowsing #endif -- method Settings::get_enable_resizable_text_areas -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_resizable_text_areas" webkit_settings_get_enable_resizable_text_areas :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-resizable-text-areas/@ property. -} settingsGetEnableResizableTextAreas :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If text areas can be resized or 'False' otherwise. -} settingsGetEnableResizableTextAreas settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_resizable_text_areas settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableResizableTextAreasMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableResizableTextAreasMethodInfo a signature where overloadedMethod _ = settingsGetEnableResizableTextAreas #endif -- method Settings::get_enable_site_specific_quirks -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_site_specific_quirks" webkit_settings_get_enable_site_specific_quirks :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-site-specific-quirks/@ property. -} settingsGetEnableSiteSpecificQuirks :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if site specific quirks are enabled or 'False' otherwise. -} settingsGetEnableSiteSpecificQuirks settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_site_specific_quirks settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableSiteSpecificQuirksMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableSiteSpecificQuirksMethodInfo a signature where overloadedMethod _ = settingsGetEnableSiteSpecificQuirks #endif -- method Settings::get_enable_smooth_scrolling -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_smooth_scrolling" webkit_settings_get_enable_smooth_scrolling :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-smooth-scrolling/@ property. -} settingsGetEnableSmoothScrolling :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if smooth scrolling is enabled or 'False' otherwise. -} settingsGetEnableSmoothScrolling settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_smooth_scrolling settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableSmoothScrollingMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableSmoothScrollingMethodInfo a signature where overloadedMethod _ = settingsGetEnableSmoothScrolling #endif -- method Settings::get_enable_spatial_navigation -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_spatial_navigation" webkit_settings_get_enable_spatial_navigation :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-spatial-navigation/@ property. /Since: 2.2/ -} settingsGetEnableSpatialNavigation :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If HTML5 spatial navigation support is enabled or 'False' otherwise. -} settingsGetEnableSpatialNavigation settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_spatial_navigation settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableSpatialNavigationMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableSpatialNavigationMethodInfo a signature where overloadedMethod _ = settingsGetEnableSpatialNavigation #endif -- method Settings::get_enable_tabs_to_links -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_tabs_to_links" webkit_settings_get_enable_tabs_to_links :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-tabs-to-links/@ property. -} settingsGetEnableTabsToLinks :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If tabs to link is enabled or 'False' otherwise. -} settingsGetEnableTabsToLinks settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_tabs_to_links settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableTabsToLinksMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableTabsToLinksMethodInfo a signature where overloadedMethod _ = settingsGetEnableTabsToLinks #endif -- method Settings::get_enable_webaudio -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_webaudio" webkit_settings_get_enable_webaudio :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-webaudio/@ property. -} settingsGetEnableWebaudio :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If webaudio support is enabled or 'False' otherwise. -} settingsGetEnableWebaudio settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_webaudio settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableWebaudioMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableWebaudioMethodInfo a signature where overloadedMethod _ = settingsGetEnableWebaudio #endif -- method Settings::get_enable_webgl -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_webgl" webkit_settings_get_enable_webgl :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-webgl/@ property. -} settingsGetEnableWebgl :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If WebGL support is enabled or 'False' otherwise. -} settingsGetEnableWebgl settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_webgl settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableWebglMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableWebglMethodInfo a signature where overloadedMethod _ = settingsGetEnableWebgl #endif -- method Settings::get_enable_write_console_messages_to_stdout -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_write_console_messages_to_stdout" webkit_settings_get_enable_write_console_messages_to_stdout :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-write-console-messages-to-stdout/@ property. /Since: 2.2/ -} settingsGetEnableWriteConsoleMessagesToStdout :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' if writing console messages to stdout is enabled or 'False' otherwise. -} settingsGetEnableWriteConsoleMessagesToStdout settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_write_console_messages_to_stdout settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where overloadedMethod _ = settingsGetEnableWriteConsoleMessagesToStdout #endif -- method Settings::get_enable_xss_auditor -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_enable_xss_auditor" webkit_settings_get_enable_xss_auditor :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-xss-auditor/@ property. -} settingsGetEnableXssAuditor :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If XSS auditing is enabled or 'False' otherwise. -} settingsGetEnableXssAuditor settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_enable_xss_auditor settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetEnableXssAuditorMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableXssAuditorMethodInfo a signature where overloadedMethod _ = settingsGetEnableXssAuditor #endif -- method Settings::get_fantasy_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_fantasy_font_family" webkit_settings_get_fantasy_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CString {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/fantasy-font-family/@ property. -} settingsGetFantasyFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m T.Text {- ^ __Returns:__ The default font family used to display content marked with fantasy font. -} settingsGetFantasyFontFamily settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_fantasy_font_family settings' checkUnexpectedReturnNULL "settingsGetFantasyFontFamily" result result' <- cstringToText result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetFantasyFontFamilyMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetFantasyFontFamilyMethodInfo a signature where overloadedMethod _ = settingsGetFantasyFontFamily #endif -- method Settings::get_hardware_acceleration_policy -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "HardwareAccelerationPolicy"})) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_hardware_acceleration_policy" webkit_settings_get_hardware_acceleration_policy :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CUInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/hardware-acceleration-policy/@ property. /Since: 2.16/ -} settingsGetHardwareAccelerationPolicy :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m WebKit2.Enums.HardwareAccelerationPolicy {- ^ __Returns:__ a 'GI.WebKit2.Enums.HardwareAccelerationPolicy' -} settingsGetHardwareAccelerationPolicy settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_hardware_acceleration_policy settings' let result' = (toEnum . fromIntegral) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetHardwareAccelerationPolicyMethodInfo instance (signature ~ (m WebKit2.Enums.HardwareAccelerationPolicy), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetHardwareAccelerationPolicyMethodInfo a signature where overloadedMethod _ = settingsGetHardwareAccelerationPolicy #endif -- method Settings::get_javascript_can_access_clipboard -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_javascript_can_access_clipboard" webkit_settings_get_javascript_can_access_clipboard :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-access-clipboard/@ property. -} settingsGetJavascriptCanAccessClipboard :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If javascript-can-access-clipboard is enabled or 'False' otherwise. -} settingsGetJavascriptCanAccessClipboard settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_javascript_can_access_clipboard settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetJavascriptCanAccessClipboardMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetJavascriptCanAccessClipboardMethodInfo a signature where overloadedMethod _ = settingsGetJavascriptCanAccessClipboard #endif -- method Settings::get_javascript_can_open_windows_automatically -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_javascript_can_open_windows_automatically" webkit_settings_get_javascript_can_open_windows_automatically :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-open-windows-automatically/@ property. -} settingsGetJavascriptCanOpenWindowsAutomatically :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If JavaScript can open window automatically or 'False' otherwise. -} settingsGetJavascriptCanOpenWindowsAutomatically settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_javascript_can_open_windows_automatically settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where overloadedMethod _ = settingsGetJavascriptCanOpenWindowsAutomatically #endif -- method Settings::get_load_icons_ignoring_image_load_setting -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_load_icons_ignoring_image_load_setting" webkit_settings_get_load_icons_ignoring_image_load_setting :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/load-icons-ignoring-image-load-setting/@ property. -} settingsGetLoadIconsIgnoringImageLoadSetting :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If site icon can be loaded irrespective of image loading preference or 'False' otherwise. -} settingsGetLoadIconsIgnoringImageLoadSetting settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_load_icons_ignoring_image_load_setting settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where overloadedMethod _ = settingsGetLoadIconsIgnoringImageLoadSetting #endif -- method Settings::get_media_playback_allows_inline -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_media_playback_allows_inline" webkit_settings_get_media_playback_allows_inline :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/media-playback-allows-inline/@ property. -} settingsGetMediaPlaybackAllowsInline :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If inline playback is allowed for media or 'False' if only fullscreen playback is allowed. -} settingsGetMediaPlaybackAllowsInline settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_media_playback_allows_inline settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetMediaPlaybackAllowsInlineMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMediaPlaybackAllowsInlineMethodInfo a signature where overloadedMethod _ = settingsGetMediaPlaybackAllowsInline #endif -- method Settings::get_media_playback_requires_user_gesture -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_media_playback_requires_user_gesture" webkit_settings_get_media_playback_requires_user_gesture :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/media-playback-requires-user-gesture/@ property. -} settingsGetMediaPlaybackRequiresUserGesture :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If an user gesture is needed to play or load media or 'False' if no user gesture is needed. -} settingsGetMediaPlaybackRequiresUserGesture settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_media_playback_requires_user_gesture settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMediaPlaybackRequiresUserGestureMethodInfo a signature where overloadedMethod _ = settingsGetMediaPlaybackRequiresUserGesture #endif -- method Settings::get_minimum_font_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_minimum_font_size" webkit_settings_get_minimum_font_size :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO Word32 {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/minimum-font-size/@ property. -} settingsGetMinimumFontSize :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Word32 {- ^ __Returns:__ Minimum font size, in pixels. -} settingsGetMinimumFontSize settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_minimum_font_size settings' touchManagedPtr settings return result #if ENABLE_OVERLOADING data SettingsGetMinimumFontSizeMethodInfo instance (signature ~ (m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMinimumFontSizeMethodInfo a signature where overloadedMethod _ = settingsGetMinimumFontSize #endif -- method Settings::get_monospace_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_monospace_font_family" webkit_settings_get_monospace_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CString {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/monospace-font-family/@ property. -} settingsGetMonospaceFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m T.Text {- ^ __Returns:__ Default font family used to display content marked with monospace font. -} settingsGetMonospaceFontFamily settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_monospace_font_family settings' checkUnexpectedReturnNULL "settingsGetMonospaceFontFamily" result result' <- cstringToText result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetMonospaceFontFamilyMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMonospaceFontFamilyMethodInfo a signature where overloadedMethod _ = settingsGetMonospaceFontFamily #endif -- method Settings::get_pictograph_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_pictograph_font_family" webkit_settings_get_pictograph_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CString {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/pictograph-font-family/@ property. -} settingsGetPictographFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m T.Text {- ^ __Returns:__ The default font family used to display content marked with pictograph font. -} settingsGetPictographFontFamily settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_pictograph_font_family settings' checkUnexpectedReturnNULL "settingsGetPictographFontFamily" result result' <- cstringToText result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetPictographFontFamilyMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetPictographFontFamilyMethodInfo a signature where overloadedMethod _ = settingsGetPictographFontFamily #endif -- method Settings::get_print_backgrounds -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_print_backgrounds" webkit_settings_get_print_backgrounds :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/print-backgrounds/@ property. -} settingsGetPrintBackgrounds :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If background images should be printed or 'False' otherwise. -} settingsGetPrintBackgrounds settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_print_backgrounds settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetPrintBackgroundsMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetPrintBackgroundsMethodInfo a signature where overloadedMethod _ = settingsGetPrintBackgrounds #endif -- method Settings::get_sans_serif_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_sans_serif_font_family" webkit_settings_get_sans_serif_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CString {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/sans-serif-font-family/@ property. -} settingsGetSansSerifFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m T.Text {- ^ __Returns:__ The default font family used to display content marked with sans-serif font. -} settingsGetSansSerifFontFamily settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_sans_serif_font_family settings' checkUnexpectedReturnNULL "settingsGetSansSerifFontFamily" result result' <- cstringToText result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetSansSerifFontFamilyMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetSansSerifFontFamilyMethodInfo a signature where overloadedMethod _ = settingsGetSansSerifFontFamily #endif -- method Settings::get_serif_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_serif_font_family" webkit_settings_get_serif_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CString {- | Gets the 'GI.WebKit2.Objects.Settings.Settings':@/serif-font-family/@ property. -} settingsGetSerifFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m T.Text {- ^ __Returns:__ The default font family used to display content marked with serif font. -} settingsGetSerifFontFamily settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_serif_font_family settings' checkUnexpectedReturnNULL "settingsGetSerifFontFamily" result result' <- cstringToText result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetSerifFontFamilyMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetSerifFontFamilyMethodInfo a signature where overloadedMethod _ = settingsGetSerifFontFamily #endif -- method Settings::get_user_agent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_user_agent" webkit_settings_get_user_agent :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CString {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/user-agent/@ property. -} settingsGetUserAgent :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m T.Text {- ^ __Returns:__ The current value of the user-agent property. -} settingsGetUserAgent settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_user_agent settings' checkUnexpectedReturnNULL "settingsGetUserAgent" result result' <- cstringToText result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetUserAgentMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetUserAgentMethodInfo a signature where overloadedMethod _ = settingsGetUserAgent #endif -- method Settings::get_zoom_text_only -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_get_zoom_text_only" webkit_settings_get_zoom_text_only :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) IO CInt {- | Get the 'GI.WebKit2.Objects.Settings.Settings':@/zoom-text-only/@ property. -} settingsGetZoomTextOnly :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> m Bool {- ^ __Returns:__ 'True' If zoom level of the view should only affect the text or 'False' if all view contents should be scaled. -} settingsGetZoomTextOnly settings = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings result <- webkit_settings_get_zoom_text_only settings' let result' = (/= 0) result touchManagedPtr settings return result' #if ENABLE_OVERLOADING data SettingsGetZoomTextOnlyMethodInfo instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetZoomTextOnlyMethodInfo a signature where overloadedMethod _ = settingsGetZoomTextOnly #endif -- method Settings::set_allow_file_access_from_file_urls -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_allow_file_access_from_file_urls" webkit_settings_set_allow_file_access_from_file_urls :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- allowed : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/allow-file-access-from-file-urls/@ property. /Since: 2.10/ -} settingsSetAllowFileAccessFromFileUrls :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@allowed@/: Value to be set -} -> m () settingsSetAllowFileAccessFromFileUrls settings allowed = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let allowed' = (fromIntegral . fromEnum) allowed webkit_settings_set_allow_file_access_from_file_urls settings' allowed' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetAllowFileAccessFromFileUrlsMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAllowFileAccessFromFileUrlsMethodInfo a signature where overloadedMethod _ = settingsSetAllowFileAccessFromFileUrls #endif -- method Settings::set_allow_modal_dialogs -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_allow_modal_dialogs" webkit_settings_set_allow_modal_dialogs :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- allowed : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/allow-modal-dialogs/@ property. -} settingsSetAllowModalDialogs :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@allowed@/: Value to be set -} -> m () settingsSetAllowModalDialogs settings allowed = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let allowed' = (fromIntegral . fromEnum) allowed webkit_settings_set_allow_modal_dialogs settings' allowed' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetAllowModalDialogsMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAllowModalDialogsMethodInfo a signature where overloadedMethod _ = settingsSetAllowModalDialogs #endif -- method Settings::set_allow_universal_access_from_file_urls -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_allow_universal_access_from_file_urls" webkit_settings_set_allow_universal_access_from_file_urls :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- allowed : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/allow-universal-access-from-file-urls/@ property. /Since: 2.14/ -} settingsSetAllowUniversalAccessFromFileUrls :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@allowed@/: Value to be set -} -> m () settingsSetAllowUniversalAccessFromFileUrls settings allowed = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let allowed' = (fromIntegral . fromEnum) allowed webkit_settings_set_allow_universal_access_from_file_urls settings' allowed' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo a signature where overloadedMethod _ = settingsSetAllowUniversalAccessFromFileUrls #endif -- method Settings::set_auto_load_images -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_auto_load_images" webkit_settings_set_auto_load_images :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/auto-load-images/@ property. -} settingsSetAutoLoadImages :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetAutoLoadImages settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_auto_load_images settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetAutoLoadImagesMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAutoLoadImagesMethodInfo a signature where overloadedMethod _ = settingsSetAutoLoadImages #endif -- method Settings::set_cursive_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursive_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default cursive font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_cursive_font_family" webkit_settings_set_cursive_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- cursive_font_family : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/cursive-font-family/@ property. -} settingsSetCursiveFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> T.Text {- ^ /@cursiveFontFamily@/: the new default cursive font family -} -> m () settingsSetCursiveFontFamily settings cursiveFontFamily = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings cursiveFontFamily' <- textToCString cursiveFontFamily webkit_settings_set_cursive_font_family settings' cursiveFontFamily' touchManagedPtr settings freeMem cursiveFontFamily' return () #if ENABLE_OVERLOADING data SettingsSetCursiveFontFamilyMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetCursiveFontFamilyMethodInfo a signature where overloadedMethod _ = settingsSetCursiveFontFamily #endif -- method Settings::set_default_charset -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "default charset to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_default_charset" webkit_settings_set_default_charset :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- default_charset : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/default-charset/@ property. -} settingsSetDefaultCharset :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> T.Text {- ^ /@defaultCharset@/: default charset to be set -} -> m () settingsSetDefaultCharset settings defaultCharset = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings defaultCharset' <- textToCString defaultCharset webkit_settings_set_default_charset settings' defaultCharset' touchManagedPtr settings freeMem defaultCharset' return () #if ENABLE_OVERLOADING data SettingsSetDefaultCharsetMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultCharsetMethodInfo a signature where overloadedMethod _ = settingsSetDefaultCharset #endif -- method Settings::set_default_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_default_font_family" webkit_settings_set_default_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- default_font_family : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/default-font-family/@ property. -} settingsSetDefaultFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> T.Text {- ^ /@defaultFontFamily@/: the new default font family -} -> m () settingsSetDefaultFontFamily settings defaultFontFamily = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings defaultFontFamily' <- textToCString defaultFontFamily webkit_settings_set_default_font_family settings' defaultFontFamily' touchManagedPtr settings freeMem defaultFontFamily' return () #if ENABLE_OVERLOADING data SettingsSetDefaultFontFamilyMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultFontFamilyMethodInfo a signature where overloadedMethod _ = settingsSetDefaultFontFamily #endif -- method Settings::set_default_font_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "default font size to be set in pixels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_default_font_size" webkit_settings_set_default_font_size :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) Word32 -> -- font_size : TBasicType TUInt32 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/default-font-size/@ property. -} settingsSetDefaultFontSize :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Word32 {- ^ /@fontSize@/: default font size to be set in pixels -} -> m () settingsSetDefaultFontSize settings fontSize = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings webkit_settings_set_default_font_size settings' fontSize touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetDefaultFontSizeMethodInfo instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultFontSizeMethodInfo a signature where overloadedMethod _ = settingsSetDefaultFontSize #endif -- method Settings::set_default_monospace_font_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "default monospace font size to be set in pixels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_default_monospace_font_size" webkit_settings_set_default_monospace_font_size :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) Word32 -> -- font_size : TBasicType TUInt32 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/default-monospace-font-size/@ property. -} settingsSetDefaultMonospaceFontSize :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Word32 {- ^ /@fontSize@/: default monospace font size to be set in pixels -} -> m () settingsSetDefaultMonospaceFontSize settings fontSize = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings webkit_settings_set_default_monospace_font_size settings' fontSize touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetDefaultMonospaceFontSizeMethodInfo instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultMonospaceFontSizeMethodInfo a signature where overloadedMethod _ = settingsSetDefaultMonospaceFontSize #endif -- method Settings::set_draw_compositing_indicators -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_draw_compositing_indicators" webkit_settings_set_draw_compositing_indicators :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/draw-compositing-indicators/@ property. -} settingsSetDrawCompositingIndicators :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetDrawCompositingIndicators settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_draw_compositing_indicators settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetDrawCompositingIndicatorsMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDrawCompositingIndicatorsMethodInfo a signature where overloadedMethod _ = settingsSetDrawCompositingIndicators #endif -- method Settings::set_enable_accelerated_2d_canvas -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_accelerated_2d_canvas" webkit_settings_set_enable_accelerated_2d_canvas :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-accelerated-2d-canvas/@ property. /Since: 2.2/ -} settingsSetEnableAccelerated2dCanvas :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableAccelerated2dCanvas settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_accelerated_2d_canvas settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableAccelerated2dCanvasMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableAccelerated2dCanvasMethodInfo a signature where overloadedMethod _ = settingsSetEnableAccelerated2dCanvas #endif -- method Settings::set_enable_back_forward_navigation_gestures -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_back_forward_navigation_gestures" webkit_settings_set_enable_back_forward_navigation_gestures :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-back-forward-navigation-gestures/@ property. /Since: 2.24/ -} settingsSetEnableBackForwardNavigationGestures :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: value to be set -} -> m () settingsSetEnableBackForwardNavigationGestures settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_back_forward_navigation_gestures settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableBackForwardNavigationGesturesMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableBackForwardNavigationGesturesMethodInfo a signature where overloadedMethod _ = settingsSetEnableBackForwardNavigationGestures #endif -- method Settings::set_enable_caret_browsing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_caret_browsing" webkit_settings_set_enable_caret_browsing :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-caret-browsing/@ property. -} settingsSetEnableCaretBrowsing :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableCaretBrowsing settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_caret_browsing settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableCaretBrowsingMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableCaretBrowsingMethodInfo a signature where overloadedMethod _ = settingsSetEnableCaretBrowsing #endif -- method Settings::set_enable_developer_extras -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_developer_extras" webkit_settings_set_enable_developer_extras :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-developer-extras/@ property. -} settingsSetEnableDeveloperExtras :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableDeveloperExtras settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_developer_extras settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableDeveloperExtrasMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableDeveloperExtrasMethodInfo a signature where overloadedMethod _ = settingsSetEnableDeveloperExtras #endif -- method Settings::set_enable_dns_prefetching -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_dns_prefetching" webkit_settings_set_enable_dns_prefetching :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-dns-prefetching/@ property. -} settingsSetEnableDnsPrefetching :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableDnsPrefetching settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_dns_prefetching settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableDnsPrefetchingMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableDnsPrefetchingMethodInfo a signature where overloadedMethod _ = settingsSetEnableDnsPrefetching #endif -- method Settings::set_enable_encrypted_media -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_encrypted_media" webkit_settings_set_enable_encrypted_media :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-encrypted-media/@ property. /Since: 2.20/ -} settingsSetEnableEncryptedMedia :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableEncryptedMedia settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_encrypted_media settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableEncryptedMediaMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableEncryptedMediaMethodInfo a signature where overloadedMethod _ = settingsSetEnableEncryptedMedia #endif -- method Settings::set_enable_frame_flattening -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_frame_flattening" webkit_settings_set_enable_frame_flattening :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-frame-flattening/@ property. -} settingsSetEnableFrameFlattening :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableFrameFlattening settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_frame_flattening settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableFrameFlatteningMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableFrameFlatteningMethodInfo a signature where overloadedMethod _ = settingsSetEnableFrameFlattening #endif -- method Settings::set_enable_fullscreen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_fullscreen" webkit_settings_set_enable_fullscreen :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-fullscreen/@ property. -} settingsSetEnableFullscreen :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableFullscreen settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_fullscreen settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableFullscreenMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableFullscreenMethodInfo a signature where overloadedMethod _ = settingsSetEnableFullscreen #endif -- method Settings::set_enable_html5_database -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_html5_database" webkit_settings_set_enable_html5_database :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-database/@ property. -} settingsSetEnableHtml5Database :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableHtml5Database settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_html5_database settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableHtml5DatabaseMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableHtml5DatabaseMethodInfo a signature where overloadedMethod _ = settingsSetEnableHtml5Database #endif -- method Settings::set_enable_html5_local_storage -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_html5_local_storage" webkit_settings_set_enable_html5_local_storage :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-local-storage/@ property. -} settingsSetEnableHtml5LocalStorage :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableHtml5LocalStorage settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_html5_local_storage settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableHtml5LocalStorageMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableHtml5LocalStorageMethodInfo a signature where overloadedMethod _ = settingsSetEnableHtml5LocalStorage #endif -- method Settings::set_enable_hyperlink_auditing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_hyperlink_auditing" webkit_settings_set_enable_hyperlink_auditing :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-hyperlink-auditing/@ property. -} settingsSetEnableHyperlinkAuditing :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableHyperlinkAuditing settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_hyperlink_auditing settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableHyperlinkAuditingMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableHyperlinkAuditingMethodInfo a signature where overloadedMethod _ = settingsSetEnableHyperlinkAuditing #endif -- method Settings::set_enable_java -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_java" webkit_settings_set_enable_java :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-java/@ property. -} settingsSetEnableJava :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableJava settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_java settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableJavaMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableJavaMethodInfo a signature where overloadedMethod _ = settingsSetEnableJava #endif -- method Settings::set_enable_javascript -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_javascript" webkit_settings_set_enable_javascript :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript/@ property. -} settingsSetEnableJavascript :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableJavascript settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_javascript settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableJavascriptMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableJavascriptMethodInfo a signature where overloadedMethod _ = settingsSetEnableJavascript #endif -- method Settings::set_enable_javascript_markup -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_javascript_markup" webkit_settings_set_enable_javascript_markup :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript-markup/@ property. /Since: 2.24/ -} settingsSetEnableJavascriptMarkup :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableJavascriptMarkup settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_javascript_markup settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableJavascriptMarkupMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableJavascriptMarkupMethodInfo a signature where overloadedMethod _ = settingsSetEnableJavascriptMarkup #endif -- method Settings::set_enable_media_capabilities -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_media_capabilities" webkit_settings_set_enable_media_capabilities :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-media-capabilities/@ property. /Since: 2.22/ -} settingsSetEnableMediaCapabilities :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableMediaCapabilities settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_media_capabilities settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableMediaCapabilitiesMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMediaCapabilitiesMethodInfo a signature where overloadedMethod _ = settingsSetEnableMediaCapabilities #endif -- method Settings::set_enable_media_stream -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_media_stream" webkit_settings_set_enable_media_stream :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-media-stream/@ property. /Since: 2.4/ -} settingsSetEnableMediaStream :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableMediaStream settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_media_stream settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableMediaStreamMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMediaStreamMethodInfo a signature where overloadedMethod _ = settingsSetEnableMediaStream #endif -- method Settings::set_enable_mediasource -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_mediasource" webkit_settings_set_enable_mediasource :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-mediasource/@ property. /Since: 2.4/ -} settingsSetEnableMediasource :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableMediasource settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_mediasource settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableMediasourceMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMediasourceMethodInfo a signature where overloadedMethod _ = settingsSetEnableMediasource #endif -- method Settings::set_enable_mock_capture_devices -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_mock_capture_devices" webkit_settings_set_enable_mock_capture_devices :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-mock-capture-devices/@ property. /Since: 2.4/ -} settingsSetEnableMockCaptureDevices :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableMockCaptureDevices settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_mock_capture_devices settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableMockCaptureDevicesMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMockCaptureDevicesMethodInfo a signature where overloadedMethod _ = settingsSetEnableMockCaptureDevices #endif -- method Settings::set_enable_offline_web_application_cache -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_offline_web_application_cache" webkit_settings_set_enable_offline_web_application_cache :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-offline-web-application-cache/@ property. -} settingsSetEnableOfflineWebApplicationCache :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableOfflineWebApplicationCache settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_offline_web_application_cache settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableOfflineWebApplicationCacheMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableOfflineWebApplicationCacheMethodInfo a signature where overloadedMethod _ = settingsSetEnableOfflineWebApplicationCache #endif -- method Settings::set_enable_page_cache -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_page_cache" webkit_settings_set_enable_page_cache :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-page-cache/@ property. -} settingsSetEnablePageCache :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnablePageCache settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_page_cache settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnablePageCacheMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnablePageCacheMethodInfo a signature where overloadedMethod _ = settingsSetEnablePageCache #endif -- method Settings::set_enable_plugins -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_plugins" webkit_settings_set_enable_plugins :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-plugins/@ property. -} settingsSetEnablePlugins :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnablePlugins settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_plugins settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnablePluginsMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnablePluginsMethodInfo a signature where overloadedMethod _ = settingsSetEnablePlugins #endif -- method Settings::set_enable_private_browsing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_private_browsing" webkit_settings_set_enable_private_browsing :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {-# DEPRECATED settingsSetEnablePrivateBrowsing ["(Since version 2.16.)","Use 'GI.WebKit2.Objects.WebView.WebView':@/is-ephemeral/@ or 'GI.WebKit2.Objects.WebContext.WebContext':@/is-ephemeral/@ instead."] #-} {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-private-browsing/@ property. -} settingsSetEnablePrivateBrowsing :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnablePrivateBrowsing settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_private_browsing settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnablePrivateBrowsingMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnablePrivateBrowsingMethodInfo a signature where overloadedMethod _ = settingsSetEnablePrivateBrowsing #endif -- method Settings::set_enable_resizable_text_areas -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_resizable_text_areas" webkit_settings_set_enable_resizable_text_areas :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-resizable-text-areas/@ property. -} settingsSetEnableResizableTextAreas :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableResizableTextAreas settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_resizable_text_areas settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableResizableTextAreasMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableResizableTextAreasMethodInfo a signature where overloadedMethod _ = settingsSetEnableResizableTextAreas #endif -- method Settings::set_enable_site_specific_quirks -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_site_specific_quirks" webkit_settings_set_enable_site_specific_quirks :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-site-specific-quirks/@ property. -} settingsSetEnableSiteSpecificQuirks :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableSiteSpecificQuirks settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_site_specific_quirks settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableSiteSpecificQuirksMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableSiteSpecificQuirksMethodInfo a signature where overloadedMethod _ = settingsSetEnableSiteSpecificQuirks #endif -- method Settings::set_enable_smooth_scrolling -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_smooth_scrolling" webkit_settings_set_enable_smooth_scrolling :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-smooth-scrolling/@ property. -} settingsSetEnableSmoothScrolling :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableSmoothScrolling settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_smooth_scrolling settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableSmoothScrollingMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableSmoothScrollingMethodInfo a signature where overloadedMethod _ = settingsSetEnableSmoothScrolling #endif -- method Settings::set_enable_spatial_navigation -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_spatial_navigation" webkit_settings_set_enable_spatial_navigation :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-spatial-navigation/@ property. /Since: 2.2/ -} settingsSetEnableSpatialNavigation :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableSpatialNavigation settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_spatial_navigation settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableSpatialNavigationMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableSpatialNavigationMethodInfo a signature where overloadedMethod _ = settingsSetEnableSpatialNavigation #endif -- method Settings::set_enable_tabs_to_links -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_tabs_to_links" webkit_settings_set_enable_tabs_to_links :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-tabs-to-links/@ property. -} settingsSetEnableTabsToLinks :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableTabsToLinks settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_tabs_to_links settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableTabsToLinksMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableTabsToLinksMethodInfo a signature where overloadedMethod _ = settingsSetEnableTabsToLinks #endif -- method Settings::set_enable_webaudio -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_webaudio" webkit_settings_set_enable_webaudio :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-webaudio/@ property. -} settingsSetEnableWebaudio :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableWebaudio settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_webaudio settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableWebaudioMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableWebaudioMethodInfo a signature where overloadedMethod _ = settingsSetEnableWebaudio #endif -- method Settings::set_enable_webgl -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_webgl" webkit_settings_set_enable_webgl :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-webgl/@ property. -} settingsSetEnableWebgl :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableWebgl settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_webgl settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableWebglMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableWebglMethodInfo a signature where overloadedMethod _ = settingsSetEnableWebgl #endif -- method Settings::set_enable_write_console_messages_to_stdout -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_write_console_messages_to_stdout" webkit_settings_set_enable_write_console_messages_to_stdout :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-write-console-messages-to-stdout/@ property. /Since: 2.2/ -} settingsSetEnableWriteConsoleMessagesToStdout :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableWriteConsoleMessagesToStdout settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_write_console_messages_to_stdout settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where overloadedMethod _ = settingsSetEnableWriteConsoleMessagesToStdout #endif -- method Settings::set_enable_xss_auditor -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_enable_xss_auditor" webkit_settings_set_enable_xss_auditor :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-xss-auditor/@ property. -} settingsSetEnableXssAuditor :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetEnableXssAuditor settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_enable_xss_auditor settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetEnableXssAuditorMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableXssAuditorMethodInfo a signature where overloadedMethod _ = settingsSetEnableXssAuditor #endif -- method Settings::set_fantasy_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fantasy_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default fantasy font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_fantasy_font_family" webkit_settings_set_fantasy_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- fantasy_font_family : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/fantasy-font-family/@ property. -} settingsSetFantasyFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> T.Text {- ^ /@fantasyFontFamily@/: the new default fantasy font family -} -> m () settingsSetFantasyFontFamily settings fantasyFontFamily = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings fantasyFontFamily' <- textToCString fantasyFontFamily webkit_settings_set_fantasy_font_family settings' fantasyFontFamily' touchManagedPtr settings freeMem fantasyFontFamily' return () #if ENABLE_OVERLOADING data SettingsSetFantasyFontFamilyMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetFantasyFontFamilyMethodInfo a signature where overloadedMethod _ = settingsSetFantasyFontFamily #endif -- method Settings::set_hardware_acceleration_policy -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface (Name {namespace = "WebKit2", name = "HardwareAccelerationPolicy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHardwareAccelerationPolicy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_hardware_acceleration_policy" webkit_settings_set_hardware_acceleration_policy :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CUInt -> -- policy : TInterface (Name {namespace = "WebKit2", name = "HardwareAccelerationPolicy"}) IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/hardware-acceleration-policy/@ property. /Since: 2.16/ -} settingsSetHardwareAccelerationPolicy :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> WebKit2.Enums.HardwareAccelerationPolicy {- ^ /@policy@/: a 'GI.WebKit2.Enums.HardwareAccelerationPolicy' -} -> m () settingsSetHardwareAccelerationPolicy settings policy = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let policy' = (fromIntegral . fromEnum) policy webkit_settings_set_hardware_acceleration_policy settings' policy' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetHardwareAccelerationPolicyMethodInfo instance (signature ~ (WebKit2.Enums.HardwareAccelerationPolicy -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetHardwareAccelerationPolicyMethodInfo a signature where overloadedMethod _ = settingsSetHardwareAccelerationPolicy #endif -- method Settings::set_javascript_can_access_clipboard -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_javascript_can_access_clipboard" webkit_settings_set_javascript_can_access_clipboard :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-access-clipboard/@ property. -} settingsSetJavascriptCanAccessClipboard :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetJavascriptCanAccessClipboard settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_javascript_can_access_clipboard settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetJavascriptCanAccessClipboardMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetJavascriptCanAccessClipboardMethodInfo a signature where overloadedMethod _ = settingsSetJavascriptCanAccessClipboard #endif -- method Settings::set_javascript_can_open_windows_automatically -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_javascript_can_open_windows_automatically" webkit_settings_set_javascript_can_open_windows_automatically :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-open-windows-automatically/@ property. -} settingsSetJavascriptCanOpenWindowsAutomatically :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetJavascriptCanOpenWindowsAutomatically settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_javascript_can_open_windows_automatically settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where overloadedMethod _ = settingsSetJavascriptCanOpenWindowsAutomatically #endif -- method Settings::set_load_icons_ignoring_image_load_setting -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_load_icons_ignoring_image_load_setting" webkit_settings_set_load_icons_ignoring_image_load_setting :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/load-icons-ignoring-image-load-setting/@ property. -} settingsSetLoadIconsIgnoringImageLoadSetting :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetLoadIconsIgnoringImageLoadSetting settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_load_icons_ignoring_image_load_setting settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where overloadedMethod _ = settingsSetLoadIconsIgnoringImageLoadSetting #endif -- method Settings::set_media_playback_allows_inline -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_media_playback_allows_inline" webkit_settings_set_media_playback_allows_inline :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/media-playback-allows-inline/@ property. -} settingsSetMediaPlaybackAllowsInline :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetMediaPlaybackAllowsInline settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_media_playback_allows_inline settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetMediaPlaybackAllowsInlineMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMediaPlaybackAllowsInlineMethodInfo a signature where overloadedMethod _ = settingsSetMediaPlaybackAllowsInline #endif -- method Settings::set_media_playback_requires_user_gesture -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_media_playback_requires_user_gesture" webkit_settings_set_media_playback_requires_user_gesture :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- enabled : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/media-playback-requires-user-gesture/@ property. -} settingsSetMediaPlaybackRequiresUserGesture :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@enabled@/: Value to be set -} -> m () settingsSetMediaPlaybackRequiresUserGesture settings enabled = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let enabled' = (fromIntegral . fromEnum) enabled webkit_settings_set_media_playback_requires_user_gesture settings' enabled' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMediaPlaybackRequiresUserGestureMethodInfo a signature where overloadedMethod _ = settingsSetMediaPlaybackRequiresUserGesture #endif -- method Settings::set_minimum_font_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "minimum font size to be set in pixels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_minimum_font_size" webkit_settings_set_minimum_font_size :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) Word32 -> -- font_size : TBasicType TUInt32 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/minimum-font-size/@ property. -} settingsSetMinimumFontSize :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Word32 {- ^ /@fontSize@/: minimum font size to be set in pixels -} -> m () settingsSetMinimumFontSize settings fontSize = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings webkit_settings_set_minimum_font_size settings' fontSize touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetMinimumFontSizeMethodInfo instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMinimumFontSizeMethodInfo a signature where overloadedMethod _ = settingsSetMinimumFontSize #endif -- method Settings::set_monospace_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monospace_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default monospace font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_monospace_font_family" webkit_settings_set_monospace_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- monospace_font_family : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/monospace-font-family/@ property. -} settingsSetMonospaceFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> T.Text {- ^ /@monospaceFontFamily@/: the new default monospace font family -} -> m () settingsSetMonospaceFontFamily settings monospaceFontFamily = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings monospaceFontFamily' <- textToCString monospaceFontFamily webkit_settings_set_monospace_font_family settings' monospaceFontFamily' touchManagedPtr settings freeMem monospaceFontFamily' return () #if ENABLE_OVERLOADING data SettingsSetMonospaceFontFamilyMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMonospaceFontFamilyMethodInfo a signature where overloadedMethod _ = settingsSetMonospaceFontFamily #endif -- method Settings::set_pictograph_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pictograph_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default pictograph font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_pictograph_font_family" webkit_settings_set_pictograph_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- pictograph_font_family : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/pictograph-font-family/@ property. -} settingsSetPictographFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> T.Text {- ^ /@pictographFontFamily@/: the new default pictograph font family -} -> m () settingsSetPictographFontFamily settings pictographFontFamily = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings pictographFontFamily' <- textToCString pictographFontFamily webkit_settings_set_pictograph_font_family settings' pictographFontFamily' touchManagedPtr settings freeMem pictographFontFamily' return () #if ENABLE_OVERLOADING data SettingsSetPictographFontFamilyMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetPictographFontFamilyMethodInfo a signature where overloadedMethod _ = settingsSetPictographFontFamily #endif -- method Settings::set_print_backgrounds -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_backgrounds", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_print_backgrounds" webkit_settings_set_print_backgrounds :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- print_backgrounds : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/print-backgrounds/@ property. -} settingsSetPrintBackgrounds :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@printBackgrounds@/: Value to be set -} -> m () settingsSetPrintBackgrounds settings printBackgrounds = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let printBackgrounds' = (fromIntegral . fromEnum) printBackgrounds webkit_settings_set_print_backgrounds settings' printBackgrounds' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetPrintBackgroundsMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetPrintBackgroundsMethodInfo a signature where overloadedMethod _ = settingsSetPrintBackgrounds #endif -- method Settings::set_sans_serif_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sans_serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default sans-serif font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_sans_serif_font_family" webkit_settings_set_sans_serif_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- sans_serif_font_family : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/sans-serif-font-family/@ property. -} settingsSetSansSerifFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> T.Text {- ^ /@sansSerifFontFamily@/: the new default sans-serif font family -} -> m () settingsSetSansSerifFontFamily settings sansSerifFontFamily = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings sansSerifFontFamily' <- textToCString sansSerifFontFamily webkit_settings_set_sans_serif_font_family settings' sansSerifFontFamily' touchManagedPtr settings freeMem sansSerifFontFamily' return () #if ENABLE_OVERLOADING data SettingsSetSansSerifFontFamilyMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetSansSerifFontFamilyMethodInfo a signature where overloadedMethod _ = settingsSetSansSerifFontFamily #endif -- method Settings::set_serif_font_family -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default serif font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_serif_font_family" webkit_settings_set_serif_font_family :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- serif_font_family : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/serif-font-family/@ property. -} settingsSetSerifFontFamily :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> T.Text {- ^ /@serifFontFamily@/: the new default serif font family -} -> m () settingsSetSerifFontFamily settings serifFontFamily = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings serifFontFamily' <- textToCString serifFontFamily webkit_settings_set_serif_font_family settings' serifFontFamily' touchManagedPtr settings freeMem serifFontFamily' return () #if ENABLE_OVERLOADING data SettingsSetSerifFontFamilyMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetSerifFontFamilyMethodInfo a signature where overloadedMethod _ = settingsSetSerifFontFamily #endif -- method Settings::set_user_agent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_agent", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The new custom user agent string or %NULL to use the default user agent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_user_agent" webkit_settings_set_user_agent :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- user_agent : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/user-agent/@ property. -} settingsSetUserAgent :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Maybe (T.Text) {- ^ /@userAgent@/: The new custom user agent string or 'Nothing' to use the default user agent -} -> m () settingsSetUserAgent settings userAgent = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings maybeUserAgent <- case userAgent of Nothing -> return nullPtr Just jUserAgent -> do jUserAgent' <- textToCString jUserAgent return jUserAgent' webkit_settings_set_user_agent settings' maybeUserAgent touchManagedPtr settings freeMem maybeUserAgent return () #if ENABLE_OVERLOADING data SettingsSetUserAgentMethodInfo instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetUserAgentMethodInfo a signature where overloadedMethod _ = settingsSetUserAgent #endif -- method Settings::set_user_agent_with_application_details -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The application name used for the user agent or %NULL to use the default user agent.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The application version for the user agent or %NULL to user the default version.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_user_agent_with_application_details" webkit_settings_set_user_agent_with_application_details :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CString -> -- application_name : TBasicType TUTF8 CString -> -- application_version : TBasicType TUTF8 IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/user-agent/@ property by appending the application details to the default user agent. If no application name or version is given, the default user agent used will be used. If only the version is given, the default engine version is used with the given application name. -} settingsSetUserAgentWithApplicationDetails :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Maybe (T.Text) {- ^ /@applicationName@/: The application name used for the user agent or 'Nothing' to use the default user agent. -} -> Maybe (T.Text) {- ^ /@applicationVersion@/: The application version for the user agent or 'Nothing' to user the default version. -} -> m () settingsSetUserAgentWithApplicationDetails settings applicationName applicationVersion = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings maybeApplicationName <- case applicationName of Nothing -> return nullPtr Just jApplicationName -> do jApplicationName' <- textToCString jApplicationName return jApplicationName' maybeApplicationVersion <- case applicationVersion of Nothing -> return nullPtr Just jApplicationVersion -> do jApplicationVersion' <- textToCString jApplicationVersion return jApplicationVersion' webkit_settings_set_user_agent_with_application_details settings' maybeApplicationName maybeApplicationVersion touchManagedPtr settings freeMem maybeApplicationName freeMem maybeApplicationVersion return () #if ENABLE_OVERLOADING data SettingsSetUserAgentWithApplicationDetailsMethodInfo instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetUserAgentWithApplicationDetailsMethodInfo a signature where overloadedMethod _ = settingsSetUserAgentWithApplicationDetails #endif -- method Settings::set_zoom_text_only -- method type : OrdinaryMethod -- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_text_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_settings_set_zoom_text_only" webkit_settings_set_zoom_text_only :: Ptr Settings -> -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"}) CInt -> -- zoom_text_only : TBasicType TBoolean IO () {- | Set the 'GI.WebKit2.Objects.Settings.Settings':@/zoom-text-only/@ property. -} settingsSetZoomTextOnly :: (B.CallStack.HasCallStack, MonadIO m, IsSettings a) => a {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -} -> Bool {- ^ /@zoomTextOnly@/: Value to be set -} -> m () settingsSetZoomTextOnly settings zoomTextOnly = liftIO $ do settings' <- unsafeManagedPtrCastPtr settings let zoomTextOnly' = (fromIntegral . fromEnum) zoomTextOnly webkit_settings_set_zoom_text_only settings' zoomTextOnly' touchManagedPtr settings return () #if ENABLE_OVERLOADING data SettingsSetZoomTextOnlyMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetZoomTextOnlyMethodInfo a signature where overloadedMethod _ = settingsSetZoomTextOnly #endif -- method Settings::font_size_to_pixels -- method type : MemberFunction -- Args : [Arg {argCName = "points", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the font size in points to convert to pixels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_font_size_to_pixels" webkit_settings_font_size_to_pixels :: Word32 -> -- points : TBasicType TUInt32 IO Word32 {- | Convert /@points@/ to the equivalent value in pixels, based on the current screen DPI. Applications can use this function to convert font size values in points to font size values in pixels when setting the font size properties of 'GI.WebKit2.Objects.Settings.Settings'. /Since: 2.20/ -} settingsFontSizeToPixels :: (B.CallStack.HasCallStack, MonadIO m) => Word32 {- ^ /@points@/: the font size in points to convert to pixels -} -> m Word32 {- ^ __Returns:__ the equivalent font size in pixels. -} settingsFontSizeToPixels points = liftIO $ do result <- webkit_settings_font_size_to_pixels points return result #if ENABLE_OVERLOADING #endif -- method Settings::font_size_to_points -- method type : MemberFunction -- Args : [Arg {argCName = "pixels", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the font size in pixels to convert to points", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False foreign import ccall "webkit_settings_font_size_to_points" webkit_settings_font_size_to_points :: Word32 -> -- pixels : TBasicType TUInt32 IO Word32 {- | Convert /@pixels@/ to the equivalent value in points, based on the current screen DPI. Applications can use this function to convert font size values in pixels to font size values in points when getting the font size properties of 'GI.WebKit2.Objects.Settings.Settings'. /Since: 2.20/ -} settingsFontSizeToPoints :: (B.CallStack.HasCallStack, MonadIO m) => Word32 {- ^ /@pixels@/: the font size in pixels to convert to points -} -> m Word32 {- ^ __Returns:__ the equivalent font size in points. -} settingsFontSizeToPoints pixels = liftIO $ do result <- webkit_settings_font_size_to_points pixels return result #if ENABLE_OVERLOADING #endif