{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- /No description available in the introspection data./

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.WebKit2.Objects.Settings
    ( 

-- * Exported types
    Settings(..)                            ,
    IsSettings                              ,
    toSettings                              ,
    noSettings                              ,


 -- * Methods
-- ** Overloaded methods #method:Overloaded methods#

#if defined(ENABLE_OVERLOADING)
    ResolveSettingsMethod                   ,
#endif


-- ** fontSizeToPixels #method:fontSizeToPixels#

    settingsFontSizeToPixels                ,


-- ** fontSizeToPoints #method:fontSizeToPoints#

    settingsFontSizeToPoints                ,


-- ** getAllowFileAccessFromFileUrls #method:getAllowFileAccessFromFileUrls#

#if defined(ENABLE_OVERLOADING)
    SettingsGetAllowFileAccessFromFileUrlsMethodInfo,
#endif
    settingsGetAllowFileAccessFromFileUrls  ,


-- ** getAllowModalDialogs #method:getAllowModalDialogs#

#if defined(ENABLE_OVERLOADING)
    SettingsGetAllowModalDialogsMethodInfo  ,
#endif
    settingsGetAllowModalDialogs            ,


-- ** getAllowUniversalAccessFromFileUrls #method:getAllowUniversalAccessFromFileUrls#

#if defined(ENABLE_OVERLOADING)
    SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo,
#endif
    settingsGetAllowUniversalAccessFromFileUrls,


-- ** getAutoLoadImages #method:getAutoLoadImages#

#if defined(ENABLE_OVERLOADING)
    SettingsGetAutoLoadImagesMethodInfo     ,
#endif
    settingsGetAutoLoadImages               ,


-- ** getCursiveFontFamily #method:getCursiveFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsGetCursiveFontFamilyMethodInfo  ,
#endif
    settingsGetCursiveFontFamily            ,


-- ** getDefaultCharset #method:getDefaultCharset#

#if defined(ENABLE_OVERLOADING)
    SettingsGetDefaultCharsetMethodInfo     ,
#endif
    settingsGetDefaultCharset               ,


-- ** getDefaultFontFamily #method:getDefaultFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsGetDefaultFontFamilyMethodInfo  ,
#endif
    settingsGetDefaultFontFamily            ,


-- ** getDefaultFontSize #method:getDefaultFontSize#

#if defined(ENABLE_OVERLOADING)
    SettingsGetDefaultFontSizeMethodInfo    ,
#endif
    settingsGetDefaultFontSize              ,


-- ** getDefaultMonospaceFontSize #method:getDefaultMonospaceFontSize#

#if defined(ENABLE_OVERLOADING)
    SettingsGetDefaultMonospaceFontSizeMethodInfo,
#endif
    settingsGetDefaultMonospaceFontSize     ,


-- ** getDrawCompositingIndicators #method:getDrawCompositingIndicators#

#if defined(ENABLE_OVERLOADING)
    SettingsGetDrawCompositingIndicatorsMethodInfo,
#endif
    settingsGetDrawCompositingIndicators    ,


-- ** getEnableAccelerated2dCanvas #method:getEnableAccelerated2dCanvas#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableAccelerated2dCanvasMethodInfo,
#endif
    settingsGetEnableAccelerated2dCanvas    ,


-- ** getEnableBackForwardNavigationGestures #method:getEnableBackForwardNavigationGestures#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableBackForwardNavigationGesturesMethodInfo,
#endif
    settingsGetEnableBackForwardNavigationGestures,


-- ** getEnableCaretBrowsing #method:getEnableCaretBrowsing#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableCaretBrowsingMethodInfo,
#endif
    settingsGetEnableCaretBrowsing          ,


-- ** getEnableDeveloperExtras #method:getEnableDeveloperExtras#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableDeveloperExtrasMethodInfo,
#endif
    settingsGetEnableDeveloperExtras        ,


-- ** getEnableDnsPrefetching #method:getEnableDnsPrefetching#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableDnsPrefetchingMethodInfo,
#endif
    settingsGetEnableDnsPrefetching         ,


-- ** getEnableEncryptedMedia #method:getEnableEncryptedMedia#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableEncryptedMediaMethodInfo,
#endif
    settingsGetEnableEncryptedMedia         ,


-- ** getEnableFrameFlattening #method:getEnableFrameFlattening#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableFrameFlatteningMethodInfo,
#endif
    settingsGetEnableFrameFlattening        ,


-- ** getEnableFullscreen #method:getEnableFullscreen#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableFullscreenMethodInfo   ,
#endif
    settingsGetEnableFullscreen             ,


-- ** getEnableHtml5Database #method:getEnableHtml5Database#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableHtml5DatabaseMethodInfo,
#endif
    settingsGetEnableHtml5Database          ,


-- ** getEnableHtml5LocalStorage #method:getEnableHtml5LocalStorage#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableHtml5LocalStorageMethodInfo,
#endif
    settingsGetEnableHtml5LocalStorage      ,


-- ** getEnableHyperlinkAuditing #method:getEnableHyperlinkAuditing#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableHyperlinkAuditingMethodInfo,
#endif
    settingsGetEnableHyperlinkAuditing      ,


-- ** getEnableJava #method:getEnableJava#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableJavaMethodInfo         ,
#endif
    settingsGetEnableJava                   ,


-- ** getEnableJavascript #method:getEnableJavascript#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableJavascriptMethodInfo   ,
#endif
    settingsGetEnableJavascript             ,


-- ** getEnableJavascriptMarkup #method:getEnableJavascriptMarkup#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableJavascriptMarkupMethodInfo,
#endif
    settingsGetEnableJavascriptMarkup       ,


-- ** getEnableMediaCapabilities #method:getEnableMediaCapabilities#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableMediaCapabilitiesMethodInfo,
#endif
    settingsGetEnableMediaCapabilities      ,


-- ** getEnableMediaStream #method:getEnableMediaStream#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableMediaStreamMethodInfo  ,
#endif
    settingsGetEnableMediaStream            ,


-- ** getEnableMediasource #method:getEnableMediasource#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableMediasourceMethodInfo  ,
#endif
    settingsGetEnableMediasource            ,


-- ** getEnableMockCaptureDevices #method:getEnableMockCaptureDevices#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableMockCaptureDevicesMethodInfo,
#endif
    settingsGetEnableMockCaptureDevices     ,


-- ** getEnableOfflineWebApplicationCache #method:getEnableOfflineWebApplicationCache#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableOfflineWebApplicationCacheMethodInfo,
#endif
    settingsGetEnableOfflineWebApplicationCache,


-- ** getEnablePageCache #method:getEnablePageCache#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnablePageCacheMethodInfo    ,
#endif
    settingsGetEnablePageCache              ,


-- ** getEnablePlugins #method:getEnablePlugins#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnablePluginsMethodInfo      ,
#endif
    settingsGetEnablePlugins                ,


-- ** getEnablePrivateBrowsing #method:getEnablePrivateBrowsing#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnablePrivateBrowsingMethodInfo,
#endif
    settingsGetEnablePrivateBrowsing        ,


-- ** getEnableResizableTextAreas #method:getEnableResizableTextAreas#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableResizableTextAreasMethodInfo,
#endif
    settingsGetEnableResizableTextAreas     ,


-- ** getEnableSiteSpecificQuirks #method:getEnableSiteSpecificQuirks#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableSiteSpecificQuirksMethodInfo,
#endif
    settingsGetEnableSiteSpecificQuirks     ,


-- ** getEnableSmoothScrolling #method:getEnableSmoothScrolling#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableSmoothScrollingMethodInfo,
#endif
    settingsGetEnableSmoothScrolling        ,


-- ** getEnableSpatialNavigation #method:getEnableSpatialNavigation#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableSpatialNavigationMethodInfo,
#endif
    settingsGetEnableSpatialNavigation      ,


-- ** getEnableTabsToLinks #method:getEnableTabsToLinks#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableTabsToLinksMethodInfo  ,
#endif
    settingsGetEnableTabsToLinks            ,


-- ** getEnableWebaudio #method:getEnableWebaudio#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableWebaudioMethodInfo     ,
#endif
    settingsGetEnableWebaudio               ,


-- ** getEnableWebgl #method:getEnableWebgl#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableWebglMethodInfo        ,
#endif
    settingsGetEnableWebgl                  ,


-- ** getEnableWriteConsoleMessagesToStdout #method:getEnableWriteConsoleMessagesToStdout#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo,
#endif
    settingsGetEnableWriteConsoleMessagesToStdout,


-- ** getEnableXssAuditor #method:getEnableXssAuditor#

#if defined(ENABLE_OVERLOADING)
    SettingsGetEnableXssAuditorMethodInfo   ,
#endif
    settingsGetEnableXssAuditor             ,


-- ** getFantasyFontFamily #method:getFantasyFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsGetFantasyFontFamilyMethodInfo  ,
#endif
    settingsGetFantasyFontFamily            ,


-- ** getHardwareAccelerationPolicy #method:getHardwareAccelerationPolicy#

#if defined(ENABLE_OVERLOADING)
    SettingsGetHardwareAccelerationPolicyMethodInfo,
#endif
    settingsGetHardwareAccelerationPolicy   ,


-- ** getJavascriptCanAccessClipboard #method:getJavascriptCanAccessClipboard#

#if defined(ENABLE_OVERLOADING)
    SettingsGetJavascriptCanAccessClipboardMethodInfo,
#endif
    settingsGetJavascriptCanAccessClipboard ,


-- ** getJavascriptCanOpenWindowsAutomatically #method:getJavascriptCanOpenWindowsAutomatically#

#if defined(ENABLE_OVERLOADING)
    SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo,
#endif
    settingsGetJavascriptCanOpenWindowsAutomatically,


-- ** getLoadIconsIgnoringImageLoadSetting #method:getLoadIconsIgnoringImageLoadSetting#

#if defined(ENABLE_OVERLOADING)
    SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo,
#endif
    settingsGetLoadIconsIgnoringImageLoadSetting,


-- ** getMediaPlaybackAllowsInline #method:getMediaPlaybackAllowsInline#

#if defined(ENABLE_OVERLOADING)
    SettingsGetMediaPlaybackAllowsInlineMethodInfo,
#endif
    settingsGetMediaPlaybackAllowsInline    ,


-- ** getMediaPlaybackRequiresUserGesture #method:getMediaPlaybackRequiresUserGesture#

#if defined(ENABLE_OVERLOADING)
    SettingsGetMediaPlaybackRequiresUserGestureMethodInfo,
#endif
    settingsGetMediaPlaybackRequiresUserGesture,


-- ** getMinimumFontSize #method:getMinimumFontSize#

#if defined(ENABLE_OVERLOADING)
    SettingsGetMinimumFontSizeMethodInfo    ,
#endif
    settingsGetMinimumFontSize              ,


-- ** getMonospaceFontFamily #method:getMonospaceFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsGetMonospaceFontFamilyMethodInfo,
#endif
    settingsGetMonospaceFontFamily          ,


-- ** getPictographFontFamily #method:getPictographFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsGetPictographFontFamilyMethodInfo,
#endif
    settingsGetPictographFontFamily         ,


-- ** getPrintBackgrounds #method:getPrintBackgrounds#

#if defined(ENABLE_OVERLOADING)
    SettingsGetPrintBackgroundsMethodInfo   ,
#endif
    settingsGetPrintBackgrounds             ,


-- ** getSansSerifFontFamily #method:getSansSerifFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsGetSansSerifFontFamilyMethodInfo,
#endif
    settingsGetSansSerifFontFamily          ,


-- ** getSerifFontFamily #method:getSerifFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsGetSerifFontFamilyMethodInfo    ,
#endif
    settingsGetSerifFontFamily              ,


-- ** getUserAgent #method:getUserAgent#

#if defined(ENABLE_OVERLOADING)
    SettingsGetUserAgentMethodInfo          ,
#endif
    settingsGetUserAgent                    ,


-- ** getZoomTextOnly #method:getZoomTextOnly#

#if defined(ENABLE_OVERLOADING)
    SettingsGetZoomTextOnlyMethodInfo       ,
#endif
    settingsGetZoomTextOnly                 ,


-- ** new #method:new#

    settingsNew                             ,


-- ** setAllowFileAccessFromFileUrls #method:setAllowFileAccessFromFileUrls#

#if defined(ENABLE_OVERLOADING)
    SettingsSetAllowFileAccessFromFileUrlsMethodInfo,
#endif
    settingsSetAllowFileAccessFromFileUrls  ,


-- ** setAllowModalDialogs #method:setAllowModalDialogs#

#if defined(ENABLE_OVERLOADING)
    SettingsSetAllowModalDialogsMethodInfo  ,
#endif
    settingsSetAllowModalDialogs            ,


-- ** setAllowUniversalAccessFromFileUrls #method:setAllowUniversalAccessFromFileUrls#

#if defined(ENABLE_OVERLOADING)
    SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo,
#endif
    settingsSetAllowUniversalAccessFromFileUrls,


-- ** setAutoLoadImages #method:setAutoLoadImages#

#if defined(ENABLE_OVERLOADING)
    SettingsSetAutoLoadImagesMethodInfo     ,
#endif
    settingsSetAutoLoadImages               ,


-- ** setCursiveFontFamily #method:setCursiveFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsSetCursiveFontFamilyMethodInfo  ,
#endif
    settingsSetCursiveFontFamily            ,


-- ** setDefaultCharset #method:setDefaultCharset#

#if defined(ENABLE_OVERLOADING)
    SettingsSetDefaultCharsetMethodInfo     ,
#endif
    settingsSetDefaultCharset               ,


-- ** setDefaultFontFamily #method:setDefaultFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsSetDefaultFontFamilyMethodInfo  ,
#endif
    settingsSetDefaultFontFamily            ,


-- ** setDefaultFontSize #method:setDefaultFontSize#

#if defined(ENABLE_OVERLOADING)
    SettingsSetDefaultFontSizeMethodInfo    ,
#endif
    settingsSetDefaultFontSize              ,


-- ** setDefaultMonospaceFontSize #method:setDefaultMonospaceFontSize#

#if defined(ENABLE_OVERLOADING)
    SettingsSetDefaultMonospaceFontSizeMethodInfo,
#endif
    settingsSetDefaultMonospaceFontSize     ,


-- ** setDrawCompositingIndicators #method:setDrawCompositingIndicators#

#if defined(ENABLE_OVERLOADING)
    SettingsSetDrawCompositingIndicatorsMethodInfo,
#endif
    settingsSetDrawCompositingIndicators    ,


-- ** setEnableAccelerated2dCanvas #method:setEnableAccelerated2dCanvas#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableAccelerated2dCanvasMethodInfo,
#endif
    settingsSetEnableAccelerated2dCanvas    ,


-- ** setEnableBackForwardNavigationGestures #method:setEnableBackForwardNavigationGestures#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableBackForwardNavigationGesturesMethodInfo,
#endif
    settingsSetEnableBackForwardNavigationGestures,


-- ** setEnableCaretBrowsing #method:setEnableCaretBrowsing#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableCaretBrowsingMethodInfo,
#endif
    settingsSetEnableCaretBrowsing          ,


-- ** setEnableDeveloperExtras #method:setEnableDeveloperExtras#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableDeveloperExtrasMethodInfo,
#endif
    settingsSetEnableDeveloperExtras        ,


-- ** setEnableDnsPrefetching #method:setEnableDnsPrefetching#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableDnsPrefetchingMethodInfo,
#endif
    settingsSetEnableDnsPrefetching         ,


-- ** setEnableEncryptedMedia #method:setEnableEncryptedMedia#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableEncryptedMediaMethodInfo,
#endif
    settingsSetEnableEncryptedMedia         ,


-- ** setEnableFrameFlattening #method:setEnableFrameFlattening#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableFrameFlatteningMethodInfo,
#endif
    settingsSetEnableFrameFlattening        ,


-- ** setEnableFullscreen #method:setEnableFullscreen#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableFullscreenMethodInfo   ,
#endif
    settingsSetEnableFullscreen             ,


-- ** setEnableHtml5Database #method:setEnableHtml5Database#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableHtml5DatabaseMethodInfo,
#endif
    settingsSetEnableHtml5Database          ,


-- ** setEnableHtml5LocalStorage #method:setEnableHtml5LocalStorage#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableHtml5LocalStorageMethodInfo,
#endif
    settingsSetEnableHtml5LocalStorage      ,


-- ** setEnableHyperlinkAuditing #method:setEnableHyperlinkAuditing#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableHyperlinkAuditingMethodInfo,
#endif
    settingsSetEnableHyperlinkAuditing      ,


-- ** setEnableJava #method:setEnableJava#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableJavaMethodInfo         ,
#endif
    settingsSetEnableJava                   ,


-- ** setEnableJavascript #method:setEnableJavascript#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableJavascriptMethodInfo   ,
#endif
    settingsSetEnableJavascript             ,


-- ** setEnableJavascriptMarkup #method:setEnableJavascriptMarkup#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableJavascriptMarkupMethodInfo,
#endif
    settingsSetEnableJavascriptMarkup       ,


-- ** setEnableMediaCapabilities #method:setEnableMediaCapabilities#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableMediaCapabilitiesMethodInfo,
#endif
    settingsSetEnableMediaCapabilities      ,


-- ** setEnableMediaStream #method:setEnableMediaStream#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableMediaStreamMethodInfo  ,
#endif
    settingsSetEnableMediaStream            ,


-- ** setEnableMediasource #method:setEnableMediasource#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableMediasourceMethodInfo  ,
#endif
    settingsSetEnableMediasource            ,


-- ** setEnableMockCaptureDevices #method:setEnableMockCaptureDevices#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableMockCaptureDevicesMethodInfo,
#endif
    settingsSetEnableMockCaptureDevices     ,


-- ** setEnableOfflineWebApplicationCache #method:setEnableOfflineWebApplicationCache#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableOfflineWebApplicationCacheMethodInfo,
#endif
    settingsSetEnableOfflineWebApplicationCache,


-- ** setEnablePageCache #method:setEnablePageCache#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnablePageCacheMethodInfo    ,
#endif
    settingsSetEnablePageCache              ,


-- ** setEnablePlugins #method:setEnablePlugins#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnablePluginsMethodInfo      ,
#endif
    settingsSetEnablePlugins                ,


-- ** setEnablePrivateBrowsing #method:setEnablePrivateBrowsing#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnablePrivateBrowsingMethodInfo,
#endif
    settingsSetEnablePrivateBrowsing        ,


-- ** setEnableResizableTextAreas #method:setEnableResizableTextAreas#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableResizableTextAreasMethodInfo,
#endif
    settingsSetEnableResizableTextAreas     ,


-- ** setEnableSiteSpecificQuirks #method:setEnableSiteSpecificQuirks#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableSiteSpecificQuirksMethodInfo,
#endif
    settingsSetEnableSiteSpecificQuirks     ,


-- ** setEnableSmoothScrolling #method:setEnableSmoothScrolling#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableSmoothScrollingMethodInfo,
#endif
    settingsSetEnableSmoothScrolling        ,


-- ** setEnableSpatialNavigation #method:setEnableSpatialNavigation#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableSpatialNavigationMethodInfo,
#endif
    settingsSetEnableSpatialNavigation      ,


-- ** setEnableTabsToLinks #method:setEnableTabsToLinks#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableTabsToLinksMethodInfo  ,
#endif
    settingsSetEnableTabsToLinks            ,


-- ** setEnableWebaudio #method:setEnableWebaudio#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableWebaudioMethodInfo     ,
#endif
    settingsSetEnableWebaudio               ,


-- ** setEnableWebgl #method:setEnableWebgl#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableWebglMethodInfo        ,
#endif
    settingsSetEnableWebgl                  ,


-- ** setEnableWriteConsoleMessagesToStdout #method:setEnableWriteConsoleMessagesToStdout#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo,
#endif
    settingsSetEnableWriteConsoleMessagesToStdout,


-- ** setEnableXssAuditor #method:setEnableXssAuditor#

#if defined(ENABLE_OVERLOADING)
    SettingsSetEnableXssAuditorMethodInfo   ,
#endif
    settingsSetEnableXssAuditor             ,


-- ** setFantasyFontFamily #method:setFantasyFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsSetFantasyFontFamilyMethodInfo  ,
#endif
    settingsSetFantasyFontFamily            ,


-- ** setHardwareAccelerationPolicy #method:setHardwareAccelerationPolicy#

#if defined(ENABLE_OVERLOADING)
    SettingsSetHardwareAccelerationPolicyMethodInfo,
#endif
    settingsSetHardwareAccelerationPolicy   ,


-- ** setJavascriptCanAccessClipboard #method:setJavascriptCanAccessClipboard#

#if defined(ENABLE_OVERLOADING)
    SettingsSetJavascriptCanAccessClipboardMethodInfo,
#endif
    settingsSetJavascriptCanAccessClipboard ,


-- ** setJavascriptCanOpenWindowsAutomatically #method:setJavascriptCanOpenWindowsAutomatically#

#if defined(ENABLE_OVERLOADING)
    SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo,
#endif
    settingsSetJavascriptCanOpenWindowsAutomatically,


-- ** setLoadIconsIgnoringImageLoadSetting #method:setLoadIconsIgnoringImageLoadSetting#

#if defined(ENABLE_OVERLOADING)
    SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo,
#endif
    settingsSetLoadIconsIgnoringImageLoadSetting,


-- ** setMediaPlaybackAllowsInline #method:setMediaPlaybackAllowsInline#

#if defined(ENABLE_OVERLOADING)
    SettingsSetMediaPlaybackAllowsInlineMethodInfo,
#endif
    settingsSetMediaPlaybackAllowsInline    ,


-- ** setMediaPlaybackRequiresUserGesture #method:setMediaPlaybackRequiresUserGesture#

#if defined(ENABLE_OVERLOADING)
    SettingsSetMediaPlaybackRequiresUserGestureMethodInfo,
#endif
    settingsSetMediaPlaybackRequiresUserGesture,


-- ** setMinimumFontSize #method:setMinimumFontSize#

#if defined(ENABLE_OVERLOADING)
    SettingsSetMinimumFontSizeMethodInfo    ,
#endif
    settingsSetMinimumFontSize              ,


-- ** setMonospaceFontFamily #method:setMonospaceFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsSetMonospaceFontFamilyMethodInfo,
#endif
    settingsSetMonospaceFontFamily          ,


-- ** setPictographFontFamily #method:setPictographFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsSetPictographFontFamilyMethodInfo,
#endif
    settingsSetPictographFontFamily         ,


-- ** setPrintBackgrounds #method:setPrintBackgrounds#

#if defined(ENABLE_OVERLOADING)
    SettingsSetPrintBackgroundsMethodInfo   ,
#endif
    settingsSetPrintBackgrounds             ,


-- ** setSansSerifFontFamily #method:setSansSerifFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsSetSansSerifFontFamilyMethodInfo,
#endif
    settingsSetSansSerifFontFamily          ,


-- ** setSerifFontFamily #method:setSerifFontFamily#

#if defined(ENABLE_OVERLOADING)
    SettingsSetSerifFontFamilyMethodInfo    ,
#endif
    settingsSetSerifFontFamily              ,


-- ** setUserAgent #method:setUserAgent#

#if defined(ENABLE_OVERLOADING)
    SettingsSetUserAgentMethodInfo          ,
#endif
    settingsSetUserAgent                    ,


-- ** setUserAgentWithApplicationDetails #method:setUserAgentWithApplicationDetails#

#if defined(ENABLE_OVERLOADING)
    SettingsSetUserAgentWithApplicationDetailsMethodInfo,
#endif
    settingsSetUserAgentWithApplicationDetails,


-- ** setZoomTextOnly #method:setZoomTextOnly#

#if defined(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 t'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 defined(ENABLE_OVERLOADING)
    SettingsAllowFileAccessFromFileUrlsPropertyInfo,
#endif
    constructSettingsAllowFileAccessFromFileUrls,
    getSettingsAllowFileAccessFromFileUrls  ,
    setSettingsAllowFileAccessFromFileUrls  ,
#if defined(ENABLE_OVERLOADING)
    settingsAllowFileAccessFromFileUrls     ,
#endif


-- ** allowModalDialogs #attr:allowModalDialogs#
-- | Determine whether it\'s allowed to create and run modal dialogs
-- from a t'GI.WebKit2.Objects.WebView.WebView' through JavaScript with
-- \<function>window.showModalDialog\<\/function>. If it\'s set to
-- 'P.False', the associated t'GI.WebKit2.Objects.WebView.WebView' won\'t be able to create
-- new modal dialogs, so not even the [create]("GI.WebKit2.Objects.WebView#signal:create")
-- signal will be emitted.

#if defined(ENABLE_OVERLOADING)
    SettingsAllowModalDialogsPropertyInfo   ,
#endif
    constructSettingsAllowModalDialogs      ,
    getSettingsAllowModalDialogs            ,
    setSettingsAllowModalDialogs            ,
#if defined(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 t'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 defined(ENABLE_OVERLOADING)
    SettingsAllowUniversalAccessFromFileUrlsPropertyInfo,
#endif
    constructSettingsAllowUniversalAccessFromFileUrls,
    getSettingsAllowUniversalAccessFromFileUrls,
    setSettingsAllowUniversalAccessFromFileUrls,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsAutoLoadImagesPropertyInfo      ,
#endif
    constructSettingsAutoLoadImages         ,
    getSettingsAutoLoadImages               ,
    setSettingsAutoLoadImages               ,
#if defined(ENABLE_OVERLOADING)
    settingsAutoLoadImages                  ,
#endif


-- ** cursiveFontFamily #attr:cursiveFontFamily#
-- | The font family used as the default for content using a cursive font.

#if defined(ENABLE_OVERLOADING)
    SettingsCursiveFontFamilyPropertyInfo   ,
#endif
    constructSettingsCursiveFontFamily      ,
    getSettingsCursiveFontFamily            ,
    setSettingsCursiveFontFamily            ,
#if defined(ENABLE_OVERLOADING)
    settingsCursiveFontFamily               ,
#endif


-- ** defaultCharset #attr:defaultCharset#
-- | The default text charset used when interpreting content with an unspecified charset.

#if defined(ENABLE_OVERLOADING)
    SettingsDefaultCharsetPropertyInfo      ,
#endif
    constructSettingsDefaultCharset         ,
    getSettingsDefaultCharset               ,
    setSettingsDefaultCharset               ,
#if defined(ENABLE_OVERLOADING)
    settingsDefaultCharset                  ,
#endif


-- ** defaultFontFamily #attr:defaultFontFamily#
-- | The font family to use as the default for content that does not specify a font.

#if defined(ENABLE_OVERLOADING)
    SettingsDefaultFontFamilyPropertyInfo   ,
#endif
    constructSettingsDefaultFontFamily      ,
    getSettingsDefaultFontFamily            ,
    setSettingsDefaultFontFamily            ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsDefaultFontSizePropertyInfo     ,
#endif
    constructSettingsDefaultFontSize        ,
    getSettingsDefaultFontSize              ,
    setSettingsDefaultFontSize              ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsDefaultMonospaceFontSizePropertyInfo,
#endif
    constructSettingsDefaultMonospaceFontSize,
    getSettingsDefaultMonospaceFontSize     ,
    setSettingsDefaultMonospaceFontSize     ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsDrawCompositingIndicatorsPropertyInfo,
#endif
    constructSettingsDrawCompositingIndicators,
    getSettingsDrawCompositingIndicators    ,
    setSettingsDrawCompositingIndicators    ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableAccelerated2dCanvasPropertyInfo,
#endif
    constructSettingsEnableAccelerated2dCanvas,
    getSettingsEnableAccelerated2dCanvas    ,
    setSettingsEnableAccelerated2dCanvas    ,
#if defined(ENABLE_OVERLOADING)
    settingsEnableAccelerated2dCanvas       ,
#endif


-- ** enableBackForwardNavigationGestures #attr:enableBackForwardNavigationGestures#
-- | Enable or disable horizontal swipe gesture for back-forward navigation.
-- 
-- /Since: 2.24/

#if defined(ENABLE_OVERLOADING)
    SettingsEnableBackForwardNavigationGesturesPropertyInfo,
#endif
    constructSettingsEnableBackForwardNavigationGestures,
    getSettingsEnableBackForwardNavigationGestures,
    setSettingsEnableBackForwardNavigationGestures,
#if defined(ENABLE_OVERLOADING)
    settingsEnableBackForwardNavigationGestures,
#endif


-- ** enableCaretBrowsing #attr:enableCaretBrowsing#
-- | Whether to enable accessibility enhanced keyboard navigation.

#if defined(ENABLE_OVERLOADING)
    SettingsEnableCaretBrowsingPropertyInfo ,
#endif
    constructSettingsEnableCaretBrowsing    ,
    getSettingsEnableCaretBrowsing          ,
    setSettingsEnableCaretBrowsing          ,
#if defined(ENABLE_OVERLOADING)
    settingsEnableCaretBrowsing             ,
#endif


-- ** enableDeveloperExtras #attr:enableDeveloperExtras#
-- | Determines whether or not developer tools, such as the Web Inspector, are enabled.

#if defined(ENABLE_OVERLOADING)
    SettingsEnableDeveloperExtrasPropertyInfo,
#endif
    constructSettingsEnableDeveloperExtras  ,
    getSettingsEnableDeveloperExtras        ,
    setSettingsEnableDeveloperExtras        ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableDnsPrefetchingPropertyInfo,
#endif
    constructSettingsEnableDnsPrefetching   ,
    getSettingsEnableDnsPrefetching         ,
    setSettingsEnableDnsPrefetching         ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableEncryptedMediaPropertyInfo,
#endif
    constructSettingsEnableEncryptedMedia   ,
    getSettingsEnableEncryptedMedia         ,
    setSettingsEnableEncryptedMedia         ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableFrameFlatteningPropertyInfo,
#endif
    constructSettingsEnableFrameFlattening  ,
    getSettingsEnableFrameFlattening        ,
    setSettingsEnableFrameFlattening        ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableFullscreenPropertyInfo    ,
#endif
    constructSettingsEnableFullscreen       ,
    getSettingsEnableFullscreen             ,
    setSettingsEnableFullscreen             ,
#if defined(ENABLE_OVERLOADING)
    settingsEnableFullscreen                ,
#endif


-- ** enableHtml5Database #attr:enableHtml5Database#
-- | Whether to enable HTML5 client-side SQL database support (IndexedDB).

#if defined(ENABLE_OVERLOADING)
    SettingsEnableHtml5DatabasePropertyInfo ,
#endif
    constructSettingsEnableHtml5Database    ,
    getSettingsEnableHtml5Database          ,
    setSettingsEnableHtml5Database          ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableHtml5LocalStoragePropertyInfo,
#endif
    constructSettingsEnableHtml5LocalStorage,
    getSettingsEnableHtml5LocalStorage      ,
    setSettingsEnableHtml5LocalStorage      ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableHyperlinkAuditingPropertyInfo,
#endif
    constructSettingsEnableHyperlinkAuditing,
    getSettingsEnableHyperlinkAuditing      ,
    setSettingsEnableHyperlinkAuditing      ,
#if defined(ENABLE_OVERLOADING)
    settingsEnableHyperlinkAuditing         ,
#endif


-- ** enableJava #attr:enableJava#
-- | Determines whether or not Java is enabled on the page.

#if defined(ENABLE_OVERLOADING)
    SettingsEnableJavaPropertyInfo          ,
#endif
    constructSettingsEnableJava             ,
    getSettingsEnableJava                   ,
    setSettingsEnableJava                   ,
#if defined(ENABLE_OVERLOADING)
    settingsEnableJava                      ,
#endif


-- ** enableJavascript #attr:enableJavascript#
-- | Determines whether or not JavaScript executes within a page.

#if defined(ENABLE_OVERLOADING)
    SettingsEnableJavascriptPropertyInfo    ,
#endif
    constructSettingsEnableJavascript       ,
    getSettingsEnableJavascript             ,
    setSettingsEnableJavascript             ,
#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript/@ is 'P.True'.
-- 
-- /Since: 2.24/

#if defined(ENABLE_OVERLOADING)
    SettingsEnableJavascriptMarkupPropertyInfo,
#endif
    constructSettingsEnableJavascriptMarkup ,
    getSettingsEnableJavascriptMarkup       ,
    setSettingsEnableJavascriptMarkup       ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableMediaCapabilitiesPropertyInfo,
#endif
    constructSettingsEnableMediaCapabilities,
    getSettingsEnableMediaCapabilities      ,
    setSettingsEnableMediaCapabilities      ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableMediaStreamPropertyInfo   ,
#endif
    constructSettingsEnableMediaStream      ,
    getSettingsEnableMediaStream            ,
    setSettingsEnableMediaStream            ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableMediasourcePropertyInfo   ,
#endif
    constructSettingsEnableMediasource      ,
    getSettingsEnableMediasource            ,
    setSettingsEnableMediasource            ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableMockCaptureDevicesPropertyInfo,
#endif
    constructSettingsEnableMockCaptureDevices,
    getSettingsEnableMockCaptureDevices     ,
    setSettingsEnableMockCaptureDevices     ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableOfflineWebApplicationCachePropertyInfo,
#endif
    constructSettingsEnableOfflineWebApplicationCache,
    getSettingsEnableOfflineWebApplicationCache,
    setSettingsEnableOfflineWebApplicationCache,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnablePageCachePropertyInfo     ,
#endif
    constructSettingsEnablePageCache        ,
    getSettingsEnablePageCache              ,
    setSettingsEnablePageCache              ,
#if defined(ENABLE_OVERLOADING)
    settingsEnablePageCache                 ,
#endif


-- ** enablePlugins #attr:enablePlugins#
-- | Determines whether or not plugins on the page are enabled.

#if defined(ENABLE_OVERLOADING)
    SettingsEnablePluginsPropertyInfo       ,
#endif
    constructSettingsEnablePlugins          ,
    getSettingsEnablePlugins                ,
    setSettingsEnablePlugins                ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnablePrivateBrowsingPropertyInfo,
#endif
    constructSettingsEnablePrivateBrowsing  ,
    getSettingsEnablePrivateBrowsing        ,
    setSettingsEnablePrivateBrowsing        ,
#if defined(ENABLE_OVERLOADING)
    settingsEnablePrivateBrowsing           ,
#endif


-- ** enableResizableTextAreas #attr:enableResizableTextAreas#
-- | Determines whether or not text areas can be resized.

#if defined(ENABLE_OVERLOADING)
    SettingsEnableResizableTextAreasPropertyInfo,
#endif
    constructSettingsEnableResizableTextAreas,
    getSettingsEnableResizableTextAreas     ,
    setSettingsEnableResizableTextAreas     ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableSiteSpecificQuirksPropertyInfo,
#endif
    constructSettingsEnableSiteSpecificQuirks,
    getSettingsEnableSiteSpecificQuirks     ,
    setSettingsEnableSiteSpecificQuirks     ,
#if defined(ENABLE_OVERLOADING)
    settingsEnableSiteSpecificQuirks        ,
#endif


-- ** enableSmoothScrolling #attr:enableSmoothScrolling#
-- | Enable or disable smooth scrolling.

#if defined(ENABLE_OVERLOADING)
    SettingsEnableSmoothScrollingPropertyInfo,
#endif
    constructSettingsEnableSmoothScrolling  ,
    getSettingsEnableSmoothScrolling        ,
    setSettingsEnableSmoothScrolling        ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableSpatialNavigationPropertyInfo,
#endif
    constructSettingsEnableSpatialNavigation,
    getSettingsEnableSpatialNavigation      ,
    setSettingsEnableSpatialNavigation      ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableTabsToLinksPropertyInfo   ,
#endif
    constructSettingsEnableTabsToLinks      ,
    getSettingsEnableTabsToLinks            ,
    setSettingsEnableTabsToLinks            ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableWebaudioPropertyInfo      ,
#endif
    constructSettingsEnableWebaudio         ,
    getSettingsEnableWebaudio               ,
    setSettingsEnableWebaudio               ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableWebglPropertyInfo         ,
#endif
    constructSettingsEnableWebgl            ,
    getSettingsEnableWebgl                  ,
    setSettingsEnableWebgl                  ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo,
#endif
    constructSettingsEnableWriteConsoleMessagesToStdout,
    getSettingsEnableWriteConsoleMessagesToStdout,
    setSettingsEnableWriteConsoleMessagesToStdout,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsEnableXssAuditorPropertyInfo    ,
#endif
    constructSettingsEnableXssAuditor       ,
    getSettingsEnableXssAuditor             ,
    setSettingsEnableXssAuditor             ,
#if defined(ENABLE_OVERLOADING)
    settingsEnableXssAuditor                ,
#endif


-- ** fantasyFontFamily #attr:fantasyFontFamily#
-- | The font family used as the default for content using a fantasy font.

#if defined(ENABLE_OVERLOADING)
    SettingsFantasyFontFamilyPropertyInfo   ,
#endif
    constructSettingsFantasyFontFamily      ,
    getSettingsFantasyFontFamily            ,
    setSettingsFantasyFontFamily            ,
#if defined(ENABLE_OVERLOADING)
    settingsFantasyFontFamily               ,
#endif


-- ** hardwareAccelerationPolicy #attr:hardwareAccelerationPolicy#
-- | The t'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 defined(ENABLE_OVERLOADING)
    SettingsHardwareAccelerationPolicyPropertyInfo,
#endif
    constructSettingsHardwareAccelerationPolicy,
    getSettingsHardwareAccelerationPolicy   ,
    setSettingsHardwareAccelerationPolicy   ,
#if defined(ENABLE_OVERLOADING)
    settingsHardwareAccelerationPolicy      ,
#endif


-- ** javascriptCanAccessClipboard #attr:javascriptCanAccessClipboard#
-- | Whether JavaScript can access the clipboard. The default value is 'P.False'. If
-- set to 'P.True', document.@/execCommand()/@ allows cut, copy and paste commands.

#if defined(ENABLE_OVERLOADING)
    SettingsJavascriptCanAccessClipboardPropertyInfo,
#endif
    constructSettingsJavascriptCanAccessClipboard,
    getSettingsJavascriptCanAccessClipboard ,
    setSettingsJavascriptCanAccessClipboard ,
#if defined(ENABLE_OVERLOADING)
    settingsJavascriptCanAccessClipboard    ,
#endif


-- ** javascriptCanOpenWindowsAutomatically #attr:javascriptCanOpenWindowsAutomatically#
-- | Whether JavaScript can open popup windows automatically without user
-- intervention.

#if defined(ENABLE_OVERLOADING)
    SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo,
#endif
    constructSettingsJavascriptCanOpenWindowsAutomatically,
    getSettingsJavascriptCanOpenWindowsAutomatically,
    setSettingsJavascriptCanOpenWindowsAutomatically,
#if defined(ENABLE_OVERLOADING)
    settingsJavascriptCanOpenWindowsAutomatically,
#endif


-- ** loadIconsIgnoringImageLoadSetting #attr:loadIconsIgnoringImageLoadSetting#
-- | Determines whether a site can load favicons irrespective
-- of the value of t'GI.WebKit2.Objects.Settings.Settings':@/auto-load-images/@.

#if defined(ENABLE_OVERLOADING)
    SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo,
#endif
    constructSettingsLoadIconsIgnoringImageLoadSetting,
    getSettingsLoadIconsIgnoringImageLoadSetting,
    setSettingsLoadIconsIgnoringImageLoadSetting,
#if defined(ENABLE_OVERLOADING)
    settingsLoadIconsIgnoringImageLoadSetting,
#endif


-- ** mediaPlaybackAllowsInline #attr:mediaPlaybackAllowsInline#
-- | Whether media playback is full-screen only or inline playback is allowed.
-- This is 'P.True' by default, so media playback can be inline. Setting it to
-- 'P.False' allows specifying that media playback should be always fullscreen.

#if defined(ENABLE_OVERLOADING)
    SettingsMediaPlaybackAllowsInlinePropertyInfo,
#endif
    constructSettingsMediaPlaybackAllowsInline,
    getSettingsMediaPlaybackAllowsInline    ,
    setSettingsMediaPlaybackAllowsInline    ,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsMediaPlaybackRequiresUserGesturePropertyInfo,
#endif
    constructSettingsMediaPlaybackRequiresUserGesture,
    getSettingsMediaPlaybackRequiresUserGesture,
    setSettingsMediaPlaybackRequiresUserGesture,
#if defined(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 defined(ENABLE_OVERLOADING)
    SettingsMinimumFontSizePropertyInfo     ,
#endif
    constructSettingsMinimumFontSize        ,
    getSettingsMinimumFontSize              ,
    setSettingsMinimumFontSize              ,
#if defined(ENABLE_OVERLOADING)
    settingsMinimumFontSize                 ,
#endif


-- ** monospaceFontFamily #attr:monospaceFontFamily#
-- | The font family used as the default for content using a monospace font.

#if defined(ENABLE_OVERLOADING)
    SettingsMonospaceFontFamilyPropertyInfo ,
#endif
    constructSettingsMonospaceFontFamily    ,
    getSettingsMonospaceFontFamily          ,
    setSettingsMonospaceFontFamily          ,
#if defined(ENABLE_OVERLOADING)
    settingsMonospaceFontFamily             ,
#endif


-- ** pictographFontFamily #attr:pictographFontFamily#
-- | The font family used as the default for content using a pictograph font.

#if defined(ENABLE_OVERLOADING)
    SettingsPictographFontFamilyPropertyInfo,
#endif
    constructSettingsPictographFontFamily   ,
    getSettingsPictographFontFamily         ,
    setSettingsPictographFontFamily         ,
#if defined(ENABLE_OVERLOADING)
    settingsPictographFontFamily            ,
#endif


-- ** printBackgrounds #attr:printBackgrounds#
-- | Whether background images should be drawn during printing.

#if defined(ENABLE_OVERLOADING)
    SettingsPrintBackgroundsPropertyInfo    ,
#endif
    constructSettingsPrintBackgrounds       ,
    getSettingsPrintBackgrounds             ,
    setSettingsPrintBackgrounds             ,
#if defined(ENABLE_OVERLOADING)
    settingsPrintBackgrounds                ,
#endif


-- ** sansSerifFontFamily #attr:sansSerifFontFamily#
-- | The font family used as the default for content using a sans-serif font.

#if defined(ENABLE_OVERLOADING)
    SettingsSansSerifFontFamilyPropertyInfo ,
#endif
    constructSettingsSansSerifFontFamily    ,
    getSettingsSansSerifFontFamily          ,
    setSettingsSansSerifFontFamily          ,
#if defined(ENABLE_OVERLOADING)
    settingsSansSerifFontFamily             ,
#endif


-- ** serifFontFamily #attr:serifFontFamily#
-- | The font family used as the default for content using a serif font.

#if defined(ENABLE_OVERLOADING)
    SettingsSerifFontFamilyPropertyInfo     ,
#endif
    constructSettingsSerifFontFamily        ,
    getSettingsSerifFontFamily              ,
    setSettingsSerifFontFamily              ,
#if defined(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 'P.Nothing', it will revert to the standard
-- user-agent.

#if defined(ENABLE_OVERLOADING)
    SettingsUserAgentPropertyInfo           ,
#endif
    clearSettingsUserAgent                  ,
    constructSettingsUserAgent              ,
    getSettingsUserAgent                    ,
    setSettingsUserAgent                    ,
#if defined(ENABLE_OVERLOADING)
    settingsUserAgent                       ,
#endif


-- ** zoomTextOnly #attr:zoomTextOnly#
-- | Whether t'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 defined(ENABLE_OVERLOADING)
    SettingsZoomTextOnlyPropertyInfo        ,
#endif
    constructSettingsZoomTextOnly           ,
    getSettingsZoomTextOnly                 ,
    setSettingsZoomTextOnly                 ,
#if defined(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.GI.Base.Signals as B.Signals
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)
    deriving (Settings -> Settings -> Bool
(Settings -> Settings -> Bool)
-> (Settings -> Settings -> Bool) -> Eq Settings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Settings -> Settings -> Bool
$c/= :: Settings -> Settings -> Bool
== :: Settings -> Settings -> Bool
$c== :: Settings -> Settings -> Bool
Eq)
foreign import ccall "webkit_settings_get_type"
    c_webkit_settings_get_type :: IO GType

instance GObject Settings where
    gobjectType :: IO GType
gobjectType = IO GType
c_webkit_settings_get_type
    

-- | Convert 'Settings' to and from 'Data.GI.Base.GValue.GValue' with 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue Settings where
    toGValue :: Settings -> IO GValue
toGValue o :: Settings
o = do
        GType
gtype <- IO GType
c_webkit_settings_get_type
        Settings -> (Ptr Settings -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Settings
o (GType
-> (GValue -> Ptr Settings -> IO ()) -> Ptr Settings -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Settings -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
        
    fromGValue :: GValue -> IO Settings
fromGValue gv :: GValue
gv = do
        Ptr Settings
ptr <- GValue -> IO (Ptr Settings)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Settings)
        (ManagedPtr Settings -> Settings) -> Ptr Settings -> IO Settings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Settings -> Settings
Settings Ptr Settings
ptr
        
    

-- | 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 :: o -> m Settings
toSettings = IO Settings -> m Settings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Settings -> m Settings)
-> (o -> IO Settings) -> o -> m Settings
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Settings -> Settings) -> o -> IO Settings
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Settings -> Settings
Settings

-- | A convenience alias for `Nothing` :: `Maybe` `Settings`.
noSettings :: Maybe Settings
noSettings :: Maybe Settings
noSettings = Maybe Settings
forall a. Maybe a
Nothing

#if defined(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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    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 @info
#else
    fromLabel _ = O.overloadedMethod @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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #allowFileAccessFromFileUrls
-- @
getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowFileAccessFromFileUrls :: o -> m Bool
getSettingsAllowFileAccessFromFileUrls obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "allow-file-access-from-file-urls"

-- | Set the value of the “@allow-file-access-from-file-urls@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsAllowFileAccessFromFileUrls obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "allow-file-access-from-file-urls" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsAllowFileAccessFromFileUrls val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "allow-file-access-from-file-urls" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsAllowFileAccessFromFileUrlsPropertyInfo
instance AttrInfo SettingsAllowFileAccessFromFileUrlsPropertyInfo where
    type AttrAllowedOps SettingsAllowFileAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = (~) Bool
    type AttrTransferType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool
    type AttrGetType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool
    type AttrLabel SettingsAllowFileAccessFromFileUrlsPropertyInfo = "allow-file-access-from-file-urls"
    type AttrOrigin SettingsAllowFileAccessFromFileUrlsPropertyInfo = Settings
    attrGet = getSettingsAllowFileAccessFromFileUrls
    attrSet = setSettingsAllowFileAccessFromFileUrls
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #allowModalDialogs
-- @
getSettingsAllowModalDialogs :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowModalDialogs :: o -> m Bool
getSettingsAllowModalDialogs obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "allow-modal-dialogs"

-- | Set the value of the “@allow-modal-dialogs@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsAllowModalDialogs obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "allow-modal-dialogs" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsAllowModalDialogs val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "allow-modal-dialogs" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsAllowModalDialogsPropertyInfo
instance AttrInfo SettingsAllowModalDialogsPropertyInfo where
    type AttrAllowedOps SettingsAllowModalDialogsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsAllowModalDialogsPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsAllowModalDialogsPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsAllowModalDialogsPropertyInfo = (~) Bool
    type AttrTransferType SettingsAllowModalDialogsPropertyInfo = Bool
    type AttrGetType SettingsAllowModalDialogsPropertyInfo = Bool
    type AttrLabel SettingsAllowModalDialogsPropertyInfo = "allow-modal-dialogs"
    type AttrOrigin SettingsAllowModalDialogsPropertyInfo = Settings
    attrGet = getSettingsAllowModalDialogs
    attrSet = setSettingsAllowModalDialogs
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #allowUniversalAccessFromFileUrls
-- @
getSettingsAllowUniversalAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowUniversalAccessFromFileUrls :: o -> m Bool
getSettingsAllowUniversalAccessFromFileUrls obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "allow-universal-access-from-file-urls"

-- | Set the value of the “@allow-universal-access-from-file-urls@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsAllowUniversalAccessFromFileUrls obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "allow-universal-access-from-file-urls" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsAllowUniversalAccessFromFileUrls val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "allow-universal-access-from-file-urls" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsAllowUniversalAccessFromFileUrlsPropertyInfo
instance AttrInfo SettingsAllowUniversalAccessFromFileUrlsPropertyInfo where
    type AttrAllowedOps SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = (~) Bool
    type AttrTransferType SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = Bool
    type AttrGetType SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = Bool
    type AttrLabel SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = "allow-universal-access-from-file-urls"
    type AttrOrigin SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = Settings
    attrGet = getSettingsAllowUniversalAccessFromFileUrls
    attrSet = setSettingsAllowUniversalAccessFromFileUrls
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #autoLoadImages
-- @
getSettingsAutoLoadImages :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAutoLoadImages :: o -> m Bool
getSettingsAutoLoadImages obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "auto-load-images"

-- | Set the value of the “@auto-load-images@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsAutoLoadImages obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "auto-load-images" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsAutoLoadImages val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "auto-load-images" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsAutoLoadImagesPropertyInfo
instance AttrInfo SettingsAutoLoadImagesPropertyInfo where
    type AttrAllowedOps SettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsAutoLoadImagesPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsAutoLoadImagesPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsAutoLoadImagesPropertyInfo = (~) Bool
    type AttrTransferType SettingsAutoLoadImagesPropertyInfo = Bool
    type AttrGetType SettingsAutoLoadImagesPropertyInfo = Bool
    type AttrLabel SettingsAutoLoadImagesPropertyInfo = "auto-load-images"
    type AttrOrigin SettingsAutoLoadImagesPropertyInfo = Settings
    attrGet = getSettingsAutoLoadImages
    attrSet = setSettingsAutoLoadImages
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #cursiveFontFamily
-- @
getSettingsCursiveFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsCursiveFontFamily :: o -> m Text
getSettingsCursiveFontFamily obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getSettingsCursiveFontFamily" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "cursive-font-family"

-- | Set the value of the “@cursive-font-family@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Text -> m ()
setSettingsCursiveFontFamily obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "cursive-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
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 :: Text -> IO (GValueConstruct o)
constructSettingsCursiveFontFamily val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "cursive-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

#if defined(ENABLE_OVERLOADING)
data SettingsCursiveFontFamilyPropertyInfo
instance AttrInfo SettingsCursiveFontFamilyPropertyInfo where
    type AttrAllowedOps SettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsCursiveFontFamilyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferType SettingsCursiveFontFamilyPropertyInfo = T.Text
    type AttrGetType SettingsCursiveFontFamilyPropertyInfo = T.Text
    type AttrLabel SettingsCursiveFontFamilyPropertyInfo = "cursive-font-family"
    type AttrOrigin SettingsCursiveFontFamilyPropertyInfo = Settings
    attrGet = getSettingsCursiveFontFamily
    attrSet = setSettingsCursiveFontFamily
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #defaultCharset
-- @
getSettingsDefaultCharset :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsDefaultCharset :: o -> m Text
getSettingsDefaultCharset obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getSettingsDefaultCharset" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "default-charset"

-- | Set the value of the “@default-charset@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Text -> m ()
setSettingsDefaultCharset obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "default-charset" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
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 :: Text -> IO (GValueConstruct o)
constructSettingsDefaultCharset val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "default-charset" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

#if defined(ENABLE_OVERLOADING)
data SettingsDefaultCharsetPropertyInfo
instance AttrInfo SettingsDefaultCharsetPropertyInfo where
    type AttrAllowedOps SettingsDefaultCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsDefaultCharsetPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text
    type AttrTransferType SettingsDefaultCharsetPropertyInfo = T.Text
    type AttrGetType SettingsDefaultCharsetPropertyInfo = T.Text
    type AttrLabel SettingsDefaultCharsetPropertyInfo = "default-charset"
    type AttrOrigin SettingsDefaultCharsetPropertyInfo = Settings
    attrGet = getSettingsDefaultCharset
    attrSet = setSettingsDefaultCharset
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #defaultFontFamily
-- @
getSettingsDefaultFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsDefaultFontFamily :: o -> m Text
getSettingsDefaultFontFamily obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getSettingsDefaultFontFamily" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "default-font-family"

-- | Set the value of the “@default-font-family@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Text -> m ()
setSettingsDefaultFontFamily obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "default-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
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 :: Text -> IO (GValueConstruct o)
constructSettingsDefaultFontFamily val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "default-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

#if defined(ENABLE_OVERLOADING)
data SettingsDefaultFontFamilyPropertyInfo
instance AttrInfo SettingsDefaultFontFamilyPropertyInfo where
    type AttrAllowedOps SettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsDefaultFontFamilyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferType SettingsDefaultFontFamilyPropertyInfo = T.Text
    type AttrGetType SettingsDefaultFontFamilyPropertyInfo = T.Text
    type AttrLabel SettingsDefaultFontFamilyPropertyInfo = "default-font-family"
    type AttrOrigin SettingsDefaultFontFamilyPropertyInfo = Settings
    attrGet = getSettingsDefaultFontFamily
    attrSet = setSettingsDefaultFontFamily
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #defaultFontSize
-- @
getSettingsDefaultFontSize :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsDefaultFontSize :: o -> m Word32
getSettingsDefaultFontSize obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "default-font-size"

-- | Set the value of the “@default-font-size@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Word32 -> m ()
setSettingsDefaultFontSize obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "default-font-size" Word32
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 :: Word32 -> IO (GValueConstruct o)
constructSettingsDefaultFontSize val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "default-font-size" Word32
val

#if defined(ENABLE_OVERLOADING)
data SettingsDefaultFontSizePropertyInfo
instance AttrInfo SettingsDefaultFontSizePropertyInfo where
    type AttrAllowedOps SettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsDefaultFontSizePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32
    type AttrTransferTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32
    type AttrTransferType SettingsDefaultFontSizePropertyInfo = Word32
    type AttrGetType SettingsDefaultFontSizePropertyInfo = Word32
    type AttrLabel SettingsDefaultFontSizePropertyInfo = "default-font-size"
    type AttrOrigin SettingsDefaultFontSizePropertyInfo = Settings
    attrGet = getSettingsDefaultFontSize
    attrSet = setSettingsDefaultFontSize
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #defaultMonospaceFontSize
-- @
getSettingsDefaultMonospaceFontSize :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsDefaultMonospaceFontSize :: o -> m Word32
getSettingsDefaultMonospaceFontSize obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "default-monospace-font-size"

-- | Set the value of the “@default-monospace-font-size@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Word32 -> m ()
setSettingsDefaultMonospaceFontSize obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "default-monospace-font-size" Word32
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 :: Word32 -> IO (GValueConstruct o)
constructSettingsDefaultMonospaceFontSize val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "default-monospace-font-size" Word32
val

#if defined(ENABLE_OVERLOADING)
data SettingsDefaultMonospaceFontSizePropertyInfo
instance AttrInfo SettingsDefaultMonospaceFontSizePropertyInfo where
    type AttrAllowedOps SettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32
    type AttrTransferTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32
    type AttrTransferType SettingsDefaultMonospaceFontSizePropertyInfo = Word32
    type AttrGetType SettingsDefaultMonospaceFontSizePropertyInfo = Word32
    type AttrLabel SettingsDefaultMonospaceFontSizePropertyInfo = "default-monospace-font-size"
    type AttrOrigin SettingsDefaultMonospaceFontSizePropertyInfo = Settings
    attrGet = getSettingsDefaultMonospaceFontSize
    attrSet = setSettingsDefaultMonospaceFontSize
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #drawCompositingIndicators
-- @
getSettingsDrawCompositingIndicators :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsDrawCompositingIndicators :: o -> m Bool
getSettingsDrawCompositingIndicators obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "draw-compositing-indicators"

-- | Set the value of the “@draw-compositing-indicators@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsDrawCompositingIndicators obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "draw-compositing-indicators" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsDrawCompositingIndicators val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "draw-compositing-indicators" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsDrawCompositingIndicatorsPropertyInfo
instance AttrInfo SettingsDrawCompositingIndicatorsPropertyInfo where
    type AttrAllowedOps SettingsDrawCompositingIndicatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = (~) Bool
    type AttrTransferType SettingsDrawCompositingIndicatorsPropertyInfo = Bool
    type AttrGetType SettingsDrawCompositingIndicatorsPropertyInfo = Bool
    type AttrLabel SettingsDrawCompositingIndicatorsPropertyInfo = "draw-compositing-indicators"
    type AttrOrigin SettingsDrawCompositingIndicatorsPropertyInfo = Settings
    attrGet = getSettingsDrawCompositingIndicators
    attrSet = setSettingsDrawCompositingIndicators
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableAccelerated2dCanvas
-- @
getSettingsEnableAccelerated2dCanvas :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableAccelerated2dCanvas :: o -> m Bool
getSettingsEnableAccelerated2dCanvas obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-accelerated-2d-canvas"

-- | Set the value of the “@enable-accelerated-2d-canvas@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableAccelerated2dCanvas obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-accelerated-2d-canvas" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableAccelerated2dCanvas val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-accelerated-2d-canvas" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableAccelerated2dCanvasPropertyInfo
instance AttrInfo SettingsEnableAccelerated2dCanvasPropertyInfo where
    type AttrAllowedOps SettingsEnableAccelerated2dCanvasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool
    type AttrGetType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool
    type AttrLabel SettingsEnableAccelerated2dCanvasPropertyInfo = "enable-accelerated-2d-canvas"
    type AttrOrigin SettingsEnableAccelerated2dCanvasPropertyInfo = Settings
    attrGet = getSettingsEnableAccelerated2dCanvas
    attrSet = setSettingsEnableAccelerated2dCanvas
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableBackForwardNavigationGestures
-- @
getSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableBackForwardNavigationGestures :: o -> m Bool
getSettingsEnableBackForwardNavigationGestures obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-back-forward-navigation-gestures"

-- | Set the value of the “@enable-back-forward-navigation-gestures@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableBackForwardNavigationGestures obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-back-forward-navigation-gestures" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableBackForwardNavigationGestures val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-back-forward-navigation-gestures" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableBackForwardNavigationGesturesPropertyInfo
instance AttrInfo SettingsEnableBackForwardNavigationGesturesPropertyInfo where
    type AttrAllowedOps SettingsEnableBackForwardNavigationGesturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableBackForwardNavigationGesturesPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableBackForwardNavigationGesturesPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableBackForwardNavigationGesturesPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableBackForwardNavigationGesturesPropertyInfo = Bool
    type AttrGetType SettingsEnableBackForwardNavigationGesturesPropertyInfo = Bool
    type AttrLabel SettingsEnableBackForwardNavigationGesturesPropertyInfo = "enable-back-forward-navigation-gestures"
    type AttrOrigin SettingsEnableBackForwardNavigationGesturesPropertyInfo = Settings
    attrGet = getSettingsEnableBackForwardNavigationGestures
    attrSet = setSettingsEnableBackForwardNavigationGestures
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableCaretBrowsing
-- @
getSettingsEnableCaretBrowsing :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableCaretBrowsing :: o -> m Bool
getSettingsEnableCaretBrowsing obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-caret-browsing"

-- | Set the value of the “@enable-caret-browsing@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableCaretBrowsing obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-caret-browsing" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableCaretBrowsing val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-caret-browsing" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableCaretBrowsingPropertyInfo
instance AttrInfo SettingsEnableCaretBrowsingPropertyInfo where
    type AttrAllowedOps SettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableCaretBrowsingPropertyInfo = Bool
    type AttrGetType SettingsEnableCaretBrowsingPropertyInfo = Bool
    type AttrLabel SettingsEnableCaretBrowsingPropertyInfo = "enable-caret-browsing"
    type AttrOrigin SettingsEnableCaretBrowsingPropertyInfo = Settings
    attrGet = getSettingsEnableCaretBrowsing
    attrSet = setSettingsEnableCaretBrowsing
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableDeveloperExtras
-- @
getSettingsEnableDeveloperExtras :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableDeveloperExtras :: o -> m Bool
getSettingsEnableDeveloperExtras obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-developer-extras"

-- | Set the value of the “@enable-developer-extras@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableDeveloperExtras obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-developer-extras" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableDeveloperExtras val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-developer-extras" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableDeveloperExtrasPropertyInfo
instance AttrInfo SettingsEnableDeveloperExtrasPropertyInfo where
    type AttrAllowedOps SettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableDeveloperExtrasPropertyInfo = Bool
    type AttrGetType SettingsEnableDeveloperExtrasPropertyInfo = Bool
    type AttrLabel SettingsEnableDeveloperExtrasPropertyInfo = "enable-developer-extras"
    type AttrOrigin SettingsEnableDeveloperExtrasPropertyInfo = Settings
    attrGet = getSettingsEnableDeveloperExtras
    attrSet = setSettingsEnableDeveloperExtras
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableDnsPrefetching
-- @
getSettingsEnableDnsPrefetching :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableDnsPrefetching :: o -> m Bool
getSettingsEnableDnsPrefetching obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-dns-prefetching"

-- | Set the value of the “@enable-dns-prefetching@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableDnsPrefetching obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-dns-prefetching" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableDnsPrefetching val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-dns-prefetching" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableDnsPrefetchingPropertyInfo
instance AttrInfo SettingsEnableDnsPrefetchingPropertyInfo where
    type AttrAllowedOps SettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableDnsPrefetchingPropertyInfo = Bool
    type AttrGetType SettingsEnableDnsPrefetchingPropertyInfo = Bool
    type AttrLabel SettingsEnableDnsPrefetchingPropertyInfo = "enable-dns-prefetching"
    type AttrOrigin SettingsEnableDnsPrefetchingPropertyInfo = Settings
    attrGet = getSettingsEnableDnsPrefetching
    attrSet = setSettingsEnableDnsPrefetching
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableEncryptedMedia
-- @
getSettingsEnableEncryptedMedia :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableEncryptedMedia :: o -> m Bool
getSettingsEnableEncryptedMedia obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-encrypted-media"

-- | Set the value of the “@enable-encrypted-media@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableEncryptedMedia obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-encrypted-media" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableEncryptedMedia val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-encrypted-media" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableEncryptedMediaPropertyInfo
instance AttrInfo SettingsEnableEncryptedMediaPropertyInfo where
    type AttrAllowedOps SettingsEnableEncryptedMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableEncryptedMediaPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableEncryptedMediaPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableEncryptedMediaPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableEncryptedMediaPropertyInfo = Bool
    type AttrGetType SettingsEnableEncryptedMediaPropertyInfo = Bool
    type AttrLabel SettingsEnableEncryptedMediaPropertyInfo = "enable-encrypted-media"
    type AttrOrigin SettingsEnableEncryptedMediaPropertyInfo = Settings
    attrGet = getSettingsEnableEncryptedMedia
    attrSet = setSettingsEnableEncryptedMedia
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableFrameFlattening
-- @
getSettingsEnableFrameFlattening :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableFrameFlattening :: o -> m Bool
getSettingsEnableFrameFlattening obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-frame-flattening"

-- | Set the value of the “@enable-frame-flattening@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableFrameFlattening obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-frame-flattening" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableFrameFlattening val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-frame-flattening" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableFrameFlatteningPropertyInfo
instance AttrInfo SettingsEnableFrameFlatteningPropertyInfo where
    type AttrAllowedOps SettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableFrameFlatteningPropertyInfo = Bool
    type AttrGetType SettingsEnableFrameFlatteningPropertyInfo = Bool
    type AttrLabel SettingsEnableFrameFlatteningPropertyInfo = "enable-frame-flattening"
    type AttrOrigin SettingsEnableFrameFlatteningPropertyInfo = Settings
    attrGet = getSettingsEnableFrameFlattening
    attrSet = setSettingsEnableFrameFlattening
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableFullscreen
-- @
getSettingsEnableFullscreen :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableFullscreen :: o -> m Bool
getSettingsEnableFullscreen obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-fullscreen"

-- | Set the value of the “@enable-fullscreen@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableFullscreen obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-fullscreen" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableFullscreen val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-fullscreen" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableFullscreenPropertyInfo
instance AttrInfo SettingsEnableFullscreenPropertyInfo where
    type AttrAllowedOps SettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableFullscreenPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableFullscreenPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableFullscreenPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableFullscreenPropertyInfo = Bool
    type AttrGetType SettingsEnableFullscreenPropertyInfo = Bool
    type AttrLabel SettingsEnableFullscreenPropertyInfo = "enable-fullscreen"
    type AttrOrigin SettingsEnableFullscreenPropertyInfo = Settings
    attrGet = getSettingsEnableFullscreen
    attrSet = setSettingsEnableFullscreen
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableHtml5Database
-- @
getSettingsEnableHtml5Database :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHtml5Database :: o -> m Bool
getSettingsEnableHtml5Database obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-html5-database"

-- | Set the value of the “@enable-html5-database@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableHtml5Database obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-html5-database" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableHtml5Database val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-html5-database" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableHtml5DatabasePropertyInfo
instance AttrInfo SettingsEnableHtml5DatabasePropertyInfo where
    type AttrAllowedOps SettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableHtml5DatabasePropertyInfo = Bool
    type AttrGetType SettingsEnableHtml5DatabasePropertyInfo = Bool
    type AttrLabel SettingsEnableHtml5DatabasePropertyInfo = "enable-html5-database"
    type AttrOrigin SettingsEnableHtml5DatabasePropertyInfo = Settings
    attrGet = getSettingsEnableHtml5Database
    attrSet = setSettingsEnableHtml5Database
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableHtml5LocalStorage
-- @
getSettingsEnableHtml5LocalStorage :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHtml5LocalStorage :: o -> m Bool
getSettingsEnableHtml5LocalStorage obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-html5-local-storage"

-- | Set the value of the “@enable-html5-local-storage@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableHtml5LocalStorage obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-html5-local-storage" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableHtml5LocalStorage val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-html5-local-storage" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableHtml5LocalStoragePropertyInfo
instance AttrInfo SettingsEnableHtml5LocalStoragePropertyInfo where
    type AttrAllowedOps SettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableHtml5LocalStoragePropertyInfo = Bool
    type AttrGetType SettingsEnableHtml5LocalStoragePropertyInfo = Bool
    type AttrLabel SettingsEnableHtml5LocalStoragePropertyInfo = "enable-html5-local-storage"
    type AttrOrigin SettingsEnableHtml5LocalStoragePropertyInfo = Settings
    attrGet = getSettingsEnableHtml5LocalStorage
    attrSet = setSettingsEnableHtml5LocalStorage
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableHyperlinkAuditing
-- @
getSettingsEnableHyperlinkAuditing :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHyperlinkAuditing :: o -> m Bool
getSettingsEnableHyperlinkAuditing obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-hyperlink-auditing"

-- | Set the value of the “@enable-hyperlink-auditing@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableHyperlinkAuditing obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-hyperlink-auditing" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableHyperlinkAuditing val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-hyperlink-auditing" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableHyperlinkAuditingPropertyInfo
instance AttrInfo SettingsEnableHyperlinkAuditingPropertyInfo where
    type AttrAllowedOps SettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableHyperlinkAuditingPropertyInfo = Bool
    type AttrGetType SettingsEnableHyperlinkAuditingPropertyInfo = Bool
    type AttrLabel SettingsEnableHyperlinkAuditingPropertyInfo = "enable-hyperlink-auditing"
    type AttrOrigin SettingsEnableHyperlinkAuditingPropertyInfo = Settings
    attrGet = getSettingsEnableHyperlinkAuditing
    attrSet = setSettingsEnableHyperlinkAuditing
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableJava
-- @
getSettingsEnableJava :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJava :: o -> m Bool
getSettingsEnableJava obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-java"

-- | Set the value of the “@enable-java@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableJava obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-java" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableJava val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-java" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableJavaPropertyInfo
instance AttrInfo SettingsEnableJavaPropertyInfo where
    type AttrAllowedOps SettingsEnableJavaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableJavaPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableJavaPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableJavaPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableJavaPropertyInfo = Bool
    type AttrGetType SettingsEnableJavaPropertyInfo = Bool
    type AttrLabel SettingsEnableJavaPropertyInfo = "enable-java"
    type AttrOrigin SettingsEnableJavaPropertyInfo = Settings
    attrGet = getSettingsEnableJava
    attrSet = setSettingsEnableJava
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableJavascript
-- @
getSettingsEnableJavascript :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJavascript :: o -> m Bool
getSettingsEnableJavascript obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-javascript"

-- | Set the value of the “@enable-javascript@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableJavascript obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-javascript" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableJavascript val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-javascript" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableJavascriptPropertyInfo
instance AttrInfo SettingsEnableJavascriptPropertyInfo where
    type AttrAllowedOps SettingsEnableJavascriptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableJavascriptPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableJavascriptPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableJavascriptPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableJavascriptPropertyInfo = Bool
    type AttrGetType SettingsEnableJavascriptPropertyInfo = Bool
    type AttrLabel SettingsEnableJavascriptPropertyInfo = "enable-javascript"
    type AttrOrigin SettingsEnableJavascriptPropertyInfo = Settings
    attrGet = getSettingsEnableJavascript
    attrSet = setSettingsEnableJavascript
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableJavascriptMarkup
-- @
getSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJavascriptMarkup :: o -> m Bool
getSettingsEnableJavascriptMarkup obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-javascript-markup"

-- | Set the value of the “@enable-javascript-markup@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableJavascriptMarkup obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-javascript-markup" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableJavascriptMarkup val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-javascript-markup" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableJavascriptMarkupPropertyInfo
instance AttrInfo SettingsEnableJavascriptMarkupPropertyInfo where
    type AttrAllowedOps SettingsEnableJavascriptMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableJavascriptMarkupPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableJavascriptMarkupPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableJavascriptMarkupPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableJavascriptMarkupPropertyInfo = Bool
    type AttrGetType SettingsEnableJavascriptMarkupPropertyInfo = Bool
    type AttrLabel SettingsEnableJavascriptMarkupPropertyInfo = "enable-javascript-markup"
    type AttrOrigin SettingsEnableJavascriptMarkupPropertyInfo = Settings
    attrGet = getSettingsEnableJavascriptMarkup
    attrSet = setSettingsEnableJavascriptMarkup
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableMediaCapabilities
-- @
getSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediaCapabilities :: o -> m Bool
getSettingsEnableMediaCapabilities obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-media-capabilities"

-- | Set the value of the “@enable-media-capabilities@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableMediaCapabilities obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-media-capabilities" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableMediaCapabilities val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-media-capabilities" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableMediaCapabilitiesPropertyInfo
instance AttrInfo SettingsEnableMediaCapabilitiesPropertyInfo where
    type AttrAllowedOps SettingsEnableMediaCapabilitiesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableMediaCapabilitiesPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableMediaCapabilitiesPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableMediaCapabilitiesPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableMediaCapabilitiesPropertyInfo = Bool
    type AttrGetType SettingsEnableMediaCapabilitiesPropertyInfo = Bool
    type AttrLabel SettingsEnableMediaCapabilitiesPropertyInfo = "enable-media-capabilities"
    type AttrOrigin SettingsEnableMediaCapabilitiesPropertyInfo = Settings
    attrGet = getSettingsEnableMediaCapabilities
    attrSet = setSettingsEnableMediaCapabilities
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableMediaStream
-- @
getSettingsEnableMediaStream :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediaStream :: o -> m Bool
getSettingsEnableMediaStream obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-media-stream"

-- | Set the value of the “@enable-media-stream@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableMediaStream obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-media-stream" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableMediaStream val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-media-stream" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableMediaStreamPropertyInfo
instance AttrInfo SettingsEnableMediaStreamPropertyInfo where
    type AttrAllowedOps SettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableMediaStreamPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableMediaStreamPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableMediaStreamPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableMediaStreamPropertyInfo = Bool
    type AttrGetType SettingsEnableMediaStreamPropertyInfo = Bool
    type AttrLabel SettingsEnableMediaStreamPropertyInfo = "enable-media-stream"
    type AttrOrigin SettingsEnableMediaStreamPropertyInfo = Settings
    attrGet = getSettingsEnableMediaStream
    attrSet = setSettingsEnableMediaStream
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableMediasource
-- @
getSettingsEnableMediasource :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediasource :: o -> m Bool
getSettingsEnableMediasource obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-mediasource"

-- | Set the value of the “@enable-mediasource@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableMediasource obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-mediasource" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableMediasource val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-mediasource" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableMediasourcePropertyInfo
instance AttrInfo SettingsEnableMediasourcePropertyInfo where
    type AttrAllowedOps SettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableMediasourcePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableMediasourcePropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableMediasourcePropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableMediasourcePropertyInfo = Bool
    type AttrGetType SettingsEnableMediasourcePropertyInfo = Bool
    type AttrLabel SettingsEnableMediasourcePropertyInfo = "enable-mediasource"
    type AttrOrigin SettingsEnableMediasourcePropertyInfo = Settings
    attrGet = getSettingsEnableMediasource
    attrSet = setSettingsEnableMediasource
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableMockCaptureDevices
-- @
getSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMockCaptureDevices :: o -> m Bool
getSettingsEnableMockCaptureDevices obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-mock-capture-devices"

-- | Set the value of the “@enable-mock-capture-devices@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableMockCaptureDevices obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-mock-capture-devices" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableMockCaptureDevices val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-mock-capture-devices" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableMockCaptureDevicesPropertyInfo
instance AttrInfo SettingsEnableMockCaptureDevicesPropertyInfo where
    type AttrAllowedOps SettingsEnableMockCaptureDevicesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableMockCaptureDevicesPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableMockCaptureDevicesPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableMockCaptureDevicesPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableMockCaptureDevicesPropertyInfo = Bool
    type AttrGetType SettingsEnableMockCaptureDevicesPropertyInfo = Bool
    type AttrLabel SettingsEnableMockCaptureDevicesPropertyInfo = "enable-mock-capture-devices"
    type AttrOrigin SettingsEnableMockCaptureDevicesPropertyInfo = Settings
    attrGet = getSettingsEnableMockCaptureDevices
    attrSet = setSettingsEnableMockCaptureDevices
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableOfflineWebApplicationCache
-- @
getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableOfflineWebApplicationCache :: o -> m Bool
getSettingsEnableOfflineWebApplicationCache obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-offline-web-application-cache"

-- | Set the value of the “@enable-offline-web-application-cache@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableOfflineWebApplicationCache obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-offline-web-application-cache" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableOfflineWebApplicationCache val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-offline-web-application-cache" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableOfflineWebApplicationCachePropertyInfo
instance AttrInfo SettingsEnableOfflineWebApplicationCachePropertyInfo where
    type AttrAllowedOps SettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool
    type AttrGetType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool
    type AttrLabel SettingsEnableOfflineWebApplicationCachePropertyInfo = "enable-offline-web-application-cache"
    type AttrOrigin SettingsEnableOfflineWebApplicationCachePropertyInfo = Settings
    attrGet = getSettingsEnableOfflineWebApplicationCache
    attrSet = setSettingsEnableOfflineWebApplicationCache
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enablePageCache
-- @
getSettingsEnablePageCache :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnablePageCache :: o -> m Bool
getSettingsEnablePageCache obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-page-cache"

-- | Set the value of the “@enable-page-cache@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnablePageCache obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-page-cache" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnablePageCache val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-page-cache" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnablePageCachePropertyInfo
instance AttrInfo SettingsEnablePageCachePropertyInfo where
    type AttrAllowedOps SettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnablePageCachePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnablePageCachePropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnablePageCachePropertyInfo = (~) Bool
    type AttrTransferType SettingsEnablePageCachePropertyInfo = Bool
    type AttrGetType SettingsEnablePageCachePropertyInfo = Bool
    type AttrLabel SettingsEnablePageCachePropertyInfo = "enable-page-cache"
    type AttrOrigin SettingsEnablePageCachePropertyInfo = Settings
    attrGet = getSettingsEnablePageCache
    attrSet = setSettingsEnablePageCache
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enablePlugins
-- @
getSettingsEnablePlugins :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnablePlugins :: o -> m Bool
getSettingsEnablePlugins obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-plugins"

-- | Set the value of the “@enable-plugins@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnablePlugins obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-plugins" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnablePlugins val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-plugins" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnablePluginsPropertyInfo
instance AttrInfo SettingsEnablePluginsPropertyInfo where
    type AttrAllowedOps SettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnablePluginsPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnablePluginsPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnablePluginsPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnablePluginsPropertyInfo = Bool
    type AttrGetType SettingsEnablePluginsPropertyInfo = Bool
    type AttrLabel SettingsEnablePluginsPropertyInfo = "enable-plugins"
    type AttrOrigin SettingsEnablePluginsPropertyInfo = Settings
    attrGet = getSettingsEnablePlugins
    attrSet = setSettingsEnablePlugins
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enablePrivateBrowsing
-- @
getSettingsEnablePrivateBrowsing :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnablePrivateBrowsing :: o -> m Bool
getSettingsEnablePrivateBrowsing obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-private-browsing"

-- | Set the value of the “@enable-private-browsing@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnablePrivateBrowsing obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-private-browsing" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnablePrivateBrowsing val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-private-browsing" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnablePrivateBrowsingPropertyInfo
instance AttrInfo SettingsEnablePrivateBrowsingPropertyInfo where
    type AttrAllowedOps SettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnablePrivateBrowsingPropertyInfo = Bool
    type AttrGetType SettingsEnablePrivateBrowsingPropertyInfo = Bool
    type AttrLabel SettingsEnablePrivateBrowsingPropertyInfo = "enable-private-browsing"
    type AttrOrigin SettingsEnablePrivateBrowsingPropertyInfo = Settings
    attrGet = getSettingsEnablePrivateBrowsing
    attrSet = setSettingsEnablePrivateBrowsing
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableResizableTextAreas
-- @
getSettingsEnableResizableTextAreas :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableResizableTextAreas :: o -> m Bool
getSettingsEnableResizableTextAreas obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-resizable-text-areas"

-- | Set the value of the “@enable-resizable-text-areas@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableResizableTextAreas obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-resizable-text-areas" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableResizableTextAreas val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-resizable-text-areas" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableResizableTextAreasPropertyInfo
instance AttrInfo SettingsEnableResizableTextAreasPropertyInfo where
    type AttrAllowedOps SettingsEnableResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableResizableTextAreasPropertyInfo = Bool
    type AttrGetType SettingsEnableResizableTextAreasPropertyInfo = Bool
    type AttrLabel SettingsEnableResizableTextAreasPropertyInfo = "enable-resizable-text-areas"
    type AttrOrigin SettingsEnableResizableTextAreasPropertyInfo = Settings
    attrGet = getSettingsEnableResizableTextAreas
    attrSet = setSettingsEnableResizableTextAreas
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableSiteSpecificQuirks
-- @
getSettingsEnableSiteSpecificQuirks :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSiteSpecificQuirks :: o -> m Bool
getSettingsEnableSiteSpecificQuirks obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-site-specific-quirks"

-- | Set the value of the “@enable-site-specific-quirks@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableSiteSpecificQuirks obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-site-specific-quirks" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableSiteSpecificQuirks val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-site-specific-quirks" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableSiteSpecificQuirksPropertyInfo
instance AttrInfo SettingsEnableSiteSpecificQuirksPropertyInfo where
    type AttrAllowedOps SettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool
    type AttrGetType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool
    type AttrLabel SettingsEnableSiteSpecificQuirksPropertyInfo = "enable-site-specific-quirks"
    type AttrOrigin SettingsEnableSiteSpecificQuirksPropertyInfo = Settings
    attrGet = getSettingsEnableSiteSpecificQuirks
    attrSet = setSettingsEnableSiteSpecificQuirks
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableSmoothScrolling
-- @
getSettingsEnableSmoothScrolling :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSmoothScrolling :: o -> m Bool
getSettingsEnableSmoothScrolling obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-smooth-scrolling"

-- | Set the value of the “@enable-smooth-scrolling@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableSmoothScrolling obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-smooth-scrolling" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableSmoothScrolling val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-smooth-scrolling" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableSmoothScrollingPropertyInfo
instance AttrInfo SettingsEnableSmoothScrollingPropertyInfo where
    type AttrAllowedOps SettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableSmoothScrollingPropertyInfo = Bool
    type AttrGetType SettingsEnableSmoothScrollingPropertyInfo = Bool
    type AttrLabel SettingsEnableSmoothScrollingPropertyInfo = "enable-smooth-scrolling"
    type AttrOrigin SettingsEnableSmoothScrollingPropertyInfo = Settings
    attrGet = getSettingsEnableSmoothScrolling
    attrSet = setSettingsEnableSmoothScrolling
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableSpatialNavigation
-- @
getSettingsEnableSpatialNavigation :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSpatialNavigation :: o -> m Bool
getSettingsEnableSpatialNavigation obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-spatial-navigation"

-- | Set the value of the “@enable-spatial-navigation@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableSpatialNavigation obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-spatial-navigation" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableSpatialNavigation val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-spatial-navigation" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableSpatialNavigationPropertyInfo
instance AttrInfo SettingsEnableSpatialNavigationPropertyInfo where
    type AttrAllowedOps SettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableSpatialNavigationPropertyInfo = Bool
    type AttrGetType SettingsEnableSpatialNavigationPropertyInfo = Bool
    type AttrLabel SettingsEnableSpatialNavigationPropertyInfo = "enable-spatial-navigation"
    type AttrOrigin SettingsEnableSpatialNavigationPropertyInfo = Settings
    attrGet = getSettingsEnableSpatialNavigation
    attrSet = setSettingsEnableSpatialNavigation
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableTabsToLinks
-- @
getSettingsEnableTabsToLinks :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableTabsToLinks :: o -> m Bool
getSettingsEnableTabsToLinks obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-tabs-to-links"

-- | Set the value of the “@enable-tabs-to-links@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableTabsToLinks obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-tabs-to-links" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableTabsToLinks val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-tabs-to-links" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableTabsToLinksPropertyInfo
instance AttrInfo SettingsEnableTabsToLinksPropertyInfo where
    type AttrAllowedOps SettingsEnableTabsToLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableTabsToLinksPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableTabsToLinksPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableTabsToLinksPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableTabsToLinksPropertyInfo = Bool
    type AttrGetType SettingsEnableTabsToLinksPropertyInfo = Bool
    type AttrLabel SettingsEnableTabsToLinksPropertyInfo = "enable-tabs-to-links"
    type AttrOrigin SettingsEnableTabsToLinksPropertyInfo = Settings
    attrGet = getSettingsEnableTabsToLinks
    attrSet = setSettingsEnableTabsToLinks
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableWebaudio
-- @
getSettingsEnableWebaudio :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebaudio :: o -> m Bool
getSettingsEnableWebaudio obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-webaudio"

-- | Set the value of the “@enable-webaudio@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableWebaudio obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-webaudio" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableWebaudio val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-webaudio" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableWebaudioPropertyInfo
instance AttrInfo SettingsEnableWebaudioPropertyInfo where
    type AttrAllowedOps SettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableWebaudioPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableWebaudioPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableWebaudioPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableWebaudioPropertyInfo = Bool
    type AttrGetType SettingsEnableWebaudioPropertyInfo = Bool
    type AttrLabel SettingsEnableWebaudioPropertyInfo = "enable-webaudio"
    type AttrOrigin SettingsEnableWebaudioPropertyInfo = Settings
    attrGet = getSettingsEnableWebaudio
    attrSet = setSettingsEnableWebaudio
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableWebgl
-- @
getSettingsEnableWebgl :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebgl :: o -> m Bool
getSettingsEnableWebgl obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-webgl"

-- | Set the value of the “@enable-webgl@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableWebgl obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-webgl" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableWebgl val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-webgl" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableWebglPropertyInfo
instance AttrInfo SettingsEnableWebglPropertyInfo where
    type AttrAllowedOps SettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableWebglPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableWebglPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableWebglPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableWebglPropertyInfo = Bool
    type AttrGetType SettingsEnableWebglPropertyInfo = Bool
    type AttrLabel SettingsEnableWebglPropertyInfo = "enable-webgl"
    type AttrOrigin SettingsEnableWebglPropertyInfo = Settings
    attrGet = getSettingsEnableWebgl
    attrSet = setSettingsEnableWebgl
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableWriteConsoleMessagesToStdout
-- @
getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWriteConsoleMessagesToStdout :: o -> m Bool
getSettingsEnableWriteConsoleMessagesToStdout obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-write-console-messages-to-stdout"

-- | Set the value of the “@enable-write-console-messages-to-stdout@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableWriteConsoleMessagesToStdout obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-write-console-messages-to-stdout" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableWriteConsoleMessagesToStdout val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-write-console-messages-to-stdout" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo
instance AttrInfo SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo where
    type AttrAllowedOps SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool
    type AttrGetType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool
    type AttrLabel SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = "enable-write-console-messages-to-stdout"
    type AttrOrigin SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Settings
    attrGet = getSettingsEnableWriteConsoleMessagesToStdout
    attrSet = setSettingsEnableWriteConsoleMessagesToStdout
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #enableXssAuditor
-- @
getSettingsEnableXssAuditor :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableXssAuditor :: o -> m Bool
getSettingsEnableXssAuditor obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-xss-auditor"

-- | Set the value of the “@enable-xss-auditor@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsEnableXssAuditor obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-xss-auditor" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsEnableXssAuditor val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-xss-auditor" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsEnableXssAuditorPropertyInfo
instance AttrInfo SettingsEnableXssAuditorPropertyInfo where
    type AttrAllowedOps SettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsEnableXssAuditorPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsEnableXssAuditorPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsEnableXssAuditorPropertyInfo = (~) Bool
    type AttrTransferType SettingsEnableXssAuditorPropertyInfo = Bool
    type AttrGetType SettingsEnableXssAuditorPropertyInfo = Bool
    type AttrLabel SettingsEnableXssAuditorPropertyInfo = "enable-xss-auditor"
    type AttrOrigin SettingsEnableXssAuditorPropertyInfo = Settings
    attrGet = getSettingsEnableXssAuditor
    attrSet = setSettingsEnableXssAuditor
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #fantasyFontFamily
-- @
getSettingsFantasyFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsFantasyFontFamily :: o -> m Text
getSettingsFantasyFontFamily obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getSettingsFantasyFontFamily" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "fantasy-font-family"

-- | Set the value of the “@fantasy-font-family@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Text -> m ()
setSettingsFantasyFontFamily obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "fantasy-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
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 :: Text -> IO (GValueConstruct o)
constructSettingsFantasyFontFamily val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "fantasy-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

#if defined(ENABLE_OVERLOADING)
data SettingsFantasyFontFamilyPropertyInfo
instance AttrInfo SettingsFantasyFontFamilyPropertyInfo where
    type AttrAllowedOps SettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsFantasyFontFamilyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferType SettingsFantasyFontFamilyPropertyInfo = T.Text
    type AttrGetType SettingsFantasyFontFamilyPropertyInfo = T.Text
    type AttrLabel SettingsFantasyFontFamilyPropertyInfo = "fantasy-font-family"
    type AttrOrigin SettingsFantasyFontFamilyPropertyInfo = Settings
    attrGet = getSettingsFantasyFontFamily
    attrSet = setSettingsFantasyFontFamily
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #hardwareAccelerationPolicy
-- @
getSettingsHardwareAccelerationPolicy :: (MonadIO m, IsSettings o) => o -> m WebKit2.Enums.HardwareAccelerationPolicy
getSettingsHardwareAccelerationPolicy :: o -> m HardwareAccelerationPolicy
getSettingsHardwareAccelerationPolicy obj :: o
obj = IO HardwareAccelerationPolicy -> m HardwareAccelerationPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HardwareAccelerationPolicy -> m HardwareAccelerationPolicy)
-> IO HardwareAccelerationPolicy -> m HardwareAccelerationPolicy
forall a b. (a -> b) -> a -> b
$ o -> String -> IO HardwareAccelerationPolicy
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "hardware-acceleration-policy"

-- | Set the value of the “@hardware-acceleration-policy@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> HardwareAccelerationPolicy -> m ()
setSettingsHardwareAccelerationPolicy obj :: o
obj val :: HardwareAccelerationPolicy
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> HardwareAccelerationPolicy -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "hardware-acceleration-policy" HardwareAccelerationPolicy
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 :: HardwareAccelerationPolicy -> IO (GValueConstruct o)
constructSettingsHardwareAccelerationPolicy val :: HardwareAccelerationPolicy
val = String -> HardwareAccelerationPolicy -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "hardware-acceleration-policy" HardwareAccelerationPolicy
val

#if defined(ENABLE_OVERLOADING)
data SettingsHardwareAccelerationPolicyPropertyInfo
instance AttrInfo SettingsHardwareAccelerationPolicyPropertyInfo where
    type AttrAllowedOps SettingsHardwareAccelerationPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = (~) WebKit2.Enums.HardwareAccelerationPolicy
    type AttrTransferTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = (~) WebKit2.Enums.HardwareAccelerationPolicy
    type AttrTransferType SettingsHardwareAccelerationPolicyPropertyInfo = WebKit2.Enums.HardwareAccelerationPolicy
    type AttrGetType SettingsHardwareAccelerationPolicyPropertyInfo = WebKit2.Enums.HardwareAccelerationPolicy
    type AttrLabel SettingsHardwareAccelerationPolicyPropertyInfo = "hardware-acceleration-policy"
    type AttrOrigin SettingsHardwareAccelerationPolicyPropertyInfo = Settings
    attrGet = getSettingsHardwareAccelerationPolicy
    attrSet = setSettingsHardwareAccelerationPolicy
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #javascriptCanAccessClipboard
-- @
getSettingsJavascriptCanAccessClipboard :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsJavascriptCanAccessClipboard :: o -> m Bool
getSettingsJavascriptCanAccessClipboard obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "javascript-can-access-clipboard"

-- | Set the value of the “@javascript-can-access-clipboard@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsJavascriptCanAccessClipboard obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "javascript-can-access-clipboard" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsJavascriptCanAccessClipboard val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "javascript-can-access-clipboard" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsJavascriptCanAccessClipboardPropertyInfo
instance AttrInfo SettingsJavascriptCanAccessClipboardPropertyInfo where
    type AttrAllowedOps SettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool
    type AttrTransferType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool
    type AttrGetType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool
    type AttrLabel SettingsJavascriptCanAccessClipboardPropertyInfo = "javascript-can-access-clipboard"
    type AttrOrigin SettingsJavascriptCanAccessClipboardPropertyInfo = Settings
    attrGet = getSettingsJavascriptCanAccessClipboard
    attrSet = setSettingsJavascriptCanAccessClipboard
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #javascriptCanOpenWindowsAutomatically
-- @
getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsJavascriptCanOpenWindowsAutomatically :: o -> m Bool
getSettingsJavascriptCanOpenWindowsAutomatically obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "javascript-can-open-windows-automatically"

-- | Set the value of the “@javascript-can-open-windows-automatically@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsJavascriptCanOpenWindowsAutomatically obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "javascript-can-open-windows-automatically" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsJavascriptCanOpenWindowsAutomatically val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "javascript-can-open-windows-automatically" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo
instance AttrInfo SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where
    type AttrAllowedOps SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool
    type AttrTransferType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool
    type AttrGetType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool
    type AttrLabel SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "javascript-can-open-windows-automatically"
    type AttrOrigin SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Settings
    attrGet = getSettingsJavascriptCanOpenWindowsAutomatically
    attrSet = setSettingsJavascriptCanOpenWindowsAutomatically
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #loadIconsIgnoringImageLoadSetting
-- @
getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsLoadIconsIgnoringImageLoadSetting :: o -> m Bool
getSettingsLoadIconsIgnoringImageLoadSetting obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "load-icons-ignoring-image-load-setting"

-- | Set the value of the “@load-icons-ignoring-image-load-setting@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsLoadIconsIgnoringImageLoadSetting obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "load-icons-ignoring-image-load-setting" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsLoadIconsIgnoringImageLoadSetting val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "load-icons-ignoring-image-load-setting" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo
instance AttrInfo SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo where
    type AttrAllowedOps SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = (~) Bool
    type AttrTransferType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool
    type AttrGetType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool
    type AttrLabel SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = "load-icons-ignoring-image-load-setting"
    type AttrOrigin SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Settings
    attrGet = getSettingsLoadIconsIgnoringImageLoadSetting
    attrSet = setSettingsLoadIconsIgnoringImageLoadSetting
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #mediaPlaybackAllowsInline
-- @
getSettingsMediaPlaybackAllowsInline :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsMediaPlaybackAllowsInline :: o -> m Bool
getSettingsMediaPlaybackAllowsInline obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "media-playback-allows-inline"

-- | Set the value of the “@media-playback-allows-inline@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsMediaPlaybackAllowsInline obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "media-playback-allows-inline" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsMediaPlaybackAllowsInline val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "media-playback-allows-inline" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsMediaPlaybackAllowsInlinePropertyInfo
instance AttrInfo SettingsMediaPlaybackAllowsInlinePropertyInfo where
    type AttrAllowedOps SettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool
    type AttrTransferType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool
    type AttrGetType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool
    type AttrLabel SettingsMediaPlaybackAllowsInlinePropertyInfo = "media-playback-allows-inline"
    type AttrOrigin SettingsMediaPlaybackAllowsInlinePropertyInfo = Settings
    attrGet = getSettingsMediaPlaybackAllowsInline
    attrSet = setSettingsMediaPlaybackAllowsInline
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #mediaPlaybackRequiresUserGesture
-- @
getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsMediaPlaybackRequiresUserGesture :: o -> m Bool
getSettingsMediaPlaybackRequiresUserGesture obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "media-playback-requires-user-gesture"

-- | Set the value of the “@media-playback-requires-user-gesture@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsMediaPlaybackRequiresUserGesture obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "media-playback-requires-user-gesture" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsMediaPlaybackRequiresUserGesture val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "media-playback-requires-user-gesture" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsMediaPlaybackRequiresUserGesturePropertyInfo
instance AttrInfo SettingsMediaPlaybackRequiresUserGesturePropertyInfo where
    type AttrAllowedOps SettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool
    type AttrTransferType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool
    type AttrGetType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool
    type AttrLabel SettingsMediaPlaybackRequiresUserGesturePropertyInfo = "media-playback-requires-user-gesture"
    type AttrOrigin SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Settings
    attrGet = getSettingsMediaPlaybackRequiresUserGesture
    attrSet = setSettingsMediaPlaybackRequiresUserGesture
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #minimumFontSize
-- @
getSettingsMinimumFontSize :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsMinimumFontSize :: o -> m Word32
getSettingsMinimumFontSize obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "minimum-font-size"

-- | Set the value of the “@minimum-font-size@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Word32 -> m ()
setSettingsMinimumFontSize obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "minimum-font-size" Word32
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 :: Word32 -> IO (GValueConstruct o)
constructSettingsMinimumFontSize val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "minimum-font-size" Word32
val

#if defined(ENABLE_OVERLOADING)
data SettingsMinimumFontSizePropertyInfo
instance AttrInfo SettingsMinimumFontSizePropertyInfo where
    type AttrAllowedOps SettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsMinimumFontSizePropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32
    type AttrTransferTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32
    type AttrTransferType SettingsMinimumFontSizePropertyInfo = Word32
    type AttrGetType SettingsMinimumFontSizePropertyInfo = Word32
    type AttrLabel SettingsMinimumFontSizePropertyInfo = "minimum-font-size"
    type AttrOrigin SettingsMinimumFontSizePropertyInfo = Settings
    attrGet = getSettingsMinimumFontSize
    attrSet = setSettingsMinimumFontSize
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #monospaceFontFamily
-- @
getSettingsMonospaceFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsMonospaceFontFamily :: o -> m Text
getSettingsMonospaceFontFamily obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getSettingsMonospaceFontFamily" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "monospace-font-family"

-- | Set the value of the “@monospace-font-family@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Text -> m ()
setSettingsMonospaceFontFamily obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "monospace-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
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 :: Text -> IO (GValueConstruct o)
constructSettingsMonospaceFontFamily val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "monospace-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

#if defined(ENABLE_OVERLOADING)
data SettingsMonospaceFontFamilyPropertyInfo
instance AttrInfo SettingsMonospaceFontFamilyPropertyInfo where
    type AttrAllowedOps SettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferType SettingsMonospaceFontFamilyPropertyInfo = T.Text
    type AttrGetType SettingsMonospaceFontFamilyPropertyInfo = T.Text
    type AttrLabel SettingsMonospaceFontFamilyPropertyInfo = "monospace-font-family"
    type AttrOrigin SettingsMonospaceFontFamilyPropertyInfo = Settings
    attrGet = getSettingsMonospaceFontFamily
    attrSet = setSettingsMonospaceFontFamily
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #pictographFontFamily
-- @
getSettingsPictographFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsPictographFontFamily :: o -> m Text
getSettingsPictographFontFamily obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getSettingsPictographFontFamily" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "pictograph-font-family"

-- | Set the value of the “@pictograph-font-family@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Text -> m ()
setSettingsPictographFontFamily obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "pictograph-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
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 :: Text -> IO (GValueConstruct o)
constructSettingsPictographFontFamily val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "pictograph-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

#if defined(ENABLE_OVERLOADING)
data SettingsPictographFontFamilyPropertyInfo
instance AttrInfo SettingsPictographFontFamilyPropertyInfo where
    type AttrAllowedOps SettingsPictographFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsPictographFontFamilyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferType SettingsPictographFontFamilyPropertyInfo = T.Text
    type AttrGetType SettingsPictographFontFamilyPropertyInfo = T.Text
    type AttrLabel SettingsPictographFontFamilyPropertyInfo = "pictograph-font-family"
    type AttrOrigin SettingsPictographFontFamilyPropertyInfo = Settings
    attrGet = getSettingsPictographFontFamily
    attrSet = setSettingsPictographFontFamily
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #printBackgrounds
-- @
getSettingsPrintBackgrounds :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsPrintBackgrounds :: o -> m Bool
getSettingsPrintBackgrounds obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "print-backgrounds"

-- | Set the value of the “@print-backgrounds@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsPrintBackgrounds obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "print-backgrounds" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsPrintBackgrounds val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "print-backgrounds" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsPrintBackgroundsPropertyInfo
instance AttrInfo SettingsPrintBackgroundsPropertyInfo where
    type AttrAllowedOps SettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsPrintBackgroundsPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsPrintBackgroundsPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsPrintBackgroundsPropertyInfo = (~) Bool
    type AttrTransferType SettingsPrintBackgroundsPropertyInfo = Bool
    type AttrGetType SettingsPrintBackgroundsPropertyInfo = Bool
    type AttrLabel SettingsPrintBackgroundsPropertyInfo = "print-backgrounds"
    type AttrOrigin SettingsPrintBackgroundsPropertyInfo = Settings
    attrGet = getSettingsPrintBackgrounds
    attrSet = setSettingsPrintBackgrounds
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #sansSerifFontFamily
-- @
getSettingsSansSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsSansSerifFontFamily :: o -> m Text
getSettingsSansSerifFontFamily obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getSettingsSansSerifFontFamily" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "sans-serif-font-family"

-- | Set the value of the “@sans-serif-font-family@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Text -> m ()
setSettingsSansSerifFontFamily obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "sans-serif-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
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 :: Text -> IO (GValueConstruct o)
constructSettingsSansSerifFontFamily val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "sans-serif-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

#if defined(ENABLE_OVERLOADING)
data SettingsSansSerifFontFamilyPropertyInfo
instance AttrInfo SettingsSansSerifFontFamilyPropertyInfo where
    type AttrAllowedOps SettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferType SettingsSansSerifFontFamilyPropertyInfo = T.Text
    type AttrGetType SettingsSansSerifFontFamilyPropertyInfo = T.Text
    type AttrLabel SettingsSansSerifFontFamilyPropertyInfo = "sans-serif-font-family"
    type AttrOrigin SettingsSansSerifFontFamilyPropertyInfo = Settings
    attrGet = getSettingsSansSerifFontFamily
    attrSet = setSettingsSansSerifFontFamily
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #serifFontFamily
-- @
getSettingsSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsSerifFontFamily :: o -> m Text
getSettingsSerifFontFamily obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getSettingsSerifFontFamily" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "serif-font-family"

-- | Set the value of the “@serif-font-family@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Text -> m ()
setSettingsSerifFontFamily obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "serif-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
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 :: Text -> IO (GValueConstruct o)
constructSettingsSerifFontFamily val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "serif-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

#if defined(ENABLE_OVERLOADING)
data SettingsSerifFontFamilyPropertyInfo
instance AttrInfo SettingsSerifFontFamilyPropertyInfo where
    type AttrAllowedOps SettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsSerifFontFamilyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text
    type AttrTransferType SettingsSerifFontFamilyPropertyInfo = T.Text
    type AttrGetType SettingsSerifFontFamilyPropertyInfo = T.Text
    type AttrLabel SettingsSerifFontFamilyPropertyInfo = "serif-font-family"
    type AttrOrigin SettingsSerifFontFamilyPropertyInfo = Settings
    attrGet = getSettingsSerifFontFamily
    attrSet = setSettingsSerifFontFamily
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #userAgent
-- @
getSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsUserAgent :: o -> m Text
getSettingsUserAgent obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getSettingsUserAgent" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "user-agent"

-- | Set the value of the “@user-agent@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Text -> m ()
setSettingsUserAgent obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "user-agent" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
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 :: Text -> IO (GValueConstruct o)
constructSettingsUserAgent val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "user-agent" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

-- | Set the value of the “@user-agent@” property to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #userAgent
-- @
clearSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsUserAgent :: o -> m ()
clearSettingsUserAgent obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "user-agent" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)

#if defined(ENABLE_OVERLOADING)
data SettingsUserAgentPropertyInfo
instance AttrInfo SettingsUserAgentPropertyInfo where
    type AttrAllowedOps SettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
    type AttrBaseTypeConstraint SettingsUserAgentPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text
    type AttrTransferType SettingsUserAgentPropertyInfo = T.Text
    type AttrGetType SettingsUserAgentPropertyInfo = T.Text
    type AttrLabel SettingsUserAgentPropertyInfo = "user-agent"
    type AttrOrigin SettingsUserAgentPropertyInfo = Settings
    attrGet = getSettingsUserAgent
    attrSet = setSettingsUserAgent
    attrTransfer _ v = do
        return v
    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 <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' settings #zoomTextOnly
-- @
getSettingsZoomTextOnly :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsZoomTextOnly :: o -> m Bool
getSettingsZoomTextOnly obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "zoom-text-only"

-- | Set the value of the “@zoom-text-only@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> 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 :: o -> Bool -> m ()
setSettingsZoomTextOnly obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "zoom-text-only" Bool
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 :: Bool -> IO (GValueConstruct o)
constructSettingsZoomTextOnly val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "zoom-text-only" Bool
val

#if defined(ENABLE_OVERLOADING)
data SettingsZoomTextOnlyPropertyInfo
instance AttrInfo SettingsZoomTextOnlyPropertyInfo where
    type AttrAllowedOps SettingsZoomTextOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SettingsZoomTextOnlyPropertyInfo = IsSettings
    type AttrSetTypeConstraint SettingsZoomTextOnlyPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint SettingsZoomTextOnlyPropertyInfo = (~) Bool
    type AttrTransferType SettingsZoomTextOnlyPropertyInfo = Bool
    type AttrGetType SettingsZoomTextOnlyPropertyInfo = Bool
    type AttrLabel SettingsZoomTextOnlyPropertyInfo = "zoom-text-only"
    type AttrOrigin SettingsZoomTextOnlyPropertyInfo = Settings
    attrGet = getSettingsZoomTextOnly
    attrSet = setSettingsZoomTextOnly
    attrTransfer _ v = do
        return v
    attrConstruct = constructSettingsZoomTextOnly
    attrClear = undefined
#endif

#if defined(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 defined(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 defined(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 t'GI.WebKit2.Objects.Settings.Settings' instance with default values. It must
-- be manually attached to a t'GI.WebKit2.Objects.WebView.WebView'.
-- See also @/webkit_settings_new_with_settings()/@.
settingsNew ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    m Settings
    -- ^ __Returns:__ a new t'GI.WebKit2.Objects.Settings.Settings' instance.
settingsNew :: m Settings
settingsNew  = IO Settings -> m Settings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Settings -> m Settings) -> IO Settings -> m Settings
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
result <- IO (Ptr Settings)
webkit_settings_new
    Text -> Ptr Settings -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsNew" Ptr Settings
result
    Settings
result' <- ((ManagedPtr Settings -> Settings) -> Ptr Settings -> IO Settings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Settings -> Settings
Settings) Ptr Settings
result
    Settings -> IO Settings
forall (m :: * -> *) a. Monad m => a -> m a
return Settings
result'

#if defined(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 t'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 t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If file access from file URLs is allowed or 'P.False' otherwise.
settingsGetAllowFileAccessFromFileUrls :: a -> m Bool
settingsGetAllowFileAccessFromFileUrls settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_allow_file_access_from_file_urls Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/allow-modal-dialogs/@ property.
settingsGetAllowModalDialogs ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if it\'s allowed to create and run modal dialogs or 'P.False' otherwise.
settingsGetAllowModalDialogs :: a -> m Bool
settingsGetAllowModalDialogs settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_allow_modal_dialogs Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'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 t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If universal access from file URLs is allowed or 'P.False' otherwise.
settingsGetAllowUniversalAccessFromFileUrls :: a -> m Bool
settingsGetAllowUniversalAccessFromFileUrls settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_allow_universal_access_from_file_urls Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/auto-load-images/@ property.
settingsGetAutoLoadImages ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If auto loading of images is enabled or 'P.False' otherwise.
settingsGetAutoLoadImages :: a -> m Bool
settingsGetAutoLoadImages settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_auto_load_images Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/cursive-font-family/@ property.
settingsGetCursiveFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m T.Text
    -- ^ __Returns:__ The default font family used to display content marked with cursive font.
settingsGetCursiveFontFamily :: a -> m Text
settingsGetCursiveFontFamily settings :: a
settings = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
result <- Ptr Settings -> IO CString
webkit_settings_get_cursive_font_family Ptr Settings
settings'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetCursiveFontFamily" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/default-charset/@ property.
settingsGetDefaultCharset ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m T.Text
    -- ^ __Returns:__ Default charset.
settingsGetDefaultCharset :: a -> m Text
settingsGetDefaultCharset settings :: a
settings = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
result <- Ptr Settings -> IO CString
webkit_settings_get_default_charset Ptr Settings
settings'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetDefaultCharset" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(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 :: a -> m Text
settingsGetDefaultFontFamily settings :: a
settings = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
result <- Ptr Settings -> IO CString
webkit_settings_get_default_font_family Ptr Settings
settings'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetDefaultFontFamily" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/default-font-size/@ property.
settingsGetDefaultFontSize ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Word32
    -- ^ __Returns:__ The default font size, in pixels.
settingsGetDefaultFontSize :: a -> m Word32
settingsGetDefaultFontSize settings :: a
settings = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    Word32
result <- Ptr Settings -> IO Word32
webkit_settings_get_default_font_size Ptr Settings
settings'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/default-monospace-font-size/@ property.
settingsGetDefaultMonospaceFontSize ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Word32
    -- ^ __Returns:__ Default monospace font size, in pixels.
settingsGetDefaultMonospaceFontSize :: a -> m Word32
settingsGetDefaultMonospaceFontSize settings :: a
settings = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    Word32
result <- Ptr Settings -> IO Word32
webkit_settings_get_default_monospace_font_size Ptr Settings
settings'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/draw-compositing-indicators/@ property.
settingsGetDrawCompositingIndicators ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If compositing borders are drawn or 'P.False' otherwise.
settingsGetDrawCompositingIndicators :: a -> m Bool
settingsGetDrawCompositingIndicators settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_draw_compositing_indicators Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-accelerated-2d-canvas/@ property.
-- 
-- /Since: 2.2/
settingsGetEnableAccelerated2dCanvas ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if accelerated 2D canvas is enabled or 'P.False' otherwise.
settingsGetEnableAccelerated2dCanvas :: a -> m Bool
settingsGetEnableAccelerated2dCanvas settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_accelerated_2d_canvas Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'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 t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if horizontal swipe gesture will trigger back-forward navigaiton or 'P.False' otherwise.
settingsGetEnableBackForwardNavigationGestures :: a -> m Bool
settingsGetEnableBackForwardNavigationGestures settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_back_forward_navigation_gestures Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-caret-browsing/@ property.
settingsGetEnableCaretBrowsing ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If caret browsing is enabled or 'P.False' otherwise.
settingsGetEnableCaretBrowsing :: a -> m Bool
settingsGetEnableCaretBrowsing settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_caret_browsing Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-developer-extras/@ property.
settingsGetEnableDeveloperExtras ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If developer extras is enabled or 'P.False' otherwise.
settingsGetEnableDeveloperExtras :: a -> m Bool
settingsGetEnableDeveloperExtras settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_developer_extras Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-dns-prefetching/@ property.
settingsGetEnableDnsPrefetching ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If DNS prefetching is enabled or 'P.False' otherwise.
settingsGetEnableDnsPrefetching :: a -> m Bool
settingsGetEnableDnsPrefetching settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_dns_prefetching Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-encrypted-media/@ property.
-- 
-- /Since: 2.20/
settingsGetEnableEncryptedMedia ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if EncryptedMedia support is enabled or 'P.False' otherwise.
settingsGetEnableEncryptedMedia :: a -> m Bool
settingsGetEnableEncryptedMedia settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_encrypted_media Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-frame-flattening/@ property.
settingsGetEnableFrameFlattening ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If frame flattening is enabled or 'P.False' otherwise.
settingsGetEnableFrameFlattening :: a -> m Bool
settingsGetEnableFrameFlattening settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_frame_flattening Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-fullscreen/@ property.
settingsGetEnableFullscreen ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If fullscreen support is enabled or 'P.False' otherwise.
settingsGetEnableFullscreen :: a -> m Bool
settingsGetEnableFullscreen settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_fullscreen Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-database/@ property.
settingsGetEnableHtml5Database ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if IndexedDB support is enabled or 'P.False' otherwise.
settingsGetEnableHtml5Database :: a -> m Bool
settingsGetEnableHtml5Database settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_html5_database Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-local-storage/@ property.
settingsGetEnableHtml5LocalStorage ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If HTML5 local storage support is enabled or 'P.False' otherwise.
settingsGetEnableHtml5LocalStorage :: a -> m Bool
settingsGetEnableHtml5LocalStorage settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_html5_local_storage Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-hyperlink-auditing/@ property.
settingsGetEnableHyperlinkAuditing ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If hyper link auditing is enabled or 'P.False' otherwise.
settingsGetEnableHyperlinkAuditing :: a -> m Bool
settingsGetEnableHyperlinkAuditing settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_hyperlink_auditing Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-java/@ property.
settingsGetEnableJava ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If Java is enabled or 'P.False' otherwise.
settingsGetEnableJava :: a -> m Bool
settingsGetEnableJava settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_java Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript/@ property.
settingsGetEnableJavascript ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If JavaScript is enabled or 'P.False' otherwise.
settingsGetEnableJavascript :: a -> m Bool
settingsGetEnableJavascript settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_javascript Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript-markup/@ property.
-- 
-- /Since: 2.24/
settingsGetEnableJavascriptMarkup ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if JavaScript markup is enabled or 'P.False' otherwise.
settingsGetEnableJavascriptMarkup :: a -> m Bool
settingsGetEnableJavascriptMarkup settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_javascript_markup Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-media-capabilities/@ property.
-- 
-- /Since: 2.22/
settingsGetEnableMediaCapabilities ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if MediaCapabilities support is enabled or 'P.False' otherwise.
settingsGetEnableMediaCapabilities :: a -> m Bool
settingsGetEnableMediaCapabilities settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_media_capabilities Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-media-stream/@ property.
-- 
-- /Since: 2.4/
settingsGetEnableMediaStream ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If mediastream support is enabled or 'P.False' otherwise.
settingsGetEnableMediaStream :: a -> m Bool
settingsGetEnableMediaStream settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_media_stream Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-mediasource/@ property.
-- 
-- /Since: 2.4/
settingsGetEnableMediasource ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If MediaSource support is enabled or 'P.False' otherwise.
settingsGetEnableMediasource :: a -> m Bool
settingsGetEnableMediasource settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_mediasource Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-mock-capture-devices/@ property.
-- 
-- /Since: 2.24/
settingsGetEnableMockCaptureDevices ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If mock capture devices is enabled or 'P.False' otherwise.
settingsGetEnableMockCaptureDevices :: a -> m Bool
settingsGetEnableMockCaptureDevices settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_mock_capture_devices Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-offline-web-application-cache/@ property.
settingsGetEnableOfflineWebApplicationCache ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If HTML5 offline web application cache support is enabled or 'P.False' otherwise.
settingsGetEnableOfflineWebApplicationCache :: a -> m Bool
settingsGetEnableOfflineWebApplicationCache settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_offline_web_application_cache Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-page-cache/@ property.
settingsGetEnablePageCache ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if page cache enabled or 'P.False' otherwise.
settingsGetEnablePageCache :: a -> m Bool
settingsGetEnablePageCache settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_page_cache Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-plugins/@ property.
settingsGetEnablePlugins ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If plugins are enabled or 'P.False' otherwise.
settingsGetEnablePlugins :: a -> m Bool
settingsGetEnablePlugins settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_plugins Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.WebView.WebView':@/is-ephemeral/@ or t'GI.WebKit2.Objects.WebContext.WebContext':@/is-ephemeral/@ instead."] #-}
-- | Get the t'GI.WebKit2.Objects.Settings.Settings':@/enable-private-browsing/@ property.
settingsGetEnablePrivateBrowsing ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If private browsing is enabled or 'P.False' otherwise.
settingsGetEnablePrivateBrowsing :: a -> m Bool
settingsGetEnablePrivateBrowsing settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_private_browsing Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-resizable-text-areas/@ property.
settingsGetEnableResizableTextAreas ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If text areas can be resized or 'P.False' otherwise.
settingsGetEnableResizableTextAreas :: a -> m Bool
settingsGetEnableResizableTextAreas settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_resizable_text_areas Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-site-specific-quirks/@ property.
settingsGetEnableSiteSpecificQuirks ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if site specific quirks are enabled or 'P.False' otherwise.
settingsGetEnableSiteSpecificQuirks :: a -> m Bool
settingsGetEnableSiteSpecificQuirks settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_site_specific_quirks Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-smooth-scrolling/@ property.
settingsGetEnableSmoothScrolling ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if smooth scrolling is enabled or 'P.False' otherwise.
settingsGetEnableSmoothScrolling :: a -> m Bool
settingsGetEnableSmoothScrolling settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_smooth_scrolling Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-spatial-navigation/@ property.
-- 
-- /Since: 2.2/
settingsGetEnableSpatialNavigation ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If HTML5 spatial navigation support is enabled or 'P.False' otherwise.
settingsGetEnableSpatialNavigation :: a -> m Bool
settingsGetEnableSpatialNavigation settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_spatial_navigation Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-tabs-to-links/@ property.
settingsGetEnableTabsToLinks ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If tabs to link is enabled or 'P.False' otherwise.
settingsGetEnableTabsToLinks :: a -> m Bool
settingsGetEnableTabsToLinks settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_tabs_to_links Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-webaudio/@ property.
settingsGetEnableWebaudio ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If webaudio support is enabled or 'P.False' otherwise.
settingsGetEnableWebaudio :: a -> m Bool
settingsGetEnableWebaudio settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_webaudio Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-webgl/@ property.
settingsGetEnableWebgl ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If WebGL support is enabled or 'P.False' otherwise.
settingsGetEnableWebgl :: a -> m Bool
settingsGetEnableWebgl settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_webgl Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'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 t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if writing console messages to stdout is enabled or 'P.False'
    -- otherwise.
settingsGetEnableWriteConsoleMessagesToStdout :: a -> m Bool
settingsGetEnableWriteConsoleMessagesToStdout settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_write_console_messages_to_stdout Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-xss-auditor/@ property.
settingsGetEnableXssAuditor ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If XSS auditing is enabled or 'P.False' otherwise.
settingsGetEnableXssAuditor :: a -> m Bool
settingsGetEnableXssAuditor settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_enable_xss_auditor Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/fantasy-font-family/@ property.
settingsGetFantasyFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m T.Text
    -- ^ __Returns:__ The default font family used to display content marked with fantasy font.
settingsGetFantasyFontFamily :: a -> m Text
settingsGetFantasyFontFamily settings :: a
settings = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
result <- Ptr Settings -> IO CString
webkit_settings_get_fantasy_font_family Ptr Settings
settings'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetFantasyFontFamily" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/hardware-acceleration-policy/@ property.
-- 
-- /Since: 2.16/
settingsGetHardwareAccelerationPolicy ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m WebKit2.Enums.HardwareAccelerationPolicy
    -- ^ __Returns:__ a t'GI.WebKit2.Enums.HardwareAccelerationPolicy'
settingsGetHardwareAccelerationPolicy :: a -> m HardwareAccelerationPolicy
settingsGetHardwareAccelerationPolicy settings :: a
settings = IO HardwareAccelerationPolicy -> m HardwareAccelerationPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HardwareAccelerationPolicy -> m HardwareAccelerationPolicy)
-> IO HardwareAccelerationPolicy -> m HardwareAccelerationPolicy
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CUInt
result <- Ptr Settings -> IO CUInt
webkit_settings_get_hardware_acceleration_policy Ptr Settings
settings'
    let result' :: HardwareAccelerationPolicy
result' = (Int -> HardwareAccelerationPolicy
forall a. Enum a => Int -> a
toEnum (Int -> HardwareAccelerationPolicy)
-> (CUInt -> Int) -> CUInt -> HardwareAccelerationPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    HardwareAccelerationPolicy -> IO HardwareAccelerationPolicy
forall (m :: * -> *) a. Monad m => a -> m a
return HardwareAccelerationPolicy
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-access-clipboard/@ property.
settingsGetJavascriptCanAccessClipboard ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If javascript-can-access-clipboard is enabled or 'P.False' otherwise.
settingsGetJavascriptCanAccessClipboard :: a -> m Bool
settingsGetJavascriptCanAccessClipboard settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_javascript_can_access_clipboard Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-open-windows-automatically/@ property.
settingsGetJavascriptCanOpenWindowsAutomatically ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If JavaScript can open window automatically or 'P.False' otherwise.
settingsGetJavascriptCanOpenWindowsAutomatically :: a -> m Bool
settingsGetJavascriptCanOpenWindowsAutomatically settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_javascript_can_open_windows_automatically Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/load-icons-ignoring-image-load-setting/@ property.
settingsGetLoadIconsIgnoringImageLoadSetting ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If site icon can be loaded irrespective of image loading preference or 'P.False' otherwise.
settingsGetLoadIconsIgnoringImageLoadSetting :: a -> m Bool
settingsGetLoadIconsIgnoringImageLoadSetting settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_load_icons_ignoring_image_load_setting Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/media-playback-allows-inline/@ property.
settingsGetMediaPlaybackAllowsInline ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If inline playback is allowed for media
    --    or 'P.False' if only fullscreen playback is allowed.
settingsGetMediaPlaybackAllowsInline :: a -> m Bool
settingsGetMediaPlaybackAllowsInline settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_media_playback_allows_inline Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/media-playback-requires-user-gesture/@ property.
settingsGetMediaPlaybackRequiresUserGesture ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If an user gesture is needed to play or load media
    --    or 'P.False' if no user gesture is needed.
settingsGetMediaPlaybackRequiresUserGesture :: a -> m Bool
settingsGetMediaPlaybackRequiresUserGesture settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_media_playback_requires_user_gesture Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/minimum-font-size/@ property.
settingsGetMinimumFontSize ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Word32
    -- ^ __Returns:__ Minimum font size, in pixels.
settingsGetMinimumFontSize :: a -> m Word32
settingsGetMinimumFontSize settings :: a
settings = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    Word32
result <- Ptr Settings -> IO Word32
webkit_settings_get_minimum_font_size Ptr Settings
settings'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/monospace-font-family/@ property.
settingsGetMonospaceFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m T.Text
    -- ^ __Returns:__ Default font family used to display content marked with monospace font.
settingsGetMonospaceFontFamily :: a -> m Text
settingsGetMonospaceFontFamily settings :: a
settings = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
result <- Ptr Settings -> IO CString
webkit_settings_get_monospace_font_family Ptr Settings
settings'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetMonospaceFontFamily" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/pictograph-font-family/@ property.
settingsGetPictographFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m T.Text
    -- ^ __Returns:__ The default font family used to display content marked with pictograph font.
settingsGetPictographFontFamily :: a -> m Text
settingsGetPictographFontFamily settings :: a
settings = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
result <- Ptr Settings -> IO CString
webkit_settings_get_pictograph_font_family Ptr Settings
settings'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetPictographFontFamily" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/print-backgrounds/@ property.
settingsGetPrintBackgrounds ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If background images should be printed or 'P.False' otherwise.
settingsGetPrintBackgrounds :: a -> m Bool
settingsGetPrintBackgrounds settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_print_backgrounds Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/sans-serif-font-family/@ property.
settingsGetSansSerifFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m T.Text
    -- ^ __Returns:__ The default font family used to display content marked with sans-serif font.
settingsGetSansSerifFontFamily :: a -> m Text
settingsGetSansSerifFontFamily settings :: a
settings = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
result <- Ptr Settings -> IO CString
webkit_settings_get_sans_serif_font_family Ptr Settings
settings'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetSansSerifFontFamily" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/serif-font-family/@ property.
settingsGetSerifFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m T.Text
    -- ^ __Returns:__ The default font family used to display content marked with serif font.
settingsGetSerifFontFamily :: a -> m Text
settingsGetSerifFontFamily settings :: a
settings = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
result <- Ptr Settings -> IO CString
webkit_settings_get_serif_font_family Ptr Settings
settings'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetSerifFontFamily" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/user-agent/@ property.
settingsGetUserAgent ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m T.Text
    -- ^ __Returns:__ The current value of the user-agent property.
settingsGetUserAgent :: a -> m Text
settingsGetUserAgent settings :: a
settings = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
result <- Ptr Settings -> IO CString
webkit_settings_get_user_agent Ptr Settings
settings'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsGetUserAgent" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/zoom-text-only/@ property.
settingsGetZoomTextOnly ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> m Bool
    -- ^ __Returns:__ 'P.True' If zoom level of the view should only affect the text
    --    or 'P.False' if all view contents should be scaled.
settingsGetZoomTextOnly :: a -> m Bool
settingsGetZoomTextOnly settings :: a
settings = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CInt
result <- Ptr Settings -> IO CInt
webkit_settings_get_zoom_text_only Ptr Settings
settings'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(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 t'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 t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@allowed@/: Value to be set
    -> m ()
settingsSetAllowFileAccessFromFileUrls :: a -> Bool -> m ()
settingsSetAllowFileAccessFromFileUrls settings :: a
settings allowed :: Bool
allowed = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let allowed' :: CInt
allowed' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
allowed
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_allow_file_access_from_file_urls Ptr Settings
settings' CInt
allowed'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/allow-modal-dialogs/@ property.
settingsSetAllowModalDialogs ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@allowed@/: Value to be set
    -> m ()
settingsSetAllowModalDialogs :: a -> Bool -> m ()
settingsSetAllowModalDialogs settings :: a
settings allowed :: Bool
allowed = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let allowed' :: CInt
allowed' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
allowed
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_allow_modal_dialogs Ptr Settings
settings' CInt
allowed'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'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 t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@allowed@/: Value to be set
    -> m ()
settingsSetAllowUniversalAccessFromFileUrls :: a -> Bool -> m ()
settingsSetAllowUniversalAccessFromFileUrls settings :: a
settings allowed :: Bool
allowed = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let allowed' :: CInt
allowed' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
allowed
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_allow_universal_access_from_file_urls Ptr Settings
settings' CInt
allowed'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/auto-load-images/@ property.
settingsSetAutoLoadImages ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetAutoLoadImages :: a -> Bool -> m ()
settingsSetAutoLoadImages settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_auto_load_images Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/cursive-font-family/@ property.
settingsSetCursiveFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> T.Text
    -- ^ /@cursiveFontFamily@/: the new default cursive font family
    -> m ()
settingsSetCursiveFontFamily :: a -> Text -> m ()
settingsSetCursiveFontFamily settings :: a
settings cursiveFontFamily :: Text
cursiveFontFamily = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
cursiveFontFamily' <- Text -> IO CString
textToCString Text
cursiveFontFamily
    Ptr Settings -> CString -> IO ()
webkit_settings_set_cursive_font_family Ptr Settings
settings' CString
cursiveFontFamily'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
cursiveFontFamily'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/default-charset/@ property.
settingsSetDefaultCharset ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> T.Text
    -- ^ /@defaultCharset@/: default charset to be set
    -> m ()
settingsSetDefaultCharset :: a -> Text -> m ()
settingsSetDefaultCharset settings :: a
settings defaultCharset :: Text
defaultCharset = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
defaultCharset' <- Text -> IO CString
textToCString Text
defaultCharset
    Ptr Settings -> CString -> IO ()
webkit_settings_set_default_charset Ptr Settings
settings' CString
defaultCharset'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
defaultCharset'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/default-font-family/@ property.
settingsSetDefaultFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> T.Text
    -- ^ /@defaultFontFamily@/: the new default font family
    -> m ()
settingsSetDefaultFontFamily :: a -> Text -> m ()
settingsSetDefaultFontFamily settings :: a
settings defaultFontFamily :: Text
defaultFontFamily = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
defaultFontFamily' <- Text -> IO CString
textToCString Text
defaultFontFamily
    Ptr Settings -> CString -> IO ()
webkit_settings_set_default_font_family Ptr Settings
settings' CString
defaultFontFamily'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
defaultFontFamily'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/default-font-size/@ property.
settingsSetDefaultFontSize ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Word32
    -- ^ /@fontSize@/: default font size to be set in pixels
    -> m ()
settingsSetDefaultFontSize :: a -> Word32 -> m ()
settingsSetDefaultFontSize settings :: a
settings fontSize :: Word32
fontSize = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    Ptr Settings -> Word32 -> IO ()
webkit_settings_set_default_font_size Ptr Settings
settings' Word32
fontSize
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/default-monospace-font-size/@ property.
settingsSetDefaultMonospaceFontSize ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Word32
    -- ^ /@fontSize@/: default monospace font size to be set in pixels
    -> m ()
settingsSetDefaultMonospaceFontSize :: a -> Word32 -> m ()
settingsSetDefaultMonospaceFontSize settings :: a
settings fontSize :: Word32
fontSize = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    Ptr Settings -> Word32 -> IO ()
webkit_settings_set_default_monospace_font_size Ptr Settings
settings' Word32
fontSize
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/draw-compositing-indicators/@ property.
settingsSetDrawCompositingIndicators ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetDrawCompositingIndicators :: a -> Bool -> m ()
settingsSetDrawCompositingIndicators settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_draw_compositing_indicators Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-accelerated-2d-canvas/@ property.
-- 
-- /Since: 2.2/
settingsSetEnableAccelerated2dCanvas ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableAccelerated2dCanvas :: a -> Bool -> m ()
settingsSetEnableAccelerated2dCanvas settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_accelerated_2d_canvas Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'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 t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: value to be set
    -> m ()
settingsSetEnableBackForwardNavigationGestures :: a -> Bool -> m ()
settingsSetEnableBackForwardNavigationGestures settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_back_forward_navigation_gestures Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-caret-browsing/@ property.
settingsSetEnableCaretBrowsing ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableCaretBrowsing :: a -> Bool -> m ()
settingsSetEnableCaretBrowsing settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_caret_browsing Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-developer-extras/@ property.
settingsSetEnableDeveloperExtras ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableDeveloperExtras :: a -> Bool -> m ()
settingsSetEnableDeveloperExtras settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_developer_extras Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-dns-prefetching/@ property.
settingsSetEnableDnsPrefetching ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableDnsPrefetching :: a -> Bool -> m ()
settingsSetEnableDnsPrefetching settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_dns_prefetching Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-encrypted-media/@ property.
-- 
-- /Since: 2.20/
settingsSetEnableEncryptedMedia ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableEncryptedMedia :: a -> Bool -> m ()
settingsSetEnableEncryptedMedia settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_encrypted_media Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-frame-flattening/@ property.
settingsSetEnableFrameFlattening ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableFrameFlattening :: a -> Bool -> m ()
settingsSetEnableFrameFlattening settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_frame_flattening Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-fullscreen/@ property.
settingsSetEnableFullscreen ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableFullscreen :: a -> Bool -> m ()
settingsSetEnableFullscreen settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_fullscreen Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-database/@ property.
settingsSetEnableHtml5Database ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableHtml5Database :: a -> Bool -> m ()
settingsSetEnableHtml5Database settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_html5_database Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-local-storage/@ property.
settingsSetEnableHtml5LocalStorage ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableHtml5LocalStorage :: a -> Bool -> m ()
settingsSetEnableHtml5LocalStorage settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_html5_local_storage Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-hyperlink-auditing/@ property.
settingsSetEnableHyperlinkAuditing ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableHyperlinkAuditing :: a -> Bool -> m ()
settingsSetEnableHyperlinkAuditing settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_hyperlink_auditing Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-java/@ property.
settingsSetEnableJava ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableJava :: a -> Bool -> m ()
settingsSetEnableJava settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_java Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript/@ property.
settingsSetEnableJavascript ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableJavascript :: a -> Bool -> m ()
settingsSetEnableJavascript settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_javascript Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript-markup/@ property.
-- 
-- /Since: 2.24/
settingsSetEnableJavascriptMarkup ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableJavascriptMarkup :: a -> Bool -> m ()
settingsSetEnableJavascriptMarkup settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_javascript_markup Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-media-capabilities/@ property.
-- 
-- /Since: 2.22/
settingsSetEnableMediaCapabilities ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableMediaCapabilities :: a -> Bool -> m ()
settingsSetEnableMediaCapabilities settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_media_capabilities Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-media-stream/@ property.
-- 
-- /Since: 2.4/
settingsSetEnableMediaStream ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableMediaStream :: a -> Bool -> m ()
settingsSetEnableMediaStream settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_media_stream Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-mediasource/@ property.
-- 
-- /Since: 2.4/
settingsSetEnableMediasource ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableMediasource :: a -> Bool -> m ()
settingsSetEnableMediasource settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_mediasource Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-mock-capture-devices/@ property.
-- 
-- /Since: 2.4/
settingsSetEnableMockCaptureDevices ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableMockCaptureDevices :: a -> Bool -> m ()
settingsSetEnableMockCaptureDevices settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_mock_capture_devices Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-offline-web-application-cache/@ property.
settingsSetEnableOfflineWebApplicationCache ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableOfflineWebApplicationCache :: a -> Bool -> m ()
settingsSetEnableOfflineWebApplicationCache settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_offline_web_application_cache Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-page-cache/@ property.
settingsSetEnablePageCache ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnablePageCache :: a -> Bool -> m ()
settingsSetEnablePageCache settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_page_cache Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-plugins/@ property.
settingsSetEnablePlugins ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnablePlugins :: a -> Bool -> m ()
settingsSetEnablePlugins settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_plugins Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.WebView.WebView':@/is-ephemeral/@ or t'GI.WebKit2.Objects.WebContext.WebContext':@/is-ephemeral/@ instead."] #-}
-- | Set the t'GI.WebKit2.Objects.Settings.Settings':@/enable-private-browsing/@ property.
settingsSetEnablePrivateBrowsing ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnablePrivateBrowsing :: a -> Bool -> m ()
settingsSetEnablePrivateBrowsing settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_private_browsing Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-resizable-text-areas/@ property.
settingsSetEnableResizableTextAreas ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableResizableTextAreas :: a -> Bool -> m ()
settingsSetEnableResizableTextAreas settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_resizable_text_areas Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-site-specific-quirks/@ property.
settingsSetEnableSiteSpecificQuirks ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableSiteSpecificQuirks :: a -> Bool -> m ()
settingsSetEnableSiteSpecificQuirks settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_site_specific_quirks Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-smooth-scrolling/@ property.
settingsSetEnableSmoothScrolling ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableSmoothScrolling :: a -> Bool -> m ()
settingsSetEnableSmoothScrolling settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_smooth_scrolling Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-spatial-navigation/@ property.
-- 
-- /Since: 2.2/
settingsSetEnableSpatialNavigation ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableSpatialNavigation :: a -> Bool -> m ()
settingsSetEnableSpatialNavigation settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_spatial_navigation Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-tabs-to-links/@ property.
settingsSetEnableTabsToLinks ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableTabsToLinks :: a -> Bool -> m ()
settingsSetEnableTabsToLinks settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_tabs_to_links Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-webaudio/@ property.
settingsSetEnableWebaudio ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableWebaudio :: a -> Bool -> m ()
settingsSetEnableWebaudio settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_webaudio Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-webgl/@ property.
settingsSetEnableWebgl ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableWebgl :: a -> Bool -> m ()
settingsSetEnableWebgl settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_webgl Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'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 t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableWriteConsoleMessagesToStdout :: a -> Bool -> m ()
settingsSetEnableWriteConsoleMessagesToStdout settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_write_console_messages_to_stdout Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/enable-xss-auditor/@ property.
settingsSetEnableXssAuditor ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetEnableXssAuditor :: a -> Bool -> m ()
settingsSetEnableXssAuditor settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_xss_auditor Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/fantasy-font-family/@ property.
settingsSetFantasyFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> T.Text
    -- ^ /@fantasyFontFamily@/: the new default fantasy font family
    -> m ()
settingsSetFantasyFontFamily :: a -> Text -> m ()
settingsSetFantasyFontFamily settings :: a
settings fantasyFontFamily :: Text
fantasyFontFamily = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
fantasyFontFamily' <- Text -> IO CString
textToCString Text
fantasyFontFamily
    Ptr Settings -> CString -> IO ()
webkit_settings_set_fantasy_font_family Ptr Settings
settings' CString
fantasyFontFamily'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
fantasyFontFamily'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/hardware-acceleration-policy/@ property.
-- 
-- /Since: 2.16/
settingsSetHardwareAccelerationPolicy ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> WebKit2.Enums.HardwareAccelerationPolicy
    -- ^ /@policy@/: a t'GI.WebKit2.Enums.HardwareAccelerationPolicy'
    -> m ()
settingsSetHardwareAccelerationPolicy :: a -> HardwareAccelerationPolicy -> m ()
settingsSetHardwareAccelerationPolicy settings :: a
settings policy :: HardwareAccelerationPolicy
policy = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let policy' :: CUInt
policy' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (HardwareAccelerationPolicy -> Int)
-> HardwareAccelerationPolicy
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. HardwareAccelerationPolicy -> Int
forall a. Enum a => a -> Int
fromEnum) HardwareAccelerationPolicy
policy
    Ptr Settings -> CUInt -> IO ()
webkit_settings_set_hardware_acceleration_policy Ptr Settings
settings' CUInt
policy'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-access-clipboard/@ property.
settingsSetJavascriptCanAccessClipboard ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetJavascriptCanAccessClipboard :: a -> Bool -> m ()
settingsSetJavascriptCanAccessClipboard settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_javascript_can_access_clipboard Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-open-windows-automatically/@ property.
settingsSetJavascriptCanOpenWindowsAutomatically ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetJavascriptCanOpenWindowsAutomatically :: a -> Bool -> m ()
settingsSetJavascriptCanOpenWindowsAutomatically settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_javascript_can_open_windows_automatically Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/load-icons-ignoring-image-load-setting/@ property.
settingsSetLoadIconsIgnoringImageLoadSetting ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetLoadIconsIgnoringImageLoadSetting :: a -> Bool -> m ()
settingsSetLoadIconsIgnoringImageLoadSetting settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_load_icons_ignoring_image_load_setting Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/media-playback-allows-inline/@ property.
settingsSetMediaPlaybackAllowsInline ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetMediaPlaybackAllowsInline :: a -> Bool -> m ()
settingsSetMediaPlaybackAllowsInline settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_media_playback_allows_inline Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/media-playback-requires-user-gesture/@ property.
settingsSetMediaPlaybackRequiresUserGesture ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@enabled@/: Value to be set
    -> m ()
settingsSetMediaPlaybackRequiresUserGesture :: a -> Bool -> m ()
settingsSetMediaPlaybackRequiresUserGesture settings :: a
settings enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_media_playback_requires_user_gesture Ptr Settings
settings' CInt
enabled'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/minimum-font-size/@ property.
settingsSetMinimumFontSize ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Word32
    -- ^ /@fontSize@/: minimum font size to be set in pixels
    -> m ()
settingsSetMinimumFontSize :: a -> Word32 -> m ()
settingsSetMinimumFontSize settings :: a
settings fontSize :: Word32
fontSize = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    Ptr Settings -> Word32 -> IO ()
webkit_settings_set_minimum_font_size Ptr Settings
settings' Word32
fontSize
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/monospace-font-family/@ property.
settingsSetMonospaceFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> T.Text
    -- ^ /@monospaceFontFamily@/: the new default monospace font family
    -> m ()
settingsSetMonospaceFontFamily :: a -> Text -> m ()
settingsSetMonospaceFontFamily settings :: a
settings monospaceFontFamily :: Text
monospaceFontFamily = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
monospaceFontFamily' <- Text -> IO CString
textToCString Text
monospaceFontFamily
    Ptr Settings -> CString -> IO ()
webkit_settings_set_monospace_font_family Ptr Settings
settings' CString
monospaceFontFamily'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
monospaceFontFamily'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/pictograph-font-family/@ property.
settingsSetPictographFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> T.Text
    -- ^ /@pictographFontFamily@/: the new default pictograph font family
    -> m ()
settingsSetPictographFontFamily :: a -> Text -> m ()
settingsSetPictographFontFamily settings :: a
settings pictographFontFamily :: Text
pictographFontFamily = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
pictographFontFamily' <- Text -> IO CString
textToCString Text
pictographFontFamily
    Ptr Settings -> CString -> IO ()
webkit_settings_set_pictograph_font_family Ptr Settings
settings' CString
pictographFontFamily'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
pictographFontFamily'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/print-backgrounds/@ property.
settingsSetPrintBackgrounds ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@printBackgrounds@/: Value to be set
    -> m ()
settingsSetPrintBackgrounds :: a -> Bool -> m ()
settingsSetPrintBackgrounds settings :: a
settings printBackgrounds :: Bool
printBackgrounds = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let printBackgrounds' :: CInt
printBackgrounds' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
printBackgrounds
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_print_backgrounds Ptr Settings
settings' CInt
printBackgrounds'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/sans-serif-font-family/@ property.
settingsSetSansSerifFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> T.Text
    -- ^ /@sansSerifFontFamily@/: the new default sans-serif font family
    -> m ()
settingsSetSansSerifFontFamily :: a -> Text -> m ()
settingsSetSansSerifFontFamily settings :: a
settings sansSerifFontFamily :: Text
sansSerifFontFamily = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
sansSerifFontFamily' <- Text -> IO CString
textToCString Text
sansSerifFontFamily
    Ptr Settings -> CString -> IO ()
webkit_settings_set_sans_serif_font_family Ptr Settings
settings' CString
sansSerifFontFamily'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
sansSerifFontFamily'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/serif-font-family/@ property.
settingsSetSerifFontFamily ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> T.Text
    -- ^ /@serifFontFamily@/: the new default serif font family
    -> m ()
settingsSetSerifFontFamily :: a -> Text -> m ()
settingsSetSerifFontFamily settings :: a
settings serifFontFamily :: Text
serifFontFamily = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
serifFontFamily' <- Text -> IO CString
textToCString Text
serifFontFamily
    Ptr Settings -> CString -> IO ()
webkit_settings_set_serif_font_family Ptr Settings
settings' CString
serifFontFamily'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
serifFontFamily'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/user-agent/@ property.
settingsSetUserAgent ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Maybe (T.Text)
    -- ^ /@userAgent@/: The new custom user agent string or 'P.Nothing' to use the default user agent
    -> m ()
settingsSetUserAgent :: a -> Maybe Text -> m ()
settingsSetUserAgent settings :: a
settings userAgent :: Maybe Text
userAgent = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
maybeUserAgent <- case Maybe Text
userAgent of
        Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
        Just jUserAgent :: Text
jUserAgent -> do
            CString
jUserAgent' <- Text -> IO CString
textToCString Text
jUserAgent
            CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jUserAgent'
    Ptr Settings -> CString -> IO ()
webkit_settings_set_user_agent Ptr Settings
settings' CString
maybeUserAgent
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeUserAgent
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'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 t'GI.WebKit2.Objects.Settings.Settings'
    -> Maybe (T.Text)
    -- ^ /@applicationName@/: The application name used for the user agent or 'P.Nothing' to use the default user agent.
    -> Maybe (T.Text)
    -- ^ /@applicationVersion@/: The application version for the user agent or 'P.Nothing' to user the default version.
    -> m ()
settingsSetUserAgentWithApplicationDetails :: a -> Maybe Text -> Maybe Text -> m ()
settingsSetUserAgentWithApplicationDetails settings :: a
settings applicationName :: Maybe Text
applicationName applicationVersion :: Maybe Text
applicationVersion = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    CString
maybeApplicationName <- case Maybe Text
applicationName of
        Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
        Just jApplicationName :: Text
jApplicationName -> do
            CString
jApplicationName' <- Text -> IO CString
textToCString Text
jApplicationName
            CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jApplicationName'
    CString
maybeApplicationVersion <- case Maybe Text
applicationVersion of
        Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
        Just jApplicationVersion :: Text
jApplicationVersion -> do
            CString
jApplicationVersion' <- Text -> IO CString
textToCString Text
jApplicationVersion
            CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jApplicationVersion'
    Ptr Settings -> CString -> CString -> IO ()
webkit_settings_set_user_agent_with_application_details Ptr Settings
settings' CString
maybeApplicationName CString
maybeApplicationVersion
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeApplicationName
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeApplicationVersion
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'GI.WebKit2.Objects.Settings.Settings':@/zoom-text-only/@ property.
settingsSetZoomTextOnly ::
    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
    a
    -- ^ /@settings@/: a t'GI.WebKit2.Objects.Settings.Settings'
    -> Bool
    -- ^ /@zoomTextOnly@/: Value to be set
    -> m ()
settingsSetZoomTextOnly :: a -> Bool -> m ()
settingsSetZoomTextOnly settings :: a
settings zoomTextOnly :: Bool
zoomTextOnly = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
    let zoomTextOnly' :: CInt
zoomTextOnly' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
zoomTextOnly
    Ptr Settings -> CInt -> IO ()
webkit_settings_set_zoom_text_only Ptr Settings
settings' CInt
zoomTextOnly'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(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 t'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 :: Word32 -> m Word32
settingsFontSizeToPixels points :: Word32
points = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Word32
result <- Word32 -> IO Word32
webkit_settings_font_size_to_pixels Word32
points
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result

#if defined(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 t'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 :: Word32 -> m Word32
settingsFontSizeToPoints pixels :: Word32
pixels = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Word32
result <- Word32 -> IO Word32
webkit_settings_font_size_to_points Word32
pixels
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result

#if defined(ENABLE_OVERLOADING)
#endif