#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.Settings
(
Settings(..) ,
IsSettings ,
toSettings ,
noSettings ,
settingsFontSizeToPixels ,
settingsFontSizeToPoints ,
#if ENABLE_OVERLOADING
SettingsGetAllowFileAccessFromFileUrlsMethodInfo,
#endif
settingsGetAllowFileAccessFromFileUrls ,
#if ENABLE_OVERLOADING
SettingsGetAllowModalDialogsMethodInfo ,
#endif
settingsGetAllowModalDialogs ,
#if ENABLE_OVERLOADING
SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo,
#endif
settingsGetAllowUniversalAccessFromFileUrls,
#if ENABLE_OVERLOADING
SettingsGetAutoLoadImagesMethodInfo ,
#endif
settingsGetAutoLoadImages ,
#if ENABLE_OVERLOADING
SettingsGetCursiveFontFamilyMethodInfo ,
#endif
settingsGetCursiveFontFamily ,
#if ENABLE_OVERLOADING
SettingsGetDefaultCharsetMethodInfo ,
#endif
settingsGetDefaultCharset ,
#if ENABLE_OVERLOADING
SettingsGetDefaultFontFamilyMethodInfo ,
#endif
settingsGetDefaultFontFamily ,
#if ENABLE_OVERLOADING
SettingsGetDefaultFontSizeMethodInfo ,
#endif
settingsGetDefaultFontSize ,
#if ENABLE_OVERLOADING
SettingsGetDefaultMonospaceFontSizeMethodInfo,
#endif
settingsGetDefaultMonospaceFontSize ,
#if ENABLE_OVERLOADING
SettingsGetDrawCompositingIndicatorsMethodInfo,
#endif
settingsGetDrawCompositingIndicators ,
#if ENABLE_OVERLOADING
SettingsGetEnableAccelerated2dCanvasMethodInfo,
#endif
settingsGetEnableAccelerated2dCanvas ,
#if ENABLE_OVERLOADING
SettingsGetEnableBackForwardNavigationGesturesMethodInfo,
#endif
settingsGetEnableBackForwardNavigationGestures,
#if ENABLE_OVERLOADING
SettingsGetEnableCaretBrowsingMethodInfo,
#endif
settingsGetEnableCaretBrowsing ,
#if ENABLE_OVERLOADING
SettingsGetEnableDeveloperExtrasMethodInfo,
#endif
settingsGetEnableDeveloperExtras ,
#if ENABLE_OVERLOADING
SettingsGetEnableDnsPrefetchingMethodInfo,
#endif
settingsGetEnableDnsPrefetching ,
#if ENABLE_OVERLOADING
SettingsGetEnableEncryptedMediaMethodInfo,
#endif
settingsGetEnableEncryptedMedia ,
#if ENABLE_OVERLOADING
SettingsGetEnableFrameFlatteningMethodInfo,
#endif
settingsGetEnableFrameFlattening ,
#if ENABLE_OVERLOADING
SettingsGetEnableFullscreenMethodInfo ,
#endif
settingsGetEnableFullscreen ,
#if ENABLE_OVERLOADING
SettingsGetEnableHtml5DatabaseMethodInfo,
#endif
settingsGetEnableHtml5Database ,
#if ENABLE_OVERLOADING
SettingsGetEnableHtml5LocalStorageMethodInfo,
#endif
settingsGetEnableHtml5LocalStorage ,
#if ENABLE_OVERLOADING
SettingsGetEnableHyperlinkAuditingMethodInfo,
#endif
settingsGetEnableHyperlinkAuditing ,
#if ENABLE_OVERLOADING
SettingsGetEnableJavaMethodInfo ,
#endif
settingsGetEnableJava ,
#if ENABLE_OVERLOADING
SettingsGetEnableJavascriptMethodInfo ,
#endif
settingsGetEnableJavascript ,
#if ENABLE_OVERLOADING
SettingsGetEnableJavascriptMarkupMethodInfo,
#endif
settingsGetEnableJavascriptMarkup ,
#if ENABLE_OVERLOADING
SettingsGetEnableMediaCapabilitiesMethodInfo,
#endif
settingsGetEnableMediaCapabilities ,
#if ENABLE_OVERLOADING
SettingsGetEnableMediaStreamMethodInfo ,
#endif
settingsGetEnableMediaStream ,
#if ENABLE_OVERLOADING
SettingsGetEnableMediasourceMethodInfo ,
#endif
settingsGetEnableMediasource ,
#if ENABLE_OVERLOADING
SettingsGetEnableMockCaptureDevicesMethodInfo,
#endif
settingsGetEnableMockCaptureDevices ,
#if ENABLE_OVERLOADING
SettingsGetEnableOfflineWebApplicationCacheMethodInfo,
#endif
settingsGetEnableOfflineWebApplicationCache,
#if ENABLE_OVERLOADING
SettingsGetEnablePageCacheMethodInfo ,
#endif
settingsGetEnablePageCache ,
#if ENABLE_OVERLOADING
SettingsGetEnablePluginsMethodInfo ,
#endif
settingsGetEnablePlugins ,
#if ENABLE_OVERLOADING
SettingsGetEnablePrivateBrowsingMethodInfo,
#endif
settingsGetEnablePrivateBrowsing ,
#if ENABLE_OVERLOADING
SettingsGetEnableResizableTextAreasMethodInfo,
#endif
settingsGetEnableResizableTextAreas ,
#if ENABLE_OVERLOADING
SettingsGetEnableSiteSpecificQuirksMethodInfo,
#endif
settingsGetEnableSiteSpecificQuirks ,
#if ENABLE_OVERLOADING
SettingsGetEnableSmoothScrollingMethodInfo,
#endif
settingsGetEnableSmoothScrolling ,
#if ENABLE_OVERLOADING
SettingsGetEnableSpatialNavigationMethodInfo,
#endif
settingsGetEnableSpatialNavigation ,
#if ENABLE_OVERLOADING
SettingsGetEnableTabsToLinksMethodInfo ,
#endif
settingsGetEnableTabsToLinks ,
#if ENABLE_OVERLOADING
SettingsGetEnableWebaudioMethodInfo ,
#endif
settingsGetEnableWebaudio ,
#if ENABLE_OVERLOADING
SettingsGetEnableWebglMethodInfo ,
#endif
settingsGetEnableWebgl ,
#if ENABLE_OVERLOADING
SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo,
#endif
settingsGetEnableWriteConsoleMessagesToStdout,
#if ENABLE_OVERLOADING
SettingsGetEnableXssAuditorMethodInfo ,
#endif
settingsGetEnableXssAuditor ,
#if ENABLE_OVERLOADING
SettingsGetFantasyFontFamilyMethodInfo ,
#endif
settingsGetFantasyFontFamily ,
#if ENABLE_OVERLOADING
SettingsGetHardwareAccelerationPolicyMethodInfo,
#endif
settingsGetHardwareAccelerationPolicy ,
#if ENABLE_OVERLOADING
SettingsGetJavascriptCanAccessClipboardMethodInfo,
#endif
settingsGetJavascriptCanAccessClipboard ,
#if ENABLE_OVERLOADING
SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo,
#endif
settingsGetJavascriptCanOpenWindowsAutomatically,
#if ENABLE_OVERLOADING
SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo,
#endif
settingsGetLoadIconsIgnoringImageLoadSetting,
#if ENABLE_OVERLOADING
SettingsGetMediaPlaybackAllowsInlineMethodInfo,
#endif
settingsGetMediaPlaybackAllowsInline ,
#if ENABLE_OVERLOADING
SettingsGetMediaPlaybackRequiresUserGestureMethodInfo,
#endif
settingsGetMediaPlaybackRequiresUserGesture,
#if ENABLE_OVERLOADING
SettingsGetMinimumFontSizeMethodInfo ,
#endif
settingsGetMinimumFontSize ,
#if ENABLE_OVERLOADING
SettingsGetMonospaceFontFamilyMethodInfo,
#endif
settingsGetMonospaceFontFamily ,
#if ENABLE_OVERLOADING
SettingsGetPictographFontFamilyMethodInfo,
#endif
settingsGetPictographFontFamily ,
#if ENABLE_OVERLOADING
SettingsGetPrintBackgroundsMethodInfo ,
#endif
settingsGetPrintBackgrounds ,
#if ENABLE_OVERLOADING
SettingsGetSansSerifFontFamilyMethodInfo,
#endif
settingsGetSansSerifFontFamily ,
#if ENABLE_OVERLOADING
SettingsGetSerifFontFamilyMethodInfo ,
#endif
settingsGetSerifFontFamily ,
#if ENABLE_OVERLOADING
SettingsGetUserAgentMethodInfo ,
#endif
settingsGetUserAgent ,
#if ENABLE_OVERLOADING
SettingsGetZoomTextOnlyMethodInfo ,
#endif
settingsGetZoomTextOnly ,
settingsNew ,
#if ENABLE_OVERLOADING
SettingsSetAllowFileAccessFromFileUrlsMethodInfo,
#endif
settingsSetAllowFileAccessFromFileUrls ,
#if ENABLE_OVERLOADING
SettingsSetAllowModalDialogsMethodInfo ,
#endif
settingsSetAllowModalDialogs ,
#if ENABLE_OVERLOADING
SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo,
#endif
settingsSetAllowUniversalAccessFromFileUrls,
#if ENABLE_OVERLOADING
SettingsSetAutoLoadImagesMethodInfo ,
#endif
settingsSetAutoLoadImages ,
#if ENABLE_OVERLOADING
SettingsSetCursiveFontFamilyMethodInfo ,
#endif
settingsSetCursiveFontFamily ,
#if ENABLE_OVERLOADING
SettingsSetDefaultCharsetMethodInfo ,
#endif
settingsSetDefaultCharset ,
#if ENABLE_OVERLOADING
SettingsSetDefaultFontFamilyMethodInfo ,
#endif
settingsSetDefaultFontFamily ,
#if ENABLE_OVERLOADING
SettingsSetDefaultFontSizeMethodInfo ,
#endif
settingsSetDefaultFontSize ,
#if ENABLE_OVERLOADING
SettingsSetDefaultMonospaceFontSizeMethodInfo,
#endif
settingsSetDefaultMonospaceFontSize ,
#if ENABLE_OVERLOADING
SettingsSetDrawCompositingIndicatorsMethodInfo,
#endif
settingsSetDrawCompositingIndicators ,
#if ENABLE_OVERLOADING
SettingsSetEnableAccelerated2dCanvasMethodInfo,
#endif
settingsSetEnableAccelerated2dCanvas ,
#if ENABLE_OVERLOADING
SettingsSetEnableBackForwardNavigationGesturesMethodInfo,
#endif
settingsSetEnableBackForwardNavigationGestures,
#if ENABLE_OVERLOADING
SettingsSetEnableCaretBrowsingMethodInfo,
#endif
settingsSetEnableCaretBrowsing ,
#if ENABLE_OVERLOADING
SettingsSetEnableDeveloperExtrasMethodInfo,
#endif
settingsSetEnableDeveloperExtras ,
#if ENABLE_OVERLOADING
SettingsSetEnableDnsPrefetchingMethodInfo,
#endif
settingsSetEnableDnsPrefetching ,
#if ENABLE_OVERLOADING
SettingsSetEnableEncryptedMediaMethodInfo,
#endif
settingsSetEnableEncryptedMedia ,
#if ENABLE_OVERLOADING
SettingsSetEnableFrameFlatteningMethodInfo,
#endif
settingsSetEnableFrameFlattening ,
#if ENABLE_OVERLOADING
SettingsSetEnableFullscreenMethodInfo ,
#endif
settingsSetEnableFullscreen ,
#if ENABLE_OVERLOADING
SettingsSetEnableHtml5DatabaseMethodInfo,
#endif
settingsSetEnableHtml5Database ,
#if ENABLE_OVERLOADING
SettingsSetEnableHtml5LocalStorageMethodInfo,
#endif
settingsSetEnableHtml5LocalStorage ,
#if ENABLE_OVERLOADING
SettingsSetEnableHyperlinkAuditingMethodInfo,
#endif
settingsSetEnableHyperlinkAuditing ,
#if ENABLE_OVERLOADING
SettingsSetEnableJavaMethodInfo ,
#endif
settingsSetEnableJava ,
#if ENABLE_OVERLOADING
SettingsSetEnableJavascriptMethodInfo ,
#endif
settingsSetEnableJavascript ,
#if ENABLE_OVERLOADING
SettingsSetEnableJavascriptMarkupMethodInfo,
#endif
settingsSetEnableJavascriptMarkup ,
#if ENABLE_OVERLOADING
SettingsSetEnableMediaCapabilitiesMethodInfo,
#endif
settingsSetEnableMediaCapabilities ,
#if ENABLE_OVERLOADING
SettingsSetEnableMediaStreamMethodInfo ,
#endif
settingsSetEnableMediaStream ,
#if ENABLE_OVERLOADING
SettingsSetEnableMediasourceMethodInfo ,
#endif
settingsSetEnableMediasource ,
#if ENABLE_OVERLOADING
SettingsSetEnableMockCaptureDevicesMethodInfo,
#endif
settingsSetEnableMockCaptureDevices ,
#if ENABLE_OVERLOADING
SettingsSetEnableOfflineWebApplicationCacheMethodInfo,
#endif
settingsSetEnableOfflineWebApplicationCache,
#if ENABLE_OVERLOADING
SettingsSetEnablePageCacheMethodInfo ,
#endif
settingsSetEnablePageCache ,
#if ENABLE_OVERLOADING
SettingsSetEnablePluginsMethodInfo ,
#endif
settingsSetEnablePlugins ,
#if ENABLE_OVERLOADING
SettingsSetEnablePrivateBrowsingMethodInfo,
#endif
settingsSetEnablePrivateBrowsing ,
#if ENABLE_OVERLOADING
SettingsSetEnableResizableTextAreasMethodInfo,
#endif
settingsSetEnableResizableTextAreas ,
#if ENABLE_OVERLOADING
SettingsSetEnableSiteSpecificQuirksMethodInfo,
#endif
settingsSetEnableSiteSpecificQuirks ,
#if ENABLE_OVERLOADING
SettingsSetEnableSmoothScrollingMethodInfo,
#endif
settingsSetEnableSmoothScrolling ,
#if ENABLE_OVERLOADING
SettingsSetEnableSpatialNavigationMethodInfo,
#endif
settingsSetEnableSpatialNavigation ,
#if ENABLE_OVERLOADING
SettingsSetEnableTabsToLinksMethodInfo ,
#endif
settingsSetEnableTabsToLinks ,
#if ENABLE_OVERLOADING
SettingsSetEnableWebaudioMethodInfo ,
#endif
settingsSetEnableWebaudio ,
#if ENABLE_OVERLOADING
SettingsSetEnableWebglMethodInfo ,
#endif
settingsSetEnableWebgl ,
#if ENABLE_OVERLOADING
SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo,
#endif
settingsSetEnableWriteConsoleMessagesToStdout,
#if ENABLE_OVERLOADING
SettingsSetEnableXssAuditorMethodInfo ,
#endif
settingsSetEnableXssAuditor ,
#if ENABLE_OVERLOADING
SettingsSetFantasyFontFamilyMethodInfo ,
#endif
settingsSetFantasyFontFamily ,
#if ENABLE_OVERLOADING
SettingsSetHardwareAccelerationPolicyMethodInfo,
#endif
settingsSetHardwareAccelerationPolicy ,
#if ENABLE_OVERLOADING
SettingsSetJavascriptCanAccessClipboardMethodInfo,
#endif
settingsSetJavascriptCanAccessClipboard ,
#if ENABLE_OVERLOADING
SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo,
#endif
settingsSetJavascriptCanOpenWindowsAutomatically,
#if ENABLE_OVERLOADING
SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo,
#endif
settingsSetLoadIconsIgnoringImageLoadSetting,
#if ENABLE_OVERLOADING
SettingsSetMediaPlaybackAllowsInlineMethodInfo,
#endif
settingsSetMediaPlaybackAllowsInline ,
#if ENABLE_OVERLOADING
SettingsSetMediaPlaybackRequiresUserGestureMethodInfo,
#endif
settingsSetMediaPlaybackRequiresUserGesture,
#if ENABLE_OVERLOADING
SettingsSetMinimumFontSizeMethodInfo ,
#endif
settingsSetMinimumFontSize ,
#if ENABLE_OVERLOADING
SettingsSetMonospaceFontFamilyMethodInfo,
#endif
settingsSetMonospaceFontFamily ,
#if ENABLE_OVERLOADING
SettingsSetPictographFontFamilyMethodInfo,
#endif
settingsSetPictographFontFamily ,
#if ENABLE_OVERLOADING
SettingsSetPrintBackgroundsMethodInfo ,
#endif
settingsSetPrintBackgrounds ,
#if ENABLE_OVERLOADING
SettingsSetSansSerifFontFamilyMethodInfo,
#endif
settingsSetSansSerifFontFamily ,
#if ENABLE_OVERLOADING
SettingsSetSerifFontFamilyMethodInfo ,
#endif
settingsSetSerifFontFamily ,
#if ENABLE_OVERLOADING
SettingsSetUserAgentMethodInfo ,
#endif
settingsSetUserAgent ,
#if ENABLE_OVERLOADING
SettingsSetUserAgentWithApplicationDetailsMethodInfo,
#endif
settingsSetUserAgentWithApplicationDetails,
#if ENABLE_OVERLOADING
SettingsSetZoomTextOnlyMethodInfo ,
#endif
settingsSetZoomTextOnly ,
#if ENABLE_OVERLOADING
SettingsAllowFileAccessFromFileUrlsPropertyInfo,
#endif
constructSettingsAllowFileAccessFromFileUrls,
getSettingsAllowFileAccessFromFileUrls ,
setSettingsAllowFileAccessFromFileUrls ,
#if ENABLE_OVERLOADING
settingsAllowFileAccessFromFileUrls ,
#endif
#if ENABLE_OVERLOADING
SettingsAllowModalDialogsPropertyInfo ,
#endif
constructSettingsAllowModalDialogs ,
getSettingsAllowModalDialogs ,
setSettingsAllowModalDialogs ,
#if ENABLE_OVERLOADING
settingsAllowModalDialogs ,
#endif
#if ENABLE_OVERLOADING
SettingsAllowUniversalAccessFromFileUrlsPropertyInfo,
#endif
constructSettingsAllowUniversalAccessFromFileUrls,
getSettingsAllowUniversalAccessFromFileUrls,
setSettingsAllowUniversalAccessFromFileUrls,
#if ENABLE_OVERLOADING
settingsAllowUniversalAccessFromFileUrls,
#endif
#if ENABLE_OVERLOADING
SettingsAutoLoadImagesPropertyInfo ,
#endif
constructSettingsAutoLoadImages ,
getSettingsAutoLoadImages ,
setSettingsAutoLoadImages ,
#if ENABLE_OVERLOADING
settingsAutoLoadImages ,
#endif
#if ENABLE_OVERLOADING
SettingsCursiveFontFamilyPropertyInfo ,
#endif
constructSettingsCursiveFontFamily ,
getSettingsCursiveFontFamily ,
setSettingsCursiveFontFamily ,
#if ENABLE_OVERLOADING
settingsCursiveFontFamily ,
#endif
#if ENABLE_OVERLOADING
SettingsDefaultCharsetPropertyInfo ,
#endif
constructSettingsDefaultCharset ,
getSettingsDefaultCharset ,
setSettingsDefaultCharset ,
#if ENABLE_OVERLOADING
settingsDefaultCharset ,
#endif
#if ENABLE_OVERLOADING
SettingsDefaultFontFamilyPropertyInfo ,
#endif
constructSettingsDefaultFontFamily ,
getSettingsDefaultFontFamily ,
setSettingsDefaultFontFamily ,
#if ENABLE_OVERLOADING
settingsDefaultFontFamily ,
#endif
#if ENABLE_OVERLOADING
SettingsDefaultFontSizePropertyInfo ,
#endif
constructSettingsDefaultFontSize ,
getSettingsDefaultFontSize ,
setSettingsDefaultFontSize ,
#if ENABLE_OVERLOADING
settingsDefaultFontSize ,
#endif
#if ENABLE_OVERLOADING
SettingsDefaultMonospaceFontSizePropertyInfo,
#endif
constructSettingsDefaultMonospaceFontSize,
getSettingsDefaultMonospaceFontSize ,
setSettingsDefaultMonospaceFontSize ,
#if ENABLE_OVERLOADING
settingsDefaultMonospaceFontSize ,
#endif
#if ENABLE_OVERLOADING
SettingsDrawCompositingIndicatorsPropertyInfo,
#endif
constructSettingsDrawCompositingIndicators,
getSettingsDrawCompositingIndicators ,
setSettingsDrawCompositingIndicators ,
#if ENABLE_OVERLOADING
settingsDrawCompositingIndicators ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableAccelerated2dCanvasPropertyInfo,
#endif
constructSettingsEnableAccelerated2dCanvas,
getSettingsEnableAccelerated2dCanvas ,
setSettingsEnableAccelerated2dCanvas ,
#if ENABLE_OVERLOADING
settingsEnableAccelerated2dCanvas ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableBackForwardNavigationGesturesPropertyInfo,
#endif
constructSettingsEnableBackForwardNavigationGestures,
getSettingsEnableBackForwardNavigationGestures,
setSettingsEnableBackForwardNavigationGestures,
#if ENABLE_OVERLOADING
settingsEnableBackForwardNavigationGestures,
#endif
#if ENABLE_OVERLOADING
SettingsEnableCaretBrowsingPropertyInfo ,
#endif
constructSettingsEnableCaretBrowsing ,
getSettingsEnableCaretBrowsing ,
setSettingsEnableCaretBrowsing ,
#if ENABLE_OVERLOADING
settingsEnableCaretBrowsing ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableDeveloperExtrasPropertyInfo,
#endif
constructSettingsEnableDeveloperExtras ,
getSettingsEnableDeveloperExtras ,
setSettingsEnableDeveloperExtras ,
#if ENABLE_OVERLOADING
settingsEnableDeveloperExtras ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableDnsPrefetchingPropertyInfo,
#endif
constructSettingsEnableDnsPrefetching ,
getSettingsEnableDnsPrefetching ,
setSettingsEnableDnsPrefetching ,
#if ENABLE_OVERLOADING
settingsEnableDnsPrefetching ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableEncryptedMediaPropertyInfo,
#endif
constructSettingsEnableEncryptedMedia ,
getSettingsEnableEncryptedMedia ,
setSettingsEnableEncryptedMedia ,
#if ENABLE_OVERLOADING
settingsEnableEncryptedMedia ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableFrameFlatteningPropertyInfo,
#endif
constructSettingsEnableFrameFlattening ,
getSettingsEnableFrameFlattening ,
setSettingsEnableFrameFlattening ,
#if ENABLE_OVERLOADING
settingsEnableFrameFlattening ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableFullscreenPropertyInfo ,
#endif
constructSettingsEnableFullscreen ,
getSettingsEnableFullscreen ,
setSettingsEnableFullscreen ,
#if ENABLE_OVERLOADING
settingsEnableFullscreen ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableHtml5DatabasePropertyInfo ,
#endif
constructSettingsEnableHtml5Database ,
getSettingsEnableHtml5Database ,
setSettingsEnableHtml5Database ,
#if ENABLE_OVERLOADING
settingsEnableHtml5Database ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableHtml5LocalStoragePropertyInfo,
#endif
constructSettingsEnableHtml5LocalStorage,
getSettingsEnableHtml5LocalStorage ,
setSettingsEnableHtml5LocalStorage ,
#if ENABLE_OVERLOADING
settingsEnableHtml5LocalStorage ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableHyperlinkAuditingPropertyInfo,
#endif
constructSettingsEnableHyperlinkAuditing,
getSettingsEnableHyperlinkAuditing ,
setSettingsEnableHyperlinkAuditing ,
#if ENABLE_OVERLOADING
settingsEnableHyperlinkAuditing ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableJavaPropertyInfo ,
#endif
constructSettingsEnableJava ,
getSettingsEnableJava ,
setSettingsEnableJava ,
#if ENABLE_OVERLOADING
settingsEnableJava ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableJavascriptPropertyInfo ,
#endif
constructSettingsEnableJavascript ,
getSettingsEnableJavascript ,
setSettingsEnableJavascript ,
#if ENABLE_OVERLOADING
settingsEnableJavascript ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableJavascriptMarkupPropertyInfo,
#endif
constructSettingsEnableJavascriptMarkup ,
getSettingsEnableJavascriptMarkup ,
setSettingsEnableJavascriptMarkup ,
#if ENABLE_OVERLOADING
settingsEnableJavascriptMarkup ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableMediaCapabilitiesPropertyInfo,
#endif
constructSettingsEnableMediaCapabilities,
getSettingsEnableMediaCapabilities ,
setSettingsEnableMediaCapabilities ,
#if ENABLE_OVERLOADING
settingsEnableMediaCapabilities ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableMediaStreamPropertyInfo ,
#endif
constructSettingsEnableMediaStream ,
getSettingsEnableMediaStream ,
setSettingsEnableMediaStream ,
#if ENABLE_OVERLOADING
settingsEnableMediaStream ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableMediasourcePropertyInfo ,
#endif
constructSettingsEnableMediasource ,
getSettingsEnableMediasource ,
setSettingsEnableMediasource ,
#if ENABLE_OVERLOADING
settingsEnableMediasource ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableMockCaptureDevicesPropertyInfo,
#endif
constructSettingsEnableMockCaptureDevices,
getSettingsEnableMockCaptureDevices ,
setSettingsEnableMockCaptureDevices ,
#if ENABLE_OVERLOADING
settingsEnableMockCaptureDevices ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableOfflineWebApplicationCachePropertyInfo,
#endif
constructSettingsEnableOfflineWebApplicationCache,
getSettingsEnableOfflineWebApplicationCache,
setSettingsEnableOfflineWebApplicationCache,
#if ENABLE_OVERLOADING
settingsEnableOfflineWebApplicationCache,
#endif
#if ENABLE_OVERLOADING
SettingsEnablePageCachePropertyInfo ,
#endif
constructSettingsEnablePageCache ,
getSettingsEnablePageCache ,
setSettingsEnablePageCache ,
#if ENABLE_OVERLOADING
settingsEnablePageCache ,
#endif
#if ENABLE_OVERLOADING
SettingsEnablePluginsPropertyInfo ,
#endif
constructSettingsEnablePlugins ,
getSettingsEnablePlugins ,
setSettingsEnablePlugins ,
#if ENABLE_OVERLOADING
settingsEnablePlugins ,
#endif
#if ENABLE_OVERLOADING
SettingsEnablePrivateBrowsingPropertyInfo,
#endif
constructSettingsEnablePrivateBrowsing ,
getSettingsEnablePrivateBrowsing ,
setSettingsEnablePrivateBrowsing ,
#if ENABLE_OVERLOADING
settingsEnablePrivateBrowsing ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableResizableTextAreasPropertyInfo,
#endif
constructSettingsEnableResizableTextAreas,
getSettingsEnableResizableTextAreas ,
setSettingsEnableResizableTextAreas ,
#if ENABLE_OVERLOADING
settingsEnableResizableTextAreas ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableSiteSpecificQuirksPropertyInfo,
#endif
constructSettingsEnableSiteSpecificQuirks,
getSettingsEnableSiteSpecificQuirks ,
setSettingsEnableSiteSpecificQuirks ,
#if ENABLE_OVERLOADING
settingsEnableSiteSpecificQuirks ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableSmoothScrollingPropertyInfo,
#endif
constructSettingsEnableSmoothScrolling ,
getSettingsEnableSmoothScrolling ,
setSettingsEnableSmoothScrolling ,
#if ENABLE_OVERLOADING
settingsEnableSmoothScrolling ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableSpatialNavigationPropertyInfo,
#endif
constructSettingsEnableSpatialNavigation,
getSettingsEnableSpatialNavigation ,
setSettingsEnableSpatialNavigation ,
#if ENABLE_OVERLOADING
settingsEnableSpatialNavigation ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableTabsToLinksPropertyInfo ,
#endif
constructSettingsEnableTabsToLinks ,
getSettingsEnableTabsToLinks ,
setSettingsEnableTabsToLinks ,
#if ENABLE_OVERLOADING
settingsEnableTabsToLinks ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableWebaudioPropertyInfo ,
#endif
constructSettingsEnableWebaudio ,
getSettingsEnableWebaudio ,
setSettingsEnableWebaudio ,
#if ENABLE_OVERLOADING
settingsEnableWebaudio ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableWebglPropertyInfo ,
#endif
constructSettingsEnableWebgl ,
getSettingsEnableWebgl ,
setSettingsEnableWebgl ,
#if ENABLE_OVERLOADING
settingsEnableWebgl ,
#endif
#if ENABLE_OVERLOADING
SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo,
#endif
constructSettingsEnableWriteConsoleMessagesToStdout,
getSettingsEnableWriteConsoleMessagesToStdout,
setSettingsEnableWriteConsoleMessagesToStdout,
#if ENABLE_OVERLOADING
settingsEnableWriteConsoleMessagesToStdout,
#endif
#if ENABLE_OVERLOADING
SettingsEnableXssAuditorPropertyInfo ,
#endif
constructSettingsEnableXssAuditor ,
getSettingsEnableXssAuditor ,
setSettingsEnableXssAuditor ,
#if ENABLE_OVERLOADING
settingsEnableXssAuditor ,
#endif
#if ENABLE_OVERLOADING
SettingsFantasyFontFamilyPropertyInfo ,
#endif
constructSettingsFantasyFontFamily ,
getSettingsFantasyFontFamily ,
setSettingsFantasyFontFamily ,
#if ENABLE_OVERLOADING
settingsFantasyFontFamily ,
#endif
#if ENABLE_OVERLOADING
SettingsHardwareAccelerationPolicyPropertyInfo,
#endif
constructSettingsHardwareAccelerationPolicy,
getSettingsHardwareAccelerationPolicy ,
setSettingsHardwareAccelerationPolicy ,
#if ENABLE_OVERLOADING
settingsHardwareAccelerationPolicy ,
#endif
#if ENABLE_OVERLOADING
SettingsJavascriptCanAccessClipboardPropertyInfo,
#endif
constructSettingsJavascriptCanAccessClipboard,
getSettingsJavascriptCanAccessClipboard ,
setSettingsJavascriptCanAccessClipboard ,
#if ENABLE_OVERLOADING
settingsJavascriptCanAccessClipboard ,
#endif
#if ENABLE_OVERLOADING
SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo,
#endif
constructSettingsJavascriptCanOpenWindowsAutomatically,
getSettingsJavascriptCanOpenWindowsAutomatically,
setSettingsJavascriptCanOpenWindowsAutomatically,
#if ENABLE_OVERLOADING
settingsJavascriptCanOpenWindowsAutomatically,
#endif
#if ENABLE_OVERLOADING
SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo,
#endif
constructSettingsLoadIconsIgnoringImageLoadSetting,
getSettingsLoadIconsIgnoringImageLoadSetting,
setSettingsLoadIconsIgnoringImageLoadSetting,
#if ENABLE_OVERLOADING
settingsLoadIconsIgnoringImageLoadSetting,
#endif
#if ENABLE_OVERLOADING
SettingsMediaPlaybackAllowsInlinePropertyInfo,
#endif
constructSettingsMediaPlaybackAllowsInline,
getSettingsMediaPlaybackAllowsInline ,
setSettingsMediaPlaybackAllowsInline ,
#if ENABLE_OVERLOADING
settingsMediaPlaybackAllowsInline ,
#endif
#if ENABLE_OVERLOADING
SettingsMediaPlaybackRequiresUserGesturePropertyInfo,
#endif
constructSettingsMediaPlaybackRequiresUserGesture,
getSettingsMediaPlaybackRequiresUserGesture,
setSettingsMediaPlaybackRequiresUserGesture,
#if ENABLE_OVERLOADING
settingsMediaPlaybackRequiresUserGesture,
#endif
#if ENABLE_OVERLOADING
SettingsMinimumFontSizePropertyInfo ,
#endif
constructSettingsMinimumFontSize ,
getSettingsMinimumFontSize ,
setSettingsMinimumFontSize ,
#if ENABLE_OVERLOADING
settingsMinimumFontSize ,
#endif
#if ENABLE_OVERLOADING
SettingsMonospaceFontFamilyPropertyInfo ,
#endif
constructSettingsMonospaceFontFamily ,
getSettingsMonospaceFontFamily ,
setSettingsMonospaceFontFamily ,
#if ENABLE_OVERLOADING
settingsMonospaceFontFamily ,
#endif
#if ENABLE_OVERLOADING
SettingsPictographFontFamilyPropertyInfo,
#endif
constructSettingsPictographFontFamily ,
getSettingsPictographFontFamily ,
setSettingsPictographFontFamily ,
#if ENABLE_OVERLOADING
settingsPictographFontFamily ,
#endif
#if ENABLE_OVERLOADING
SettingsPrintBackgroundsPropertyInfo ,
#endif
constructSettingsPrintBackgrounds ,
getSettingsPrintBackgrounds ,
setSettingsPrintBackgrounds ,
#if ENABLE_OVERLOADING
settingsPrintBackgrounds ,
#endif
#if ENABLE_OVERLOADING
SettingsSansSerifFontFamilyPropertyInfo ,
#endif
constructSettingsSansSerifFontFamily ,
getSettingsSansSerifFontFamily ,
setSettingsSansSerifFontFamily ,
#if ENABLE_OVERLOADING
settingsSansSerifFontFamily ,
#endif
#if ENABLE_OVERLOADING
SettingsSerifFontFamilyPropertyInfo ,
#endif
constructSettingsSerifFontFamily ,
getSettingsSerifFontFamily ,
setSettingsSerifFontFamily ,
#if ENABLE_OVERLOADING
settingsSerifFontFamily ,
#endif
#if ENABLE_OVERLOADING
SettingsUserAgentPropertyInfo ,
#endif
clearSettingsUserAgent ,
constructSettingsUserAgent ,
getSettingsUserAgent ,
setSettingsUserAgent ,
#if ENABLE_OVERLOADING
settingsUserAgent ,
#endif
#if ENABLE_OVERLOADING
SettingsZoomTextOnlyPropertyInfo ,
#endif
constructSettingsZoomTextOnly ,
getSettingsZoomTextOnly ,
setSettingsZoomTextOnly ,
#if ENABLE_OVERLOADING
settingsZoomTextOnly ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
newtype Settings = Settings (ManagedPtr Settings)
foreign import ccall "webkit_settings_get_type"
c_webkit_settings_get_type :: IO GType
instance GObject Settings where
gobjectType = c_webkit_settings_get_type
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]
toSettings :: (MonadIO m, IsSettings o) => o -> m Settings
toSettings = liftIO . unsafeCastTo Settings
noSettings :: Maybe Settings
noSettings = Nothing
#if ENABLE_OVERLOADING
type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where
ResolveSettingsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSettingsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSettingsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSettingsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSettingsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSettingsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSettingsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSettingsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSettingsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSettingsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSettingsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSettingsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSettingsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSettingsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSettingsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSettingsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSettingsMethod "getAllowFileAccessFromFileUrls" o = SettingsGetAllowFileAccessFromFileUrlsMethodInfo
ResolveSettingsMethod "getAllowModalDialogs" o = SettingsGetAllowModalDialogsMethodInfo
ResolveSettingsMethod "getAllowUniversalAccessFromFileUrls" o = SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo
ResolveSettingsMethod "getAutoLoadImages" o = SettingsGetAutoLoadImagesMethodInfo
ResolveSettingsMethod "getCursiveFontFamily" o = SettingsGetCursiveFontFamilyMethodInfo
ResolveSettingsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSettingsMethod "getDefaultCharset" o = SettingsGetDefaultCharsetMethodInfo
ResolveSettingsMethod "getDefaultFontFamily" o = SettingsGetDefaultFontFamilyMethodInfo
ResolveSettingsMethod "getDefaultFontSize" o = SettingsGetDefaultFontSizeMethodInfo
ResolveSettingsMethod "getDefaultMonospaceFontSize" o = SettingsGetDefaultMonospaceFontSizeMethodInfo
ResolveSettingsMethod "getDrawCompositingIndicators" o = SettingsGetDrawCompositingIndicatorsMethodInfo
ResolveSettingsMethod "getEnableAccelerated2dCanvas" o = SettingsGetEnableAccelerated2dCanvasMethodInfo
ResolveSettingsMethod "getEnableBackForwardNavigationGestures" o = SettingsGetEnableBackForwardNavigationGesturesMethodInfo
ResolveSettingsMethod "getEnableCaretBrowsing" o = SettingsGetEnableCaretBrowsingMethodInfo
ResolveSettingsMethod "getEnableDeveloperExtras" o = SettingsGetEnableDeveloperExtrasMethodInfo
ResolveSettingsMethod "getEnableDnsPrefetching" o = SettingsGetEnableDnsPrefetchingMethodInfo
ResolveSettingsMethod "getEnableEncryptedMedia" o = SettingsGetEnableEncryptedMediaMethodInfo
ResolveSettingsMethod "getEnableFrameFlattening" o = SettingsGetEnableFrameFlatteningMethodInfo
ResolveSettingsMethod "getEnableFullscreen" o = SettingsGetEnableFullscreenMethodInfo
ResolveSettingsMethod "getEnableHtml5Database" o = SettingsGetEnableHtml5DatabaseMethodInfo
ResolveSettingsMethod "getEnableHtml5LocalStorage" o = SettingsGetEnableHtml5LocalStorageMethodInfo
ResolveSettingsMethod "getEnableHyperlinkAuditing" o = SettingsGetEnableHyperlinkAuditingMethodInfo
ResolveSettingsMethod "getEnableJava" o = SettingsGetEnableJavaMethodInfo
ResolveSettingsMethod "getEnableJavascript" o = SettingsGetEnableJavascriptMethodInfo
ResolveSettingsMethod "getEnableJavascriptMarkup" o = SettingsGetEnableJavascriptMarkupMethodInfo
ResolveSettingsMethod "getEnableMediaCapabilities" o = SettingsGetEnableMediaCapabilitiesMethodInfo
ResolveSettingsMethod "getEnableMediaStream" o = SettingsGetEnableMediaStreamMethodInfo
ResolveSettingsMethod "getEnableMediasource" o = SettingsGetEnableMediasourceMethodInfo
ResolveSettingsMethod "getEnableMockCaptureDevices" o = SettingsGetEnableMockCaptureDevicesMethodInfo
ResolveSettingsMethod "getEnableOfflineWebApplicationCache" o = SettingsGetEnableOfflineWebApplicationCacheMethodInfo
ResolveSettingsMethod "getEnablePageCache" o = SettingsGetEnablePageCacheMethodInfo
ResolveSettingsMethod "getEnablePlugins" o = SettingsGetEnablePluginsMethodInfo
ResolveSettingsMethod "getEnablePrivateBrowsing" o = SettingsGetEnablePrivateBrowsingMethodInfo
ResolveSettingsMethod "getEnableResizableTextAreas" o = SettingsGetEnableResizableTextAreasMethodInfo
ResolveSettingsMethod "getEnableSiteSpecificQuirks" o = SettingsGetEnableSiteSpecificQuirksMethodInfo
ResolveSettingsMethod "getEnableSmoothScrolling" o = SettingsGetEnableSmoothScrollingMethodInfo
ResolveSettingsMethod "getEnableSpatialNavigation" o = SettingsGetEnableSpatialNavigationMethodInfo
ResolveSettingsMethod "getEnableTabsToLinks" o = SettingsGetEnableTabsToLinksMethodInfo
ResolveSettingsMethod "getEnableWebaudio" o = SettingsGetEnableWebaudioMethodInfo
ResolveSettingsMethod "getEnableWebgl" o = SettingsGetEnableWebglMethodInfo
ResolveSettingsMethod "getEnableWriteConsoleMessagesToStdout" o = SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo
ResolveSettingsMethod "getEnableXssAuditor" o = SettingsGetEnableXssAuditorMethodInfo
ResolveSettingsMethod "getFantasyFontFamily" o = SettingsGetFantasyFontFamilyMethodInfo
ResolveSettingsMethod "getHardwareAccelerationPolicy" o = SettingsGetHardwareAccelerationPolicyMethodInfo
ResolveSettingsMethod "getJavascriptCanAccessClipboard" o = SettingsGetJavascriptCanAccessClipboardMethodInfo
ResolveSettingsMethod "getJavascriptCanOpenWindowsAutomatically" o = SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo
ResolveSettingsMethod "getLoadIconsIgnoringImageLoadSetting" o = SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo
ResolveSettingsMethod "getMediaPlaybackAllowsInline" o = SettingsGetMediaPlaybackAllowsInlineMethodInfo
ResolveSettingsMethod "getMediaPlaybackRequiresUserGesture" o = SettingsGetMediaPlaybackRequiresUserGestureMethodInfo
ResolveSettingsMethod "getMinimumFontSize" o = SettingsGetMinimumFontSizeMethodInfo
ResolveSettingsMethod "getMonospaceFontFamily" o = SettingsGetMonospaceFontFamilyMethodInfo
ResolveSettingsMethod "getPictographFontFamily" o = SettingsGetPictographFontFamilyMethodInfo
ResolveSettingsMethod "getPrintBackgrounds" o = SettingsGetPrintBackgroundsMethodInfo
ResolveSettingsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSettingsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSettingsMethod "getSansSerifFontFamily" o = SettingsGetSansSerifFontFamilyMethodInfo
ResolveSettingsMethod "getSerifFontFamily" o = SettingsGetSerifFontFamilyMethodInfo
ResolveSettingsMethod "getUserAgent" o = SettingsGetUserAgentMethodInfo
ResolveSettingsMethod "getZoomTextOnly" o = SettingsGetZoomTextOnlyMethodInfo
ResolveSettingsMethod "setAllowFileAccessFromFileUrls" o = SettingsSetAllowFileAccessFromFileUrlsMethodInfo
ResolveSettingsMethod "setAllowModalDialogs" o = SettingsSetAllowModalDialogsMethodInfo
ResolveSettingsMethod "setAllowUniversalAccessFromFileUrls" o = SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo
ResolveSettingsMethod "setAutoLoadImages" o = SettingsSetAutoLoadImagesMethodInfo
ResolveSettingsMethod "setCursiveFontFamily" o = SettingsSetCursiveFontFamilyMethodInfo
ResolveSettingsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSettingsMethod "setDefaultCharset" o = SettingsSetDefaultCharsetMethodInfo
ResolveSettingsMethod "setDefaultFontFamily" o = SettingsSetDefaultFontFamilyMethodInfo
ResolveSettingsMethod "setDefaultFontSize" o = SettingsSetDefaultFontSizeMethodInfo
ResolveSettingsMethod "setDefaultMonospaceFontSize" o = SettingsSetDefaultMonospaceFontSizeMethodInfo
ResolveSettingsMethod "setDrawCompositingIndicators" o = SettingsSetDrawCompositingIndicatorsMethodInfo
ResolveSettingsMethod "setEnableAccelerated2dCanvas" o = SettingsSetEnableAccelerated2dCanvasMethodInfo
ResolveSettingsMethod "setEnableBackForwardNavigationGestures" o = SettingsSetEnableBackForwardNavigationGesturesMethodInfo
ResolveSettingsMethod "setEnableCaretBrowsing" o = SettingsSetEnableCaretBrowsingMethodInfo
ResolveSettingsMethod "setEnableDeveloperExtras" o = SettingsSetEnableDeveloperExtrasMethodInfo
ResolveSettingsMethod "setEnableDnsPrefetching" o = SettingsSetEnableDnsPrefetchingMethodInfo
ResolveSettingsMethod "setEnableEncryptedMedia" o = SettingsSetEnableEncryptedMediaMethodInfo
ResolveSettingsMethod "setEnableFrameFlattening" o = SettingsSetEnableFrameFlatteningMethodInfo
ResolveSettingsMethod "setEnableFullscreen" o = SettingsSetEnableFullscreenMethodInfo
ResolveSettingsMethod "setEnableHtml5Database" o = SettingsSetEnableHtml5DatabaseMethodInfo
ResolveSettingsMethod "setEnableHtml5LocalStorage" o = SettingsSetEnableHtml5LocalStorageMethodInfo
ResolveSettingsMethod "setEnableHyperlinkAuditing" o = SettingsSetEnableHyperlinkAuditingMethodInfo
ResolveSettingsMethod "setEnableJava" o = SettingsSetEnableJavaMethodInfo
ResolveSettingsMethod "setEnableJavascript" o = SettingsSetEnableJavascriptMethodInfo
ResolveSettingsMethod "setEnableJavascriptMarkup" o = SettingsSetEnableJavascriptMarkupMethodInfo
ResolveSettingsMethod "setEnableMediaCapabilities" o = SettingsSetEnableMediaCapabilitiesMethodInfo
ResolveSettingsMethod "setEnableMediaStream" o = SettingsSetEnableMediaStreamMethodInfo
ResolveSettingsMethod "setEnableMediasource" o = SettingsSetEnableMediasourceMethodInfo
ResolveSettingsMethod "setEnableMockCaptureDevices" o = SettingsSetEnableMockCaptureDevicesMethodInfo
ResolveSettingsMethod "setEnableOfflineWebApplicationCache" o = SettingsSetEnableOfflineWebApplicationCacheMethodInfo
ResolveSettingsMethod "setEnablePageCache" o = SettingsSetEnablePageCacheMethodInfo
ResolveSettingsMethod "setEnablePlugins" o = SettingsSetEnablePluginsMethodInfo
ResolveSettingsMethod "setEnablePrivateBrowsing" o = SettingsSetEnablePrivateBrowsingMethodInfo
ResolveSettingsMethod "setEnableResizableTextAreas" o = SettingsSetEnableResizableTextAreasMethodInfo
ResolveSettingsMethod "setEnableSiteSpecificQuirks" o = SettingsSetEnableSiteSpecificQuirksMethodInfo
ResolveSettingsMethod "setEnableSmoothScrolling" o = SettingsSetEnableSmoothScrollingMethodInfo
ResolveSettingsMethod "setEnableSpatialNavigation" o = SettingsSetEnableSpatialNavigationMethodInfo
ResolveSettingsMethod "setEnableTabsToLinks" o = SettingsSetEnableTabsToLinksMethodInfo
ResolveSettingsMethod "setEnableWebaudio" o = SettingsSetEnableWebaudioMethodInfo
ResolveSettingsMethod "setEnableWebgl" o = SettingsSetEnableWebglMethodInfo
ResolveSettingsMethod "setEnableWriteConsoleMessagesToStdout" o = SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo
ResolveSettingsMethod "setEnableXssAuditor" o = SettingsSetEnableXssAuditorMethodInfo
ResolveSettingsMethod "setFantasyFontFamily" o = SettingsSetFantasyFontFamilyMethodInfo
ResolveSettingsMethod "setHardwareAccelerationPolicy" o = SettingsSetHardwareAccelerationPolicyMethodInfo
ResolveSettingsMethod "setJavascriptCanAccessClipboard" o = SettingsSetJavascriptCanAccessClipboardMethodInfo
ResolveSettingsMethod "setJavascriptCanOpenWindowsAutomatically" o = SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo
ResolveSettingsMethod "setLoadIconsIgnoringImageLoadSetting" o = SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo
ResolveSettingsMethod "setMediaPlaybackAllowsInline" o = SettingsSetMediaPlaybackAllowsInlineMethodInfo
ResolveSettingsMethod "setMediaPlaybackRequiresUserGesture" o = SettingsSetMediaPlaybackRequiresUserGestureMethodInfo
ResolveSettingsMethod "setMinimumFontSize" o = SettingsSetMinimumFontSizeMethodInfo
ResolveSettingsMethod "setMonospaceFontFamily" o = SettingsSetMonospaceFontFamilyMethodInfo
ResolveSettingsMethod "setPictographFontFamily" o = SettingsSetPictographFontFamilyMethodInfo
ResolveSettingsMethod "setPrintBackgrounds" o = SettingsSetPrintBackgroundsMethodInfo
ResolveSettingsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSettingsMethod "setSansSerifFontFamily" o = SettingsSetSansSerifFontFamilyMethodInfo
ResolveSettingsMethod "setSerifFontFamily" o = SettingsSetSerifFontFamilyMethodInfo
ResolveSettingsMethod "setUserAgent" o = SettingsSetUserAgentMethodInfo
ResolveSettingsMethod "setUserAgentWithApplicationDetails" o = SettingsSetUserAgentWithApplicationDetailsMethodInfo
ResolveSettingsMethod "setZoomTextOnly" o = SettingsSetZoomTextOnlyMethodInfo
ResolveSettingsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSettingsMethod t Settings, O.MethodInfo info Settings p) => OL.IsLabel t (Settings -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowFileAccessFromFileUrls obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-file-access-from-file-urls"
setSettingsAllowFileAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsAllowFileAccessFromFileUrls obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-file-access-from-file-urls" val
constructSettingsAllowFileAccessFromFileUrls :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsAllowFileAccessFromFileUrls val = B.Properties.constructObjectPropertyBool "allow-file-access-from-file-urls" val
#if ENABLE_OVERLOADING
data SettingsAllowFileAccessFromFileUrlsPropertyInfo
instance AttrInfo SettingsAllowFileAccessFromFileUrlsPropertyInfo where
type AttrAllowedOps SettingsAllowFileAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = IsSettings
type AttrGetType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool
type AttrLabel SettingsAllowFileAccessFromFileUrlsPropertyInfo = "allow-file-access-from-file-urls"
type AttrOrigin SettingsAllowFileAccessFromFileUrlsPropertyInfo = Settings
attrGet _ = getSettingsAllowFileAccessFromFileUrls
attrSet _ = setSettingsAllowFileAccessFromFileUrls
attrConstruct _ = constructSettingsAllowFileAccessFromFileUrls
attrClear _ = undefined
#endif
getSettingsAllowModalDialogs :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowModalDialogs obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-modal-dialogs"
setSettingsAllowModalDialogs :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsAllowModalDialogs obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-modal-dialogs" val
constructSettingsAllowModalDialogs :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsAllowModalDialogs val = B.Properties.constructObjectPropertyBool "allow-modal-dialogs" val
#if ENABLE_OVERLOADING
data SettingsAllowModalDialogsPropertyInfo
instance AttrInfo SettingsAllowModalDialogsPropertyInfo where
type AttrAllowedOps SettingsAllowModalDialogsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsAllowModalDialogsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsAllowModalDialogsPropertyInfo = IsSettings
type AttrGetType SettingsAllowModalDialogsPropertyInfo = Bool
type AttrLabel SettingsAllowModalDialogsPropertyInfo = "allow-modal-dialogs"
type AttrOrigin SettingsAllowModalDialogsPropertyInfo = Settings
attrGet _ = getSettingsAllowModalDialogs
attrSet _ = setSettingsAllowModalDialogs
attrConstruct _ = constructSettingsAllowModalDialogs
attrClear _ = undefined
#endif
getSettingsAllowUniversalAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowUniversalAccessFromFileUrls obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-universal-access-from-file-urls"
setSettingsAllowUniversalAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsAllowUniversalAccessFromFileUrls obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-universal-access-from-file-urls" val
constructSettingsAllowUniversalAccessFromFileUrls :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsAllowUniversalAccessFromFileUrls val = B.Properties.constructObjectPropertyBool "allow-universal-access-from-file-urls" val
#if ENABLE_OVERLOADING
data SettingsAllowUniversalAccessFromFileUrlsPropertyInfo
instance AttrInfo SettingsAllowUniversalAccessFromFileUrlsPropertyInfo where
type AttrAllowedOps SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = IsSettings
type AttrGetType SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = Bool
type AttrLabel SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = "allow-universal-access-from-file-urls"
type AttrOrigin SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = Settings
attrGet _ = getSettingsAllowUniversalAccessFromFileUrls
attrSet _ = setSettingsAllowUniversalAccessFromFileUrls
attrConstruct _ = constructSettingsAllowUniversalAccessFromFileUrls
attrClear _ = undefined
#endif
getSettingsAutoLoadImages :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAutoLoadImages obj = liftIO $ B.Properties.getObjectPropertyBool obj "auto-load-images"
setSettingsAutoLoadImages :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsAutoLoadImages obj val = liftIO $ B.Properties.setObjectPropertyBool obj "auto-load-images" val
constructSettingsAutoLoadImages :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsAutoLoadImages val = B.Properties.constructObjectPropertyBool "auto-load-images" val
#if ENABLE_OVERLOADING
data SettingsAutoLoadImagesPropertyInfo
instance AttrInfo SettingsAutoLoadImagesPropertyInfo where
type AttrAllowedOps SettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsAutoLoadImagesPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsAutoLoadImagesPropertyInfo = IsSettings
type AttrGetType SettingsAutoLoadImagesPropertyInfo = Bool
type AttrLabel SettingsAutoLoadImagesPropertyInfo = "auto-load-images"
type AttrOrigin SettingsAutoLoadImagesPropertyInfo = Settings
attrGet _ = getSettingsAutoLoadImages
attrSet _ = setSettingsAutoLoadImages
attrConstruct _ = constructSettingsAutoLoadImages
attrClear _ = undefined
#endif
getSettingsCursiveFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsCursiveFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsCursiveFontFamily" $ B.Properties.getObjectPropertyString obj "cursive-font-family"
setSettingsCursiveFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsCursiveFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "cursive-font-family" (Just val)
constructSettingsCursiveFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsCursiveFontFamily val = B.Properties.constructObjectPropertyString "cursive-font-family" (Just val)
#if ENABLE_OVERLOADING
data SettingsCursiveFontFamilyPropertyInfo
instance AttrInfo SettingsCursiveFontFamilyPropertyInfo where
type AttrAllowedOps SettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsCursiveFontFamilyPropertyInfo = IsSettings
type AttrGetType SettingsCursiveFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsCursiveFontFamilyPropertyInfo = "cursive-font-family"
type AttrOrigin SettingsCursiveFontFamilyPropertyInfo = Settings
attrGet _ = getSettingsCursiveFontFamily
attrSet _ = setSettingsCursiveFontFamily
attrConstruct _ = constructSettingsCursiveFontFamily
attrClear _ = undefined
#endif
getSettingsDefaultCharset :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsDefaultCharset obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultCharset" $ B.Properties.getObjectPropertyString obj "default-charset"
setSettingsDefaultCharset :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsDefaultCharset obj val = liftIO $ B.Properties.setObjectPropertyString obj "default-charset" (Just val)
constructSettingsDefaultCharset :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsDefaultCharset val = B.Properties.constructObjectPropertyString "default-charset" (Just val)
#if ENABLE_OVERLOADING
data SettingsDefaultCharsetPropertyInfo
instance AttrInfo SettingsDefaultCharsetPropertyInfo where
type AttrAllowedOps SettingsDefaultCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsDefaultCharsetPropertyInfo = IsSettings
type AttrGetType SettingsDefaultCharsetPropertyInfo = T.Text
type AttrLabel SettingsDefaultCharsetPropertyInfo = "default-charset"
type AttrOrigin SettingsDefaultCharsetPropertyInfo = Settings
attrGet _ = getSettingsDefaultCharset
attrSet _ = setSettingsDefaultCharset
attrConstruct _ = constructSettingsDefaultCharset
attrClear _ = undefined
#endif
getSettingsDefaultFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsDefaultFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultFontFamily" $ B.Properties.getObjectPropertyString obj "default-font-family"
setSettingsDefaultFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsDefaultFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "default-font-family" (Just val)
constructSettingsDefaultFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsDefaultFontFamily val = B.Properties.constructObjectPropertyString "default-font-family" (Just val)
#if ENABLE_OVERLOADING
data SettingsDefaultFontFamilyPropertyInfo
instance AttrInfo SettingsDefaultFontFamilyPropertyInfo where
type AttrAllowedOps SettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsDefaultFontFamilyPropertyInfo = IsSettings
type AttrGetType SettingsDefaultFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsDefaultFontFamilyPropertyInfo = "default-font-family"
type AttrOrigin SettingsDefaultFontFamilyPropertyInfo = Settings
attrGet _ = getSettingsDefaultFontFamily
attrSet _ = setSettingsDefaultFontFamily
attrConstruct _ = constructSettingsDefaultFontFamily
attrClear _ = undefined
#endif
getSettingsDefaultFontSize :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsDefaultFontSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "default-font-size"
setSettingsDefaultFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()
setSettingsDefaultFontSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "default-font-size" val
constructSettingsDefaultFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o)
constructSettingsDefaultFontSize val = B.Properties.constructObjectPropertyUInt32 "default-font-size" val
#if ENABLE_OVERLOADING
data SettingsDefaultFontSizePropertyInfo
instance AttrInfo SettingsDefaultFontSizePropertyInfo where
type AttrAllowedOps SettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint SettingsDefaultFontSizePropertyInfo = IsSettings
type AttrGetType SettingsDefaultFontSizePropertyInfo = Word32
type AttrLabel SettingsDefaultFontSizePropertyInfo = "default-font-size"
type AttrOrigin SettingsDefaultFontSizePropertyInfo = Settings
attrGet _ = getSettingsDefaultFontSize
attrSet _ = setSettingsDefaultFontSize
attrConstruct _ = constructSettingsDefaultFontSize
attrClear _ = undefined
#endif
getSettingsDefaultMonospaceFontSize :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsDefaultMonospaceFontSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "default-monospace-font-size"
setSettingsDefaultMonospaceFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()
setSettingsDefaultMonospaceFontSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "default-monospace-font-size" val
constructSettingsDefaultMonospaceFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o)
constructSettingsDefaultMonospaceFontSize val = B.Properties.constructObjectPropertyUInt32 "default-monospace-font-size" val
#if ENABLE_OVERLOADING
data SettingsDefaultMonospaceFontSizePropertyInfo
instance AttrInfo SettingsDefaultMonospaceFontSizePropertyInfo where
type AttrAllowedOps SettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = IsSettings
type AttrGetType SettingsDefaultMonospaceFontSizePropertyInfo = Word32
type AttrLabel SettingsDefaultMonospaceFontSizePropertyInfo = "default-monospace-font-size"
type AttrOrigin SettingsDefaultMonospaceFontSizePropertyInfo = Settings
attrGet _ = getSettingsDefaultMonospaceFontSize
attrSet _ = setSettingsDefaultMonospaceFontSize
attrConstruct _ = constructSettingsDefaultMonospaceFontSize
attrClear _ = undefined
#endif
getSettingsDrawCompositingIndicators :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsDrawCompositingIndicators obj = liftIO $ B.Properties.getObjectPropertyBool obj "draw-compositing-indicators"
setSettingsDrawCompositingIndicators :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsDrawCompositingIndicators obj val = liftIO $ B.Properties.setObjectPropertyBool obj "draw-compositing-indicators" val
constructSettingsDrawCompositingIndicators :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsDrawCompositingIndicators val = B.Properties.constructObjectPropertyBool "draw-compositing-indicators" val
#if ENABLE_OVERLOADING
data SettingsDrawCompositingIndicatorsPropertyInfo
instance AttrInfo SettingsDrawCompositingIndicatorsPropertyInfo where
type AttrAllowedOps SettingsDrawCompositingIndicatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = IsSettings
type AttrGetType SettingsDrawCompositingIndicatorsPropertyInfo = Bool
type AttrLabel SettingsDrawCompositingIndicatorsPropertyInfo = "draw-compositing-indicators"
type AttrOrigin SettingsDrawCompositingIndicatorsPropertyInfo = Settings
attrGet _ = getSettingsDrawCompositingIndicators
attrSet _ = setSettingsDrawCompositingIndicators
attrConstruct _ = constructSettingsDrawCompositingIndicators
attrClear _ = undefined
#endif
getSettingsEnableAccelerated2dCanvas :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableAccelerated2dCanvas obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-accelerated-2d-canvas"
setSettingsEnableAccelerated2dCanvas :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableAccelerated2dCanvas obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-accelerated-2d-canvas" val
constructSettingsEnableAccelerated2dCanvas :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableAccelerated2dCanvas val = B.Properties.constructObjectPropertyBool "enable-accelerated-2d-canvas" val
#if ENABLE_OVERLOADING
data SettingsEnableAccelerated2dCanvasPropertyInfo
instance AttrInfo SettingsEnableAccelerated2dCanvasPropertyInfo where
type AttrAllowedOps SettingsEnableAccelerated2dCanvasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = IsSettings
type AttrGetType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool
type AttrLabel SettingsEnableAccelerated2dCanvasPropertyInfo = "enable-accelerated-2d-canvas"
type AttrOrigin SettingsEnableAccelerated2dCanvasPropertyInfo = Settings
attrGet _ = getSettingsEnableAccelerated2dCanvas
attrSet _ = setSettingsEnableAccelerated2dCanvas
attrConstruct _ = constructSettingsEnableAccelerated2dCanvas
attrClear _ = undefined
#endif
getSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableBackForwardNavigationGestures obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-back-forward-navigation-gestures"
setSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableBackForwardNavigationGestures obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-back-forward-navigation-gestures" val
constructSettingsEnableBackForwardNavigationGestures :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableBackForwardNavigationGestures val = B.Properties.constructObjectPropertyBool "enable-back-forward-navigation-gestures" val
#if ENABLE_OVERLOADING
data SettingsEnableBackForwardNavigationGesturesPropertyInfo
instance AttrInfo SettingsEnableBackForwardNavigationGesturesPropertyInfo where
type AttrAllowedOps SettingsEnableBackForwardNavigationGesturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableBackForwardNavigationGesturesPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableBackForwardNavigationGesturesPropertyInfo = IsSettings
type AttrGetType SettingsEnableBackForwardNavigationGesturesPropertyInfo = Bool
type AttrLabel SettingsEnableBackForwardNavigationGesturesPropertyInfo = "enable-back-forward-navigation-gestures"
type AttrOrigin SettingsEnableBackForwardNavigationGesturesPropertyInfo = Settings
attrGet _ = getSettingsEnableBackForwardNavigationGestures
attrSet _ = setSettingsEnableBackForwardNavigationGestures
attrConstruct _ = constructSettingsEnableBackForwardNavigationGestures
attrClear _ = undefined
#endif
getSettingsEnableCaretBrowsing :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableCaretBrowsing obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-caret-browsing"
setSettingsEnableCaretBrowsing :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableCaretBrowsing obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-caret-browsing" val
constructSettingsEnableCaretBrowsing :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableCaretBrowsing val = B.Properties.constructObjectPropertyBool "enable-caret-browsing" val
#if ENABLE_OVERLOADING
data SettingsEnableCaretBrowsingPropertyInfo
instance AttrInfo SettingsEnableCaretBrowsingPropertyInfo where
type AttrAllowedOps SettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = IsSettings
type AttrGetType SettingsEnableCaretBrowsingPropertyInfo = Bool
type AttrLabel SettingsEnableCaretBrowsingPropertyInfo = "enable-caret-browsing"
type AttrOrigin SettingsEnableCaretBrowsingPropertyInfo = Settings
attrGet _ = getSettingsEnableCaretBrowsing
attrSet _ = setSettingsEnableCaretBrowsing
attrConstruct _ = constructSettingsEnableCaretBrowsing
attrClear _ = undefined
#endif
getSettingsEnableDeveloperExtras :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableDeveloperExtras obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-developer-extras"
setSettingsEnableDeveloperExtras :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableDeveloperExtras obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-developer-extras" val
constructSettingsEnableDeveloperExtras :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableDeveloperExtras val = B.Properties.constructObjectPropertyBool "enable-developer-extras" val
#if ENABLE_OVERLOADING
data SettingsEnableDeveloperExtrasPropertyInfo
instance AttrInfo SettingsEnableDeveloperExtrasPropertyInfo where
type AttrAllowedOps SettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = IsSettings
type AttrGetType SettingsEnableDeveloperExtrasPropertyInfo = Bool
type AttrLabel SettingsEnableDeveloperExtrasPropertyInfo = "enable-developer-extras"
type AttrOrigin SettingsEnableDeveloperExtrasPropertyInfo = Settings
attrGet _ = getSettingsEnableDeveloperExtras
attrSet _ = setSettingsEnableDeveloperExtras
attrConstruct _ = constructSettingsEnableDeveloperExtras
attrClear _ = undefined
#endif
getSettingsEnableDnsPrefetching :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableDnsPrefetching obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-dns-prefetching"
setSettingsEnableDnsPrefetching :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableDnsPrefetching obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-dns-prefetching" val
constructSettingsEnableDnsPrefetching :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableDnsPrefetching val = B.Properties.constructObjectPropertyBool "enable-dns-prefetching" val
#if ENABLE_OVERLOADING
data SettingsEnableDnsPrefetchingPropertyInfo
instance AttrInfo SettingsEnableDnsPrefetchingPropertyInfo where
type AttrAllowedOps SettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = IsSettings
type AttrGetType SettingsEnableDnsPrefetchingPropertyInfo = Bool
type AttrLabel SettingsEnableDnsPrefetchingPropertyInfo = "enable-dns-prefetching"
type AttrOrigin SettingsEnableDnsPrefetchingPropertyInfo = Settings
attrGet _ = getSettingsEnableDnsPrefetching
attrSet _ = setSettingsEnableDnsPrefetching
attrConstruct _ = constructSettingsEnableDnsPrefetching
attrClear _ = undefined
#endif
getSettingsEnableEncryptedMedia :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableEncryptedMedia obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-encrypted-media"
setSettingsEnableEncryptedMedia :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableEncryptedMedia obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-encrypted-media" val
constructSettingsEnableEncryptedMedia :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableEncryptedMedia val = B.Properties.constructObjectPropertyBool "enable-encrypted-media" val
#if ENABLE_OVERLOADING
data SettingsEnableEncryptedMediaPropertyInfo
instance AttrInfo SettingsEnableEncryptedMediaPropertyInfo where
type AttrAllowedOps SettingsEnableEncryptedMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableEncryptedMediaPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableEncryptedMediaPropertyInfo = IsSettings
type AttrGetType SettingsEnableEncryptedMediaPropertyInfo = Bool
type AttrLabel SettingsEnableEncryptedMediaPropertyInfo = "enable-encrypted-media"
type AttrOrigin SettingsEnableEncryptedMediaPropertyInfo = Settings
attrGet _ = getSettingsEnableEncryptedMedia
attrSet _ = setSettingsEnableEncryptedMedia
attrConstruct _ = constructSettingsEnableEncryptedMedia
attrClear _ = undefined
#endif
getSettingsEnableFrameFlattening :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableFrameFlattening obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-frame-flattening"
setSettingsEnableFrameFlattening :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableFrameFlattening obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-frame-flattening" val
constructSettingsEnableFrameFlattening :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableFrameFlattening val = B.Properties.constructObjectPropertyBool "enable-frame-flattening" val
#if ENABLE_OVERLOADING
data SettingsEnableFrameFlatteningPropertyInfo
instance AttrInfo SettingsEnableFrameFlatteningPropertyInfo where
type AttrAllowedOps SettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = IsSettings
type AttrGetType SettingsEnableFrameFlatteningPropertyInfo = Bool
type AttrLabel SettingsEnableFrameFlatteningPropertyInfo = "enable-frame-flattening"
type AttrOrigin SettingsEnableFrameFlatteningPropertyInfo = Settings
attrGet _ = getSettingsEnableFrameFlattening
attrSet _ = setSettingsEnableFrameFlattening
attrConstruct _ = constructSettingsEnableFrameFlattening
attrClear _ = undefined
#endif
getSettingsEnableFullscreen :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableFullscreen obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-fullscreen"
setSettingsEnableFullscreen :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableFullscreen obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-fullscreen" val
constructSettingsEnableFullscreen :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableFullscreen val = B.Properties.constructObjectPropertyBool "enable-fullscreen" val
#if ENABLE_OVERLOADING
data SettingsEnableFullscreenPropertyInfo
instance AttrInfo SettingsEnableFullscreenPropertyInfo where
type AttrAllowedOps SettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableFullscreenPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableFullscreenPropertyInfo = IsSettings
type AttrGetType SettingsEnableFullscreenPropertyInfo = Bool
type AttrLabel SettingsEnableFullscreenPropertyInfo = "enable-fullscreen"
type AttrOrigin SettingsEnableFullscreenPropertyInfo = Settings
attrGet _ = getSettingsEnableFullscreen
attrSet _ = setSettingsEnableFullscreen
attrConstruct _ = constructSettingsEnableFullscreen
attrClear _ = undefined
#endif
getSettingsEnableHtml5Database :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHtml5Database obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-html5-database"
setSettingsEnableHtml5Database :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableHtml5Database obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-html5-database" val
constructSettingsEnableHtml5Database :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableHtml5Database val = B.Properties.constructObjectPropertyBool "enable-html5-database" val
#if ENABLE_OVERLOADING
data SettingsEnableHtml5DatabasePropertyInfo
instance AttrInfo SettingsEnableHtml5DatabasePropertyInfo where
type AttrAllowedOps SettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = IsSettings
type AttrGetType SettingsEnableHtml5DatabasePropertyInfo = Bool
type AttrLabel SettingsEnableHtml5DatabasePropertyInfo = "enable-html5-database"
type AttrOrigin SettingsEnableHtml5DatabasePropertyInfo = Settings
attrGet _ = getSettingsEnableHtml5Database
attrSet _ = setSettingsEnableHtml5Database
attrConstruct _ = constructSettingsEnableHtml5Database
attrClear _ = undefined
#endif
getSettingsEnableHtml5LocalStorage :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHtml5LocalStorage obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-html5-local-storage"
setSettingsEnableHtml5LocalStorage :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableHtml5LocalStorage obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-html5-local-storage" val
constructSettingsEnableHtml5LocalStorage :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableHtml5LocalStorage val = B.Properties.constructObjectPropertyBool "enable-html5-local-storage" val
#if ENABLE_OVERLOADING
data SettingsEnableHtml5LocalStoragePropertyInfo
instance AttrInfo SettingsEnableHtml5LocalStoragePropertyInfo where
type AttrAllowedOps SettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = IsSettings
type AttrGetType SettingsEnableHtml5LocalStoragePropertyInfo = Bool
type AttrLabel SettingsEnableHtml5LocalStoragePropertyInfo = "enable-html5-local-storage"
type AttrOrigin SettingsEnableHtml5LocalStoragePropertyInfo = Settings
attrGet _ = getSettingsEnableHtml5LocalStorage
attrSet _ = setSettingsEnableHtml5LocalStorage
attrConstruct _ = constructSettingsEnableHtml5LocalStorage
attrClear _ = undefined
#endif
getSettingsEnableHyperlinkAuditing :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHyperlinkAuditing obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-hyperlink-auditing"
setSettingsEnableHyperlinkAuditing :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableHyperlinkAuditing obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-hyperlink-auditing" val
constructSettingsEnableHyperlinkAuditing :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableHyperlinkAuditing val = B.Properties.constructObjectPropertyBool "enable-hyperlink-auditing" val
#if ENABLE_OVERLOADING
data SettingsEnableHyperlinkAuditingPropertyInfo
instance AttrInfo SettingsEnableHyperlinkAuditingPropertyInfo where
type AttrAllowedOps SettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = IsSettings
type AttrGetType SettingsEnableHyperlinkAuditingPropertyInfo = Bool
type AttrLabel SettingsEnableHyperlinkAuditingPropertyInfo = "enable-hyperlink-auditing"
type AttrOrigin SettingsEnableHyperlinkAuditingPropertyInfo = Settings
attrGet _ = getSettingsEnableHyperlinkAuditing
attrSet _ = setSettingsEnableHyperlinkAuditing
attrConstruct _ = constructSettingsEnableHyperlinkAuditing
attrClear _ = undefined
#endif
getSettingsEnableJava :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJava obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-java"
setSettingsEnableJava :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableJava obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-java" val
constructSettingsEnableJava :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableJava val = B.Properties.constructObjectPropertyBool "enable-java" val
#if ENABLE_OVERLOADING
data SettingsEnableJavaPropertyInfo
instance AttrInfo SettingsEnableJavaPropertyInfo where
type AttrAllowedOps SettingsEnableJavaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableJavaPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableJavaPropertyInfo = IsSettings
type AttrGetType SettingsEnableJavaPropertyInfo = Bool
type AttrLabel SettingsEnableJavaPropertyInfo = "enable-java"
type AttrOrigin SettingsEnableJavaPropertyInfo = Settings
attrGet _ = getSettingsEnableJava
attrSet _ = setSettingsEnableJava
attrConstruct _ = constructSettingsEnableJava
attrClear _ = undefined
#endif
getSettingsEnableJavascript :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJavascript obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-javascript"
setSettingsEnableJavascript :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableJavascript obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-javascript" val
constructSettingsEnableJavascript :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableJavascript val = B.Properties.constructObjectPropertyBool "enable-javascript" val
#if ENABLE_OVERLOADING
data SettingsEnableJavascriptPropertyInfo
instance AttrInfo SettingsEnableJavascriptPropertyInfo where
type AttrAllowedOps SettingsEnableJavascriptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableJavascriptPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableJavascriptPropertyInfo = IsSettings
type AttrGetType SettingsEnableJavascriptPropertyInfo = Bool
type AttrLabel SettingsEnableJavascriptPropertyInfo = "enable-javascript"
type AttrOrigin SettingsEnableJavascriptPropertyInfo = Settings
attrGet _ = getSettingsEnableJavascript
attrSet _ = setSettingsEnableJavascript
attrConstruct _ = constructSettingsEnableJavascript
attrClear _ = undefined
#endif
getSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJavascriptMarkup obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-javascript-markup"
setSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableJavascriptMarkup obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-javascript-markup" val
constructSettingsEnableJavascriptMarkup :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableJavascriptMarkup val = B.Properties.constructObjectPropertyBool "enable-javascript-markup" val
#if ENABLE_OVERLOADING
data SettingsEnableJavascriptMarkupPropertyInfo
instance AttrInfo SettingsEnableJavascriptMarkupPropertyInfo where
type AttrAllowedOps SettingsEnableJavascriptMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableJavascriptMarkupPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableJavascriptMarkupPropertyInfo = IsSettings
type AttrGetType SettingsEnableJavascriptMarkupPropertyInfo = Bool
type AttrLabel SettingsEnableJavascriptMarkupPropertyInfo = "enable-javascript-markup"
type AttrOrigin SettingsEnableJavascriptMarkupPropertyInfo = Settings
attrGet _ = getSettingsEnableJavascriptMarkup
attrSet _ = setSettingsEnableJavascriptMarkup
attrConstruct _ = constructSettingsEnableJavascriptMarkup
attrClear _ = undefined
#endif
getSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediaCapabilities obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-media-capabilities"
setSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableMediaCapabilities obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-media-capabilities" val
constructSettingsEnableMediaCapabilities :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableMediaCapabilities val = B.Properties.constructObjectPropertyBool "enable-media-capabilities" val
#if ENABLE_OVERLOADING
data SettingsEnableMediaCapabilitiesPropertyInfo
instance AttrInfo SettingsEnableMediaCapabilitiesPropertyInfo where
type AttrAllowedOps SettingsEnableMediaCapabilitiesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableMediaCapabilitiesPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableMediaCapabilitiesPropertyInfo = IsSettings
type AttrGetType SettingsEnableMediaCapabilitiesPropertyInfo = Bool
type AttrLabel SettingsEnableMediaCapabilitiesPropertyInfo = "enable-media-capabilities"
type AttrOrigin SettingsEnableMediaCapabilitiesPropertyInfo = Settings
attrGet _ = getSettingsEnableMediaCapabilities
attrSet _ = setSettingsEnableMediaCapabilities
attrConstruct _ = constructSettingsEnableMediaCapabilities
attrClear _ = undefined
#endif
getSettingsEnableMediaStream :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediaStream obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-media-stream"
setSettingsEnableMediaStream :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableMediaStream obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-media-stream" val
constructSettingsEnableMediaStream :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableMediaStream val = B.Properties.constructObjectPropertyBool "enable-media-stream" val
#if ENABLE_OVERLOADING
data SettingsEnableMediaStreamPropertyInfo
instance AttrInfo SettingsEnableMediaStreamPropertyInfo where
type AttrAllowedOps SettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableMediaStreamPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableMediaStreamPropertyInfo = IsSettings
type AttrGetType SettingsEnableMediaStreamPropertyInfo = Bool
type AttrLabel SettingsEnableMediaStreamPropertyInfo = "enable-media-stream"
type AttrOrigin SettingsEnableMediaStreamPropertyInfo = Settings
attrGet _ = getSettingsEnableMediaStream
attrSet _ = setSettingsEnableMediaStream
attrConstruct _ = constructSettingsEnableMediaStream
attrClear _ = undefined
#endif
getSettingsEnableMediasource :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediasource obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-mediasource"
setSettingsEnableMediasource :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableMediasource obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-mediasource" val
constructSettingsEnableMediasource :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableMediasource val = B.Properties.constructObjectPropertyBool "enable-mediasource" val
#if ENABLE_OVERLOADING
data SettingsEnableMediasourcePropertyInfo
instance AttrInfo SettingsEnableMediasourcePropertyInfo where
type AttrAllowedOps SettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableMediasourcePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableMediasourcePropertyInfo = IsSettings
type AttrGetType SettingsEnableMediasourcePropertyInfo = Bool
type AttrLabel SettingsEnableMediasourcePropertyInfo = "enable-mediasource"
type AttrOrigin SettingsEnableMediasourcePropertyInfo = Settings
attrGet _ = getSettingsEnableMediasource
attrSet _ = setSettingsEnableMediasource
attrConstruct _ = constructSettingsEnableMediasource
attrClear _ = undefined
#endif
getSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMockCaptureDevices obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-mock-capture-devices"
setSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableMockCaptureDevices obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-mock-capture-devices" val
constructSettingsEnableMockCaptureDevices :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableMockCaptureDevices val = B.Properties.constructObjectPropertyBool "enable-mock-capture-devices" val
#if ENABLE_OVERLOADING
data SettingsEnableMockCaptureDevicesPropertyInfo
instance AttrInfo SettingsEnableMockCaptureDevicesPropertyInfo where
type AttrAllowedOps SettingsEnableMockCaptureDevicesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableMockCaptureDevicesPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableMockCaptureDevicesPropertyInfo = IsSettings
type AttrGetType SettingsEnableMockCaptureDevicesPropertyInfo = Bool
type AttrLabel SettingsEnableMockCaptureDevicesPropertyInfo = "enable-mock-capture-devices"
type AttrOrigin SettingsEnableMockCaptureDevicesPropertyInfo = Settings
attrGet _ = getSettingsEnableMockCaptureDevices
attrSet _ = setSettingsEnableMockCaptureDevices
attrConstruct _ = constructSettingsEnableMockCaptureDevices
attrClear _ = undefined
#endif
getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableOfflineWebApplicationCache obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-offline-web-application-cache"
setSettingsEnableOfflineWebApplicationCache :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableOfflineWebApplicationCache obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-offline-web-application-cache" val
constructSettingsEnableOfflineWebApplicationCache :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableOfflineWebApplicationCache val = B.Properties.constructObjectPropertyBool "enable-offline-web-application-cache" val
#if ENABLE_OVERLOADING
data SettingsEnableOfflineWebApplicationCachePropertyInfo
instance AttrInfo SettingsEnableOfflineWebApplicationCachePropertyInfo where
type AttrAllowedOps SettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = IsSettings
type AttrGetType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool
type AttrLabel SettingsEnableOfflineWebApplicationCachePropertyInfo = "enable-offline-web-application-cache"
type AttrOrigin SettingsEnableOfflineWebApplicationCachePropertyInfo = Settings
attrGet _ = getSettingsEnableOfflineWebApplicationCache
attrSet _ = setSettingsEnableOfflineWebApplicationCache
attrConstruct _ = constructSettingsEnableOfflineWebApplicationCache
attrClear _ = undefined
#endif
getSettingsEnablePageCache :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnablePageCache obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-page-cache"
setSettingsEnablePageCache :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnablePageCache obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-page-cache" val
constructSettingsEnablePageCache :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnablePageCache val = B.Properties.constructObjectPropertyBool "enable-page-cache" val
#if ENABLE_OVERLOADING
data SettingsEnablePageCachePropertyInfo
instance AttrInfo SettingsEnablePageCachePropertyInfo where
type AttrAllowedOps SettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnablePageCachePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnablePageCachePropertyInfo = IsSettings
type AttrGetType SettingsEnablePageCachePropertyInfo = Bool
type AttrLabel SettingsEnablePageCachePropertyInfo = "enable-page-cache"
type AttrOrigin SettingsEnablePageCachePropertyInfo = Settings
attrGet _ = getSettingsEnablePageCache
attrSet _ = setSettingsEnablePageCache
attrConstruct _ = constructSettingsEnablePageCache
attrClear _ = undefined
#endif
getSettingsEnablePlugins :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnablePlugins obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-plugins"
setSettingsEnablePlugins :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnablePlugins obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-plugins" val
constructSettingsEnablePlugins :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnablePlugins val = B.Properties.constructObjectPropertyBool "enable-plugins" val
#if ENABLE_OVERLOADING
data SettingsEnablePluginsPropertyInfo
instance AttrInfo SettingsEnablePluginsPropertyInfo where
type AttrAllowedOps SettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnablePluginsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnablePluginsPropertyInfo = IsSettings
type AttrGetType SettingsEnablePluginsPropertyInfo = Bool
type AttrLabel SettingsEnablePluginsPropertyInfo = "enable-plugins"
type AttrOrigin SettingsEnablePluginsPropertyInfo = Settings
attrGet _ = getSettingsEnablePlugins
attrSet _ = setSettingsEnablePlugins
attrConstruct _ = constructSettingsEnablePlugins
attrClear _ = undefined
#endif
getSettingsEnablePrivateBrowsing :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnablePrivateBrowsing obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-private-browsing"
setSettingsEnablePrivateBrowsing :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnablePrivateBrowsing obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-private-browsing" val
constructSettingsEnablePrivateBrowsing :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnablePrivateBrowsing val = B.Properties.constructObjectPropertyBool "enable-private-browsing" val
#if ENABLE_OVERLOADING
data SettingsEnablePrivateBrowsingPropertyInfo
instance AttrInfo SettingsEnablePrivateBrowsingPropertyInfo where
type AttrAllowedOps SettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = IsSettings
type AttrGetType SettingsEnablePrivateBrowsingPropertyInfo = Bool
type AttrLabel SettingsEnablePrivateBrowsingPropertyInfo = "enable-private-browsing"
type AttrOrigin SettingsEnablePrivateBrowsingPropertyInfo = Settings
attrGet _ = getSettingsEnablePrivateBrowsing
attrSet _ = setSettingsEnablePrivateBrowsing
attrConstruct _ = constructSettingsEnablePrivateBrowsing
attrClear _ = undefined
#endif
getSettingsEnableResizableTextAreas :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableResizableTextAreas obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-resizable-text-areas"
setSettingsEnableResizableTextAreas :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableResizableTextAreas obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-resizable-text-areas" val
constructSettingsEnableResizableTextAreas :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableResizableTextAreas val = B.Properties.constructObjectPropertyBool "enable-resizable-text-areas" val
#if ENABLE_OVERLOADING
data SettingsEnableResizableTextAreasPropertyInfo
instance AttrInfo SettingsEnableResizableTextAreasPropertyInfo where
type AttrAllowedOps SettingsEnableResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = IsSettings
type AttrGetType SettingsEnableResizableTextAreasPropertyInfo = Bool
type AttrLabel SettingsEnableResizableTextAreasPropertyInfo = "enable-resizable-text-areas"
type AttrOrigin SettingsEnableResizableTextAreasPropertyInfo = Settings
attrGet _ = getSettingsEnableResizableTextAreas
attrSet _ = setSettingsEnableResizableTextAreas
attrConstruct _ = constructSettingsEnableResizableTextAreas
attrClear _ = undefined
#endif
getSettingsEnableSiteSpecificQuirks :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSiteSpecificQuirks obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-site-specific-quirks"
setSettingsEnableSiteSpecificQuirks :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableSiteSpecificQuirks obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-site-specific-quirks" val
constructSettingsEnableSiteSpecificQuirks :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableSiteSpecificQuirks val = B.Properties.constructObjectPropertyBool "enable-site-specific-quirks" val
#if ENABLE_OVERLOADING
data SettingsEnableSiteSpecificQuirksPropertyInfo
instance AttrInfo SettingsEnableSiteSpecificQuirksPropertyInfo where
type AttrAllowedOps SettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = IsSettings
type AttrGetType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool
type AttrLabel SettingsEnableSiteSpecificQuirksPropertyInfo = "enable-site-specific-quirks"
type AttrOrigin SettingsEnableSiteSpecificQuirksPropertyInfo = Settings
attrGet _ = getSettingsEnableSiteSpecificQuirks
attrSet _ = setSettingsEnableSiteSpecificQuirks
attrConstruct _ = constructSettingsEnableSiteSpecificQuirks
attrClear _ = undefined
#endif
getSettingsEnableSmoothScrolling :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSmoothScrolling obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-smooth-scrolling"
setSettingsEnableSmoothScrolling :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableSmoothScrolling obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-smooth-scrolling" val
constructSettingsEnableSmoothScrolling :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableSmoothScrolling val = B.Properties.constructObjectPropertyBool "enable-smooth-scrolling" val
#if ENABLE_OVERLOADING
data SettingsEnableSmoothScrollingPropertyInfo
instance AttrInfo SettingsEnableSmoothScrollingPropertyInfo where
type AttrAllowedOps SettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = IsSettings
type AttrGetType SettingsEnableSmoothScrollingPropertyInfo = Bool
type AttrLabel SettingsEnableSmoothScrollingPropertyInfo = "enable-smooth-scrolling"
type AttrOrigin SettingsEnableSmoothScrollingPropertyInfo = Settings
attrGet _ = getSettingsEnableSmoothScrolling
attrSet _ = setSettingsEnableSmoothScrolling
attrConstruct _ = constructSettingsEnableSmoothScrolling
attrClear _ = undefined
#endif
getSettingsEnableSpatialNavigation :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSpatialNavigation obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-spatial-navigation"
setSettingsEnableSpatialNavigation :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableSpatialNavigation obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-spatial-navigation" val
constructSettingsEnableSpatialNavigation :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableSpatialNavigation val = B.Properties.constructObjectPropertyBool "enable-spatial-navigation" val
#if ENABLE_OVERLOADING
data SettingsEnableSpatialNavigationPropertyInfo
instance AttrInfo SettingsEnableSpatialNavigationPropertyInfo where
type AttrAllowedOps SettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = IsSettings
type AttrGetType SettingsEnableSpatialNavigationPropertyInfo = Bool
type AttrLabel SettingsEnableSpatialNavigationPropertyInfo = "enable-spatial-navigation"
type AttrOrigin SettingsEnableSpatialNavigationPropertyInfo = Settings
attrGet _ = getSettingsEnableSpatialNavigation
attrSet _ = setSettingsEnableSpatialNavigation
attrConstruct _ = constructSettingsEnableSpatialNavigation
attrClear _ = undefined
#endif
getSettingsEnableTabsToLinks :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableTabsToLinks obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-tabs-to-links"
setSettingsEnableTabsToLinks :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableTabsToLinks obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-tabs-to-links" val
constructSettingsEnableTabsToLinks :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableTabsToLinks val = B.Properties.constructObjectPropertyBool "enable-tabs-to-links" val
#if ENABLE_OVERLOADING
data SettingsEnableTabsToLinksPropertyInfo
instance AttrInfo SettingsEnableTabsToLinksPropertyInfo where
type AttrAllowedOps SettingsEnableTabsToLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableTabsToLinksPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableTabsToLinksPropertyInfo = IsSettings
type AttrGetType SettingsEnableTabsToLinksPropertyInfo = Bool
type AttrLabel SettingsEnableTabsToLinksPropertyInfo = "enable-tabs-to-links"
type AttrOrigin SettingsEnableTabsToLinksPropertyInfo = Settings
attrGet _ = getSettingsEnableTabsToLinks
attrSet _ = setSettingsEnableTabsToLinks
attrConstruct _ = constructSettingsEnableTabsToLinks
attrClear _ = undefined
#endif
getSettingsEnableWebaudio :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebaudio obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-webaudio"
setSettingsEnableWebaudio :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableWebaudio obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-webaudio" val
constructSettingsEnableWebaudio :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableWebaudio val = B.Properties.constructObjectPropertyBool "enable-webaudio" val
#if ENABLE_OVERLOADING
data SettingsEnableWebaudioPropertyInfo
instance AttrInfo SettingsEnableWebaudioPropertyInfo where
type AttrAllowedOps SettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableWebaudioPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableWebaudioPropertyInfo = IsSettings
type AttrGetType SettingsEnableWebaudioPropertyInfo = Bool
type AttrLabel SettingsEnableWebaudioPropertyInfo = "enable-webaudio"
type AttrOrigin SettingsEnableWebaudioPropertyInfo = Settings
attrGet _ = getSettingsEnableWebaudio
attrSet _ = setSettingsEnableWebaudio
attrConstruct _ = constructSettingsEnableWebaudio
attrClear _ = undefined
#endif
getSettingsEnableWebgl :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebgl obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-webgl"
setSettingsEnableWebgl :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableWebgl obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-webgl" val
constructSettingsEnableWebgl :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableWebgl val = B.Properties.constructObjectPropertyBool "enable-webgl" val
#if ENABLE_OVERLOADING
data SettingsEnableWebglPropertyInfo
instance AttrInfo SettingsEnableWebglPropertyInfo where
type AttrAllowedOps SettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableWebglPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableWebglPropertyInfo = IsSettings
type AttrGetType SettingsEnableWebglPropertyInfo = Bool
type AttrLabel SettingsEnableWebglPropertyInfo = "enable-webgl"
type AttrOrigin SettingsEnableWebglPropertyInfo = Settings
attrGet _ = getSettingsEnableWebgl
attrSet _ = setSettingsEnableWebgl
attrConstruct _ = constructSettingsEnableWebgl
attrClear _ = undefined
#endif
getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWriteConsoleMessagesToStdout obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-write-console-messages-to-stdout"
setSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableWriteConsoleMessagesToStdout obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-write-console-messages-to-stdout" val
constructSettingsEnableWriteConsoleMessagesToStdout :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableWriteConsoleMessagesToStdout val = B.Properties.constructObjectPropertyBool "enable-write-console-messages-to-stdout" val
#if ENABLE_OVERLOADING
data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo
instance AttrInfo SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo where
type AttrAllowedOps SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = IsSettings
type AttrGetType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool
type AttrLabel SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = "enable-write-console-messages-to-stdout"
type AttrOrigin SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Settings
attrGet _ = getSettingsEnableWriteConsoleMessagesToStdout
attrSet _ = setSettingsEnableWriteConsoleMessagesToStdout
attrConstruct _ = constructSettingsEnableWriteConsoleMessagesToStdout
attrClear _ = undefined
#endif
getSettingsEnableXssAuditor :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableXssAuditor obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-xss-auditor"
setSettingsEnableXssAuditor :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableXssAuditor obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-xss-auditor" val
constructSettingsEnableXssAuditor :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsEnableXssAuditor val = B.Properties.constructObjectPropertyBool "enable-xss-auditor" val
#if ENABLE_OVERLOADING
data SettingsEnableXssAuditorPropertyInfo
instance AttrInfo SettingsEnableXssAuditorPropertyInfo where
type AttrAllowedOps SettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsEnableXssAuditorPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsEnableXssAuditorPropertyInfo = IsSettings
type AttrGetType SettingsEnableXssAuditorPropertyInfo = Bool
type AttrLabel SettingsEnableXssAuditorPropertyInfo = "enable-xss-auditor"
type AttrOrigin SettingsEnableXssAuditorPropertyInfo = Settings
attrGet _ = getSettingsEnableXssAuditor
attrSet _ = setSettingsEnableXssAuditor
attrConstruct _ = constructSettingsEnableXssAuditor
attrClear _ = undefined
#endif
getSettingsFantasyFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsFantasyFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsFantasyFontFamily" $ B.Properties.getObjectPropertyString obj "fantasy-font-family"
setSettingsFantasyFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsFantasyFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "fantasy-font-family" (Just val)
constructSettingsFantasyFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsFantasyFontFamily val = B.Properties.constructObjectPropertyString "fantasy-font-family" (Just val)
#if ENABLE_OVERLOADING
data SettingsFantasyFontFamilyPropertyInfo
instance AttrInfo SettingsFantasyFontFamilyPropertyInfo where
type AttrAllowedOps SettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsFantasyFontFamilyPropertyInfo = IsSettings
type AttrGetType SettingsFantasyFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsFantasyFontFamilyPropertyInfo = "fantasy-font-family"
type AttrOrigin SettingsFantasyFontFamilyPropertyInfo = Settings
attrGet _ = getSettingsFantasyFontFamily
attrSet _ = setSettingsFantasyFontFamily
attrConstruct _ = constructSettingsFantasyFontFamily
attrClear _ = undefined
#endif
getSettingsHardwareAccelerationPolicy :: (MonadIO m, IsSettings o) => o -> m WebKit2.Enums.HardwareAccelerationPolicy
getSettingsHardwareAccelerationPolicy obj = liftIO $ B.Properties.getObjectPropertyEnum obj "hardware-acceleration-policy"
setSettingsHardwareAccelerationPolicy :: (MonadIO m, IsSettings o) => o -> WebKit2.Enums.HardwareAccelerationPolicy -> m ()
setSettingsHardwareAccelerationPolicy obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "hardware-acceleration-policy" val
constructSettingsHardwareAccelerationPolicy :: (IsSettings o) => WebKit2.Enums.HardwareAccelerationPolicy -> IO (GValueConstruct o)
constructSettingsHardwareAccelerationPolicy val = B.Properties.constructObjectPropertyEnum "hardware-acceleration-policy" val
#if ENABLE_OVERLOADING
data SettingsHardwareAccelerationPolicyPropertyInfo
instance AttrInfo SettingsHardwareAccelerationPolicyPropertyInfo where
type AttrAllowedOps SettingsHardwareAccelerationPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = (~) WebKit2.Enums.HardwareAccelerationPolicy
type AttrBaseTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = IsSettings
type AttrGetType SettingsHardwareAccelerationPolicyPropertyInfo = WebKit2.Enums.HardwareAccelerationPolicy
type AttrLabel SettingsHardwareAccelerationPolicyPropertyInfo = "hardware-acceleration-policy"
type AttrOrigin SettingsHardwareAccelerationPolicyPropertyInfo = Settings
attrGet _ = getSettingsHardwareAccelerationPolicy
attrSet _ = setSettingsHardwareAccelerationPolicy
attrConstruct _ = constructSettingsHardwareAccelerationPolicy
attrClear _ = undefined
#endif
getSettingsJavascriptCanAccessClipboard :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsJavascriptCanAccessClipboard obj = liftIO $ B.Properties.getObjectPropertyBool obj "javascript-can-access-clipboard"
setSettingsJavascriptCanAccessClipboard :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsJavascriptCanAccessClipboard obj val = liftIO $ B.Properties.setObjectPropertyBool obj "javascript-can-access-clipboard" val
constructSettingsJavascriptCanAccessClipboard :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsJavascriptCanAccessClipboard val = B.Properties.constructObjectPropertyBool "javascript-can-access-clipboard" val
#if ENABLE_OVERLOADING
data SettingsJavascriptCanAccessClipboardPropertyInfo
instance AttrInfo SettingsJavascriptCanAccessClipboardPropertyInfo where
type AttrAllowedOps SettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = IsSettings
type AttrGetType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool
type AttrLabel SettingsJavascriptCanAccessClipboardPropertyInfo = "javascript-can-access-clipboard"
type AttrOrigin SettingsJavascriptCanAccessClipboardPropertyInfo = Settings
attrGet _ = getSettingsJavascriptCanAccessClipboard
attrSet _ = setSettingsJavascriptCanAccessClipboard
attrConstruct _ = constructSettingsJavascriptCanAccessClipboard
attrClear _ = undefined
#endif
getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ B.Properties.getObjectPropertyBool obj "javascript-can-open-windows-automatically"
setSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ B.Properties.setObjectPropertyBool obj "javascript-can-open-windows-automatically" val
constructSettingsJavascriptCanOpenWindowsAutomatically :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsJavascriptCanOpenWindowsAutomatically val = B.Properties.constructObjectPropertyBool "javascript-can-open-windows-automatically" val
#if ENABLE_OVERLOADING
data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo
instance AttrInfo SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where
type AttrAllowedOps SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = IsSettings
type AttrGetType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool
type AttrLabel SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "javascript-can-open-windows-automatically"
type AttrOrigin SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Settings
attrGet _ = getSettingsJavascriptCanOpenWindowsAutomatically
attrSet _ = setSettingsJavascriptCanOpenWindowsAutomatically
attrConstruct _ = constructSettingsJavascriptCanOpenWindowsAutomatically
attrClear _ = undefined
#endif
getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsLoadIconsIgnoringImageLoadSetting obj = liftIO $ B.Properties.getObjectPropertyBool obj "load-icons-ignoring-image-load-setting"
setSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsLoadIconsIgnoringImageLoadSetting obj val = liftIO $ B.Properties.setObjectPropertyBool obj "load-icons-ignoring-image-load-setting" val
constructSettingsLoadIconsIgnoringImageLoadSetting :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsLoadIconsIgnoringImageLoadSetting val = B.Properties.constructObjectPropertyBool "load-icons-ignoring-image-load-setting" val
#if ENABLE_OVERLOADING
data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo
instance AttrInfo SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo where
type AttrAllowedOps SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = IsSettings
type AttrGetType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool
type AttrLabel SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = "load-icons-ignoring-image-load-setting"
type AttrOrigin SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Settings
attrGet _ = getSettingsLoadIconsIgnoringImageLoadSetting
attrSet _ = setSettingsLoadIconsIgnoringImageLoadSetting
attrConstruct _ = constructSettingsLoadIconsIgnoringImageLoadSetting
attrClear _ = undefined
#endif
getSettingsMediaPlaybackAllowsInline :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsMediaPlaybackAllowsInline obj = liftIO $ B.Properties.getObjectPropertyBool obj "media-playback-allows-inline"
setSettingsMediaPlaybackAllowsInline :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsMediaPlaybackAllowsInline obj val = liftIO $ B.Properties.setObjectPropertyBool obj "media-playback-allows-inline" val
constructSettingsMediaPlaybackAllowsInline :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsMediaPlaybackAllowsInline val = B.Properties.constructObjectPropertyBool "media-playback-allows-inline" val
#if ENABLE_OVERLOADING
data SettingsMediaPlaybackAllowsInlinePropertyInfo
instance AttrInfo SettingsMediaPlaybackAllowsInlinePropertyInfo where
type AttrAllowedOps SettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = IsSettings
type AttrGetType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool
type AttrLabel SettingsMediaPlaybackAllowsInlinePropertyInfo = "media-playback-allows-inline"
type AttrOrigin SettingsMediaPlaybackAllowsInlinePropertyInfo = Settings
attrGet _ = getSettingsMediaPlaybackAllowsInline
attrSet _ = setSettingsMediaPlaybackAllowsInline
attrConstruct _ = constructSettingsMediaPlaybackAllowsInline
attrClear _ = undefined
#endif
getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ B.Properties.getObjectPropertyBool obj "media-playback-requires-user-gesture"
setSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ B.Properties.setObjectPropertyBool obj "media-playback-requires-user-gesture" val
constructSettingsMediaPlaybackRequiresUserGesture :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsMediaPlaybackRequiresUserGesture val = B.Properties.constructObjectPropertyBool "media-playback-requires-user-gesture" val
#if ENABLE_OVERLOADING
data SettingsMediaPlaybackRequiresUserGesturePropertyInfo
instance AttrInfo SettingsMediaPlaybackRequiresUserGesturePropertyInfo where
type AttrAllowedOps SettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = IsSettings
type AttrGetType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool
type AttrLabel SettingsMediaPlaybackRequiresUserGesturePropertyInfo = "media-playback-requires-user-gesture"
type AttrOrigin SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Settings
attrGet _ = getSettingsMediaPlaybackRequiresUserGesture
attrSet _ = setSettingsMediaPlaybackRequiresUserGesture
attrConstruct _ = constructSettingsMediaPlaybackRequiresUserGesture
attrClear _ = undefined
#endif
getSettingsMinimumFontSize :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsMinimumFontSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "minimum-font-size"
setSettingsMinimumFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()
setSettingsMinimumFontSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "minimum-font-size" val
constructSettingsMinimumFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o)
constructSettingsMinimumFontSize val = B.Properties.constructObjectPropertyUInt32 "minimum-font-size" val
#if ENABLE_OVERLOADING
data SettingsMinimumFontSizePropertyInfo
instance AttrInfo SettingsMinimumFontSizePropertyInfo where
type AttrAllowedOps SettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint SettingsMinimumFontSizePropertyInfo = IsSettings
type AttrGetType SettingsMinimumFontSizePropertyInfo = Word32
type AttrLabel SettingsMinimumFontSizePropertyInfo = "minimum-font-size"
type AttrOrigin SettingsMinimumFontSizePropertyInfo = Settings
attrGet _ = getSettingsMinimumFontSize
attrSet _ = setSettingsMinimumFontSize
attrConstruct _ = constructSettingsMinimumFontSize
attrClear _ = undefined
#endif
getSettingsMonospaceFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsMonospaceFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsMonospaceFontFamily" $ B.Properties.getObjectPropertyString obj "monospace-font-family"
setSettingsMonospaceFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsMonospaceFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "monospace-font-family" (Just val)
constructSettingsMonospaceFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsMonospaceFontFamily val = B.Properties.constructObjectPropertyString "monospace-font-family" (Just val)
#if ENABLE_OVERLOADING
data SettingsMonospaceFontFamilyPropertyInfo
instance AttrInfo SettingsMonospaceFontFamilyPropertyInfo where
type AttrAllowedOps SettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = IsSettings
type AttrGetType SettingsMonospaceFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsMonospaceFontFamilyPropertyInfo = "monospace-font-family"
type AttrOrigin SettingsMonospaceFontFamilyPropertyInfo = Settings
attrGet _ = getSettingsMonospaceFontFamily
attrSet _ = setSettingsMonospaceFontFamily
attrConstruct _ = constructSettingsMonospaceFontFamily
attrClear _ = undefined
#endif
getSettingsPictographFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsPictographFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsPictographFontFamily" $ B.Properties.getObjectPropertyString obj "pictograph-font-family"
setSettingsPictographFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsPictographFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "pictograph-font-family" (Just val)
constructSettingsPictographFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsPictographFontFamily val = B.Properties.constructObjectPropertyString "pictograph-font-family" (Just val)
#if ENABLE_OVERLOADING
data SettingsPictographFontFamilyPropertyInfo
instance AttrInfo SettingsPictographFontFamilyPropertyInfo where
type AttrAllowedOps SettingsPictographFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsPictographFontFamilyPropertyInfo = IsSettings
type AttrGetType SettingsPictographFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsPictographFontFamilyPropertyInfo = "pictograph-font-family"
type AttrOrigin SettingsPictographFontFamilyPropertyInfo = Settings
attrGet _ = getSettingsPictographFontFamily
attrSet _ = setSettingsPictographFontFamily
attrConstruct _ = constructSettingsPictographFontFamily
attrClear _ = undefined
#endif
getSettingsPrintBackgrounds :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsPrintBackgrounds obj = liftIO $ B.Properties.getObjectPropertyBool obj "print-backgrounds"
setSettingsPrintBackgrounds :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsPrintBackgrounds obj val = liftIO $ B.Properties.setObjectPropertyBool obj "print-backgrounds" val
constructSettingsPrintBackgrounds :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsPrintBackgrounds val = B.Properties.constructObjectPropertyBool "print-backgrounds" val
#if ENABLE_OVERLOADING
data SettingsPrintBackgroundsPropertyInfo
instance AttrInfo SettingsPrintBackgroundsPropertyInfo where
type AttrAllowedOps SettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsPrintBackgroundsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsPrintBackgroundsPropertyInfo = IsSettings
type AttrGetType SettingsPrintBackgroundsPropertyInfo = Bool
type AttrLabel SettingsPrintBackgroundsPropertyInfo = "print-backgrounds"
type AttrOrigin SettingsPrintBackgroundsPropertyInfo = Settings
attrGet _ = getSettingsPrintBackgrounds
attrSet _ = setSettingsPrintBackgrounds
attrConstruct _ = constructSettingsPrintBackgrounds
attrClear _ = undefined
#endif
getSettingsSansSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsSansSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSansSerifFontFamily" $ B.Properties.getObjectPropertyString obj "sans-serif-font-family"
setSettingsSansSerifFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsSansSerifFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "sans-serif-font-family" (Just val)
constructSettingsSansSerifFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsSansSerifFontFamily val = B.Properties.constructObjectPropertyString "sans-serif-font-family" (Just val)
#if ENABLE_OVERLOADING
data SettingsSansSerifFontFamilyPropertyInfo
instance AttrInfo SettingsSansSerifFontFamilyPropertyInfo where
type AttrAllowedOps SettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = IsSettings
type AttrGetType SettingsSansSerifFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsSansSerifFontFamilyPropertyInfo = "sans-serif-font-family"
type AttrOrigin SettingsSansSerifFontFamilyPropertyInfo = Settings
attrGet _ = getSettingsSansSerifFontFamily
attrSet _ = setSettingsSansSerifFontFamily
attrConstruct _ = constructSettingsSansSerifFontFamily
attrClear _ = undefined
#endif
getSettingsSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSerifFontFamily" $ B.Properties.getObjectPropertyString obj "serif-font-family"
setSettingsSerifFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsSerifFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "serif-font-family" (Just val)
constructSettingsSerifFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsSerifFontFamily val = B.Properties.constructObjectPropertyString "serif-font-family" (Just val)
#if ENABLE_OVERLOADING
data SettingsSerifFontFamilyPropertyInfo
instance AttrInfo SettingsSerifFontFamilyPropertyInfo where
type AttrAllowedOps SettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsSerifFontFamilyPropertyInfo = IsSettings
type AttrGetType SettingsSerifFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsSerifFontFamilyPropertyInfo = "serif-font-family"
type AttrOrigin SettingsSerifFontFamilyPropertyInfo = Settings
attrGet _ = getSettingsSerifFontFamily
attrSet _ = setSettingsSerifFontFamily
attrConstruct _ = constructSettingsSerifFontFamily
attrClear _ = undefined
#endif
getSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsUserAgent obj = liftIO $ checkUnexpectedNothing "getSettingsUserAgent" $ B.Properties.getObjectPropertyString obj "user-agent"
setSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsUserAgent obj val = liftIO $ B.Properties.setObjectPropertyString obj "user-agent" (Just val)
constructSettingsUserAgent :: (IsSettings o) => T.Text -> IO (GValueConstruct o)
constructSettingsUserAgent val = B.Properties.constructObjectPropertyString "user-agent" (Just val)
clearSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsUserAgent obj = liftIO $ B.Properties.setObjectPropertyString obj "user-agent" (Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data SettingsUserAgentPropertyInfo
instance AttrInfo SettingsUserAgentPropertyInfo where
type AttrAllowedOps SettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsUserAgentPropertyInfo = IsSettings
type AttrGetType SettingsUserAgentPropertyInfo = T.Text
type AttrLabel SettingsUserAgentPropertyInfo = "user-agent"
type AttrOrigin SettingsUserAgentPropertyInfo = Settings
attrGet _ = getSettingsUserAgent
attrSet _ = setSettingsUserAgent
attrConstruct _ = constructSettingsUserAgent
attrClear _ = clearSettingsUserAgent
#endif
getSettingsZoomTextOnly :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsZoomTextOnly obj = liftIO $ B.Properties.getObjectPropertyBool obj "zoom-text-only"
setSettingsZoomTextOnly :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsZoomTextOnly obj val = liftIO $ B.Properties.setObjectPropertyBool obj "zoom-text-only" val
constructSettingsZoomTextOnly :: (IsSettings o) => Bool -> IO (GValueConstruct o)
constructSettingsZoomTextOnly val = B.Properties.constructObjectPropertyBool "zoom-text-only" val
#if ENABLE_OVERLOADING
data SettingsZoomTextOnlyPropertyInfo
instance AttrInfo SettingsZoomTextOnlyPropertyInfo where
type AttrAllowedOps SettingsZoomTextOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsZoomTextOnlyPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SettingsZoomTextOnlyPropertyInfo = IsSettings
type AttrGetType SettingsZoomTextOnlyPropertyInfo = Bool
type AttrLabel SettingsZoomTextOnlyPropertyInfo = "zoom-text-only"
type AttrOrigin SettingsZoomTextOnlyPropertyInfo = Settings
attrGet _ = getSettingsZoomTextOnly
attrSet _ = setSettingsZoomTextOnly
attrConstruct _ = constructSettingsZoomTextOnly
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList Settings
type instance O.AttributeList Settings = SettingsAttributeList
type SettingsAttributeList = ('[ '("allowFileAccessFromFileUrls", SettingsAllowFileAccessFromFileUrlsPropertyInfo), '("allowModalDialogs", SettingsAllowModalDialogsPropertyInfo), '("allowUniversalAccessFromFileUrls", SettingsAllowUniversalAccessFromFileUrlsPropertyInfo), '("autoLoadImages", SettingsAutoLoadImagesPropertyInfo), '("cursiveFontFamily", SettingsCursiveFontFamilyPropertyInfo), '("defaultCharset", SettingsDefaultCharsetPropertyInfo), '("defaultFontFamily", SettingsDefaultFontFamilyPropertyInfo), '("defaultFontSize", SettingsDefaultFontSizePropertyInfo), '("defaultMonospaceFontSize", SettingsDefaultMonospaceFontSizePropertyInfo), '("drawCompositingIndicators", SettingsDrawCompositingIndicatorsPropertyInfo), '("enableAccelerated2dCanvas", SettingsEnableAccelerated2dCanvasPropertyInfo), '("enableBackForwardNavigationGestures", SettingsEnableBackForwardNavigationGesturesPropertyInfo), '("enableCaretBrowsing", SettingsEnableCaretBrowsingPropertyInfo), '("enableDeveloperExtras", SettingsEnableDeveloperExtrasPropertyInfo), '("enableDnsPrefetching", SettingsEnableDnsPrefetchingPropertyInfo), '("enableEncryptedMedia", SettingsEnableEncryptedMediaPropertyInfo), '("enableFrameFlattening", SettingsEnableFrameFlatteningPropertyInfo), '("enableFullscreen", SettingsEnableFullscreenPropertyInfo), '("enableHtml5Database", SettingsEnableHtml5DatabasePropertyInfo), '("enableHtml5LocalStorage", SettingsEnableHtml5LocalStoragePropertyInfo), '("enableHyperlinkAuditing", SettingsEnableHyperlinkAuditingPropertyInfo), '("enableJava", SettingsEnableJavaPropertyInfo), '("enableJavascript", SettingsEnableJavascriptPropertyInfo), '("enableJavascriptMarkup", SettingsEnableJavascriptMarkupPropertyInfo), '("enableMediaCapabilities", SettingsEnableMediaCapabilitiesPropertyInfo), '("enableMediaStream", SettingsEnableMediaStreamPropertyInfo), '("enableMediasource", SettingsEnableMediasourcePropertyInfo), '("enableMockCaptureDevices", SettingsEnableMockCaptureDevicesPropertyInfo), '("enableOfflineWebApplicationCache", SettingsEnableOfflineWebApplicationCachePropertyInfo), '("enablePageCache", SettingsEnablePageCachePropertyInfo), '("enablePlugins", SettingsEnablePluginsPropertyInfo), '("enablePrivateBrowsing", SettingsEnablePrivateBrowsingPropertyInfo), '("enableResizableTextAreas", SettingsEnableResizableTextAreasPropertyInfo), '("enableSiteSpecificQuirks", SettingsEnableSiteSpecificQuirksPropertyInfo), '("enableSmoothScrolling", SettingsEnableSmoothScrollingPropertyInfo), '("enableSpatialNavigation", SettingsEnableSpatialNavigationPropertyInfo), '("enableTabsToLinks", SettingsEnableTabsToLinksPropertyInfo), '("enableWebaudio", SettingsEnableWebaudioPropertyInfo), '("enableWebgl", SettingsEnableWebglPropertyInfo), '("enableWriteConsoleMessagesToStdout", SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo), '("enableXssAuditor", SettingsEnableXssAuditorPropertyInfo), '("fantasyFontFamily", SettingsFantasyFontFamilyPropertyInfo), '("hardwareAccelerationPolicy", SettingsHardwareAccelerationPolicyPropertyInfo), '("javascriptCanAccessClipboard", SettingsJavascriptCanAccessClipboardPropertyInfo), '("javascriptCanOpenWindowsAutomatically", SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("loadIconsIgnoringImageLoadSetting", SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo), '("mediaPlaybackAllowsInline", SettingsMediaPlaybackAllowsInlinePropertyInfo), '("mediaPlaybackRequiresUserGesture", SettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimumFontSize", SettingsMinimumFontSizePropertyInfo), '("monospaceFontFamily", SettingsMonospaceFontFamilyPropertyInfo), '("pictographFontFamily", SettingsPictographFontFamilyPropertyInfo), '("printBackgrounds", SettingsPrintBackgroundsPropertyInfo), '("sansSerifFontFamily", SettingsSansSerifFontFamilyPropertyInfo), '("serifFontFamily", SettingsSerifFontFamilyPropertyInfo), '("userAgent", SettingsUserAgentPropertyInfo), '("zoomTextOnly", SettingsZoomTextOnlyPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
settingsAllowFileAccessFromFileUrls :: AttrLabelProxy "allowFileAccessFromFileUrls"
settingsAllowFileAccessFromFileUrls = AttrLabelProxy
settingsAllowModalDialogs :: AttrLabelProxy "allowModalDialogs"
settingsAllowModalDialogs = AttrLabelProxy
settingsAllowUniversalAccessFromFileUrls :: AttrLabelProxy "allowUniversalAccessFromFileUrls"
settingsAllowUniversalAccessFromFileUrls = AttrLabelProxy
settingsAutoLoadImages :: AttrLabelProxy "autoLoadImages"
settingsAutoLoadImages = AttrLabelProxy
settingsCursiveFontFamily :: AttrLabelProxy "cursiveFontFamily"
settingsCursiveFontFamily = AttrLabelProxy
settingsDefaultCharset :: AttrLabelProxy "defaultCharset"
settingsDefaultCharset = AttrLabelProxy
settingsDefaultFontFamily :: AttrLabelProxy "defaultFontFamily"
settingsDefaultFontFamily = AttrLabelProxy
settingsDefaultFontSize :: AttrLabelProxy "defaultFontSize"
settingsDefaultFontSize = AttrLabelProxy
settingsDefaultMonospaceFontSize :: AttrLabelProxy "defaultMonospaceFontSize"
settingsDefaultMonospaceFontSize = AttrLabelProxy
settingsDrawCompositingIndicators :: AttrLabelProxy "drawCompositingIndicators"
settingsDrawCompositingIndicators = AttrLabelProxy
settingsEnableAccelerated2dCanvas :: AttrLabelProxy "enableAccelerated2dCanvas"
settingsEnableAccelerated2dCanvas = AttrLabelProxy
settingsEnableBackForwardNavigationGestures :: AttrLabelProxy "enableBackForwardNavigationGestures"
settingsEnableBackForwardNavigationGestures = AttrLabelProxy
settingsEnableCaretBrowsing :: AttrLabelProxy "enableCaretBrowsing"
settingsEnableCaretBrowsing = AttrLabelProxy
settingsEnableDeveloperExtras :: AttrLabelProxy "enableDeveloperExtras"
settingsEnableDeveloperExtras = AttrLabelProxy
settingsEnableDnsPrefetching :: AttrLabelProxy "enableDnsPrefetching"
settingsEnableDnsPrefetching = AttrLabelProxy
settingsEnableEncryptedMedia :: AttrLabelProxy "enableEncryptedMedia"
settingsEnableEncryptedMedia = AttrLabelProxy
settingsEnableFrameFlattening :: AttrLabelProxy "enableFrameFlattening"
settingsEnableFrameFlattening = AttrLabelProxy
settingsEnableFullscreen :: AttrLabelProxy "enableFullscreen"
settingsEnableFullscreen = AttrLabelProxy
settingsEnableHtml5Database :: AttrLabelProxy "enableHtml5Database"
settingsEnableHtml5Database = AttrLabelProxy
settingsEnableHtml5LocalStorage :: AttrLabelProxy "enableHtml5LocalStorage"
settingsEnableHtml5LocalStorage = AttrLabelProxy
settingsEnableHyperlinkAuditing :: AttrLabelProxy "enableHyperlinkAuditing"
settingsEnableHyperlinkAuditing = AttrLabelProxy
settingsEnableJava :: AttrLabelProxy "enableJava"
settingsEnableJava = AttrLabelProxy
settingsEnableJavascript :: AttrLabelProxy "enableJavascript"
settingsEnableJavascript = AttrLabelProxy
settingsEnableJavascriptMarkup :: AttrLabelProxy "enableJavascriptMarkup"
settingsEnableJavascriptMarkup = AttrLabelProxy
settingsEnableMediaCapabilities :: AttrLabelProxy "enableMediaCapabilities"
settingsEnableMediaCapabilities = AttrLabelProxy
settingsEnableMediaStream :: AttrLabelProxy "enableMediaStream"
settingsEnableMediaStream = AttrLabelProxy
settingsEnableMediasource :: AttrLabelProxy "enableMediasource"
settingsEnableMediasource = AttrLabelProxy
settingsEnableMockCaptureDevices :: AttrLabelProxy "enableMockCaptureDevices"
settingsEnableMockCaptureDevices = AttrLabelProxy
settingsEnableOfflineWebApplicationCache :: AttrLabelProxy "enableOfflineWebApplicationCache"
settingsEnableOfflineWebApplicationCache = AttrLabelProxy
settingsEnablePageCache :: AttrLabelProxy "enablePageCache"
settingsEnablePageCache = AttrLabelProxy
settingsEnablePlugins :: AttrLabelProxy "enablePlugins"
settingsEnablePlugins = AttrLabelProxy
settingsEnablePrivateBrowsing :: AttrLabelProxy "enablePrivateBrowsing"
settingsEnablePrivateBrowsing = AttrLabelProxy
settingsEnableResizableTextAreas :: AttrLabelProxy "enableResizableTextAreas"
settingsEnableResizableTextAreas = AttrLabelProxy
settingsEnableSiteSpecificQuirks :: AttrLabelProxy "enableSiteSpecificQuirks"
settingsEnableSiteSpecificQuirks = AttrLabelProxy
settingsEnableSmoothScrolling :: AttrLabelProxy "enableSmoothScrolling"
settingsEnableSmoothScrolling = AttrLabelProxy
settingsEnableSpatialNavigation :: AttrLabelProxy "enableSpatialNavigation"
settingsEnableSpatialNavigation = AttrLabelProxy
settingsEnableTabsToLinks :: AttrLabelProxy "enableTabsToLinks"
settingsEnableTabsToLinks = AttrLabelProxy
settingsEnableWebaudio :: AttrLabelProxy "enableWebaudio"
settingsEnableWebaudio = AttrLabelProxy
settingsEnableWebgl :: AttrLabelProxy "enableWebgl"
settingsEnableWebgl = AttrLabelProxy
settingsEnableWriteConsoleMessagesToStdout :: AttrLabelProxy "enableWriteConsoleMessagesToStdout"
settingsEnableWriteConsoleMessagesToStdout = AttrLabelProxy
settingsEnableXssAuditor :: AttrLabelProxy "enableXssAuditor"
settingsEnableXssAuditor = AttrLabelProxy
settingsFantasyFontFamily :: AttrLabelProxy "fantasyFontFamily"
settingsFantasyFontFamily = AttrLabelProxy
settingsHardwareAccelerationPolicy :: AttrLabelProxy "hardwareAccelerationPolicy"
settingsHardwareAccelerationPolicy = AttrLabelProxy
settingsJavascriptCanAccessClipboard :: AttrLabelProxy "javascriptCanAccessClipboard"
settingsJavascriptCanAccessClipboard = AttrLabelProxy
settingsJavascriptCanOpenWindowsAutomatically :: AttrLabelProxy "javascriptCanOpenWindowsAutomatically"
settingsJavascriptCanOpenWindowsAutomatically = AttrLabelProxy
settingsLoadIconsIgnoringImageLoadSetting :: AttrLabelProxy "loadIconsIgnoringImageLoadSetting"
settingsLoadIconsIgnoringImageLoadSetting = AttrLabelProxy
settingsMediaPlaybackAllowsInline :: AttrLabelProxy "mediaPlaybackAllowsInline"
settingsMediaPlaybackAllowsInline = AttrLabelProxy
settingsMediaPlaybackRequiresUserGesture :: AttrLabelProxy "mediaPlaybackRequiresUserGesture"
settingsMediaPlaybackRequiresUserGesture = AttrLabelProxy
settingsMinimumFontSize :: AttrLabelProxy "minimumFontSize"
settingsMinimumFontSize = AttrLabelProxy
settingsMonospaceFontFamily :: AttrLabelProxy "monospaceFontFamily"
settingsMonospaceFontFamily = AttrLabelProxy
settingsPictographFontFamily :: AttrLabelProxy "pictographFontFamily"
settingsPictographFontFamily = AttrLabelProxy
settingsPrintBackgrounds :: AttrLabelProxy "printBackgrounds"
settingsPrintBackgrounds = AttrLabelProxy
settingsSansSerifFontFamily :: AttrLabelProxy "sansSerifFontFamily"
settingsSansSerifFontFamily = AttrLabelProxy
settingsSerifFontFamily :: AttrLabelProxy "serifFontFamily"
settingsSerifFontFamily = AttrLabelProxy
settingsUserAgent :: AttrLabelProxy "userAgent"
settingsUserAgent = AttrLabelProxy
settingsZoomTextOnly :: AttrLabelProxy "zoomTextOnly"
settingsZoomTextOnly = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList Settings = SettingsSignalList
type SettingsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_settings_new" webkit_settings_new ::
IO (Ptr Settings)
settingsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Settings
settingsNew = liftIO $ do
result <- webkit_settings_new
checkUnexpectedReturnNULL "settingsNew" result
result' <- (wrapObject Settings) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_settings_get_allow_file_access_from_file_urls" webkit_settings_get_allow_file_access_from_file_urls ::
Ptr Settings ->
IO CInt
settingsGetAllowFileAccessFromFileUrls ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetAllowFileAccessFromFileUrls settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_allow_file_access_from_file_urls settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetAllowFileAccessFromFileUrlsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAllowFileAccessFromFileUrlsMethodInfo a signature where
overloadedMethod _ = settingsGetAllowFileAccessFromFileUrls
#endif
foreign import ccall "webkit_settings_get_allow_modal_dialogs" webkit_settings_get_allow_modal_dialogs ::
Ptr Settings ->
IO CInt
settingsGetAllowModalDialogs ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetAllowModalDialogs settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_allow_modal_dialogs settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetAllowModalDialogsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAllowModalDialogsMethodInfo a signature where
overloadedMethod _ = settingsGetAllowModalDialogs
#endif
foreign import ccall "webkit_settings_get_allow_universal_access_from_file_urls" webkit_settings_get_allow_universal_access_from_file_urls ::
Ptr Settings ->
IO CInt
settingsGetAllowUniversalAccessFromFileUrls ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetAllowUniversalAccessFromFileUrls settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_allow_universal_access_from_file_urls settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo a signature where
overloadedMethod _ = settingsGetAllowUniversalAccessFromFileUrls
#endif
foreign import ccall "webkit_settings_get_auto_load_images" webkit_settings_get_auto_load_images ::
Ptr Settings ->
IO CInt
settingsGetAutoLoadImages ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetAutoLoadImages settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_auto_load_images settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetAutoLoadImagesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAutoLoadImagesMethodInfo a signature where
overloadedMethod _ = settingsGetAutoLoadImages
#endif
foreign import ccall "webkit_settings_get_cursive_font_family" webkit_settings_get_cursive_font_family ::
Ptr Settings ->
IO CString
settingsGetCursiveFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetCursiveFontFamily settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_cursive_font_family settings'
checkUnexpectedReturnNULL "settingsGetCursiveFontFamily" result
result' <- cstringToText result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetCursiveFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetCursiveFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetCursiveFontFamily
#endif
foreign import ccall "webkit_settings_get_default_charset" webkit_settings_get_default_charset ::
Ptr Settings ->
IO CString
settingsGetDefaultCharset ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetDefaultCharset settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_default_charset settings'
checkUnexpectedReturnNULL "settingsGetDefaultCharset" result
result' <- cstringToText result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetDefaultCharsetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultCharsetMethodInfo a signature where
overloadedMethod _ = settingsGetDefaultCharset
#endif
foreign import ccall "webkit_settings_get_default_font_family" webkit_settings_get_default_font_family ::
Ptr Settings ->
IO CString
settingsGetDefaultFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetDefaultFontFamily settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_default_font_family settings'
checkUnexpectedReturnNULL "settingsGetDefaultFontFamily" result
result' <- cstringToText result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetDefaultFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetDefaultFontFamily
#endif
foreign import ccall "webkit_settings_get_default_font_size" webkit_settings_get_default_font_size ::
Ptr Settings ->
IO Word32
settingsGetDefaultFontSize ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Word32
settingsGetDefaultFontSize settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_default_font_size settings'
touchManagedPtr settings
return result
#if ENABLE_OVERLOADING
data SettingsGetDefaultFontSizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultFontSizeMethodInfo a signature where
overloadedMethod _ = settingsGetDefaultFontSize
#endif
foreign import ccall "webkit_settings_get_default_monospace_font_size" webkit_settings_get_default_monospace_font_size ::
Ptr Settings ->
IO Word32
settingsGetDefaultMonospaceFontSize ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Word32
settingsGetDefaultMonospaceFontSize settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_default_monospace_font_size settings'
touchManagedPtr settings
return result
#if ENABLE_OVERLOADING
data SettingsGetDefaultMonospaceFontSizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultMonospaceFontSizeMethodInfo a signature where
overloadedMethod _ = settingsGetDefaultMonospaceFontSize
#endif
foreign import ccall "webkit_settings_get_draw_compositing_indicators" webkit_settings_get_draw_compositing_indicators ::
Ptr Settings ->
IO CInt
settingsGetDrawCompositingIndicators ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetDrawCompositingIndicators settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_draw_compositing_indicators settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetDrawCompositingIndicatorsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDrawCompositingIndicatorsMethodInfo a signature where
overloadedMethod _ = settingsGetDrawCompositingIndicators
#endif
foreign import ccall "webkit_settings_get_enable_accelerated_2d_canvas" webkit_settings_get_enable_accelerated_2d_canvas ::
Ptr Settings ->
IO CInt
settingsGetEnableAccelerated2dCanvas ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableAccelerated2dCanvas settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_accelerated_2d_canvas settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableAccelerated2dCanvasMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableAccelerated2dCanvasMethodInfo a signature where
overloadedMethod _ = settingsGetEnableAccelerated2dCanvas
#endif
foreign import ccall "webkit_settings_get_enable_back_forward_navigation_gestures" webkit_settings_get_enable_back_forward_navigation_gestures ::
Ptr Settings ->
IO CInt
settingsGetEnableBackForwardNavigationGestures ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableBackForwardNavigationGestures settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_back_forward_navigation_gestures settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableBackForwardNavigationGesturesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableBackForwardNavigationGesturesMethodInfo a signature where
overloadedMethod _ = settingsGetEnableBackForwardNavigationGestures
#endif
foreign import ccall "webkit_settings_get_enable_caret_browsing" webkit_settings_get_enable_caret_browsing ::
Ptr Settings ->
IO CInt
settingsGetEnableCaretBrowsing ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableCaretBrowsing settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_caret_browsing settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableCaretBrowsingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableCaretBrowsingMethodInfo a signature where
overloadedMethod _ = settingsGetEnableCaretBrowsing
#endif
foreign import ccall "webkit_settings_get_enable_developer_extras" webkit_settings_get_enable_developer_extras ::
Ptr Settings ->
IO CInt
settingsGetEnableDeveloperExtras ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableDeveloperExtras settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_developer_extras settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableDeveloperExtrasMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableDeveloperExtrasMethodInfo a signature where
overloadedMethod _ = settingsGetEnableDeveloperExtras
#endif
foreign import ccall "webkit_settings_get_enable_dns_prefetching" webkit_settings_get_enable_dns_prefetching ::
Ptr Settings ->
IO CInt
settingsGetEnableDnsPrefetching ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableDnsPrefetching settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_dns_prefetching settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableDnsPrefetchingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableDnsPrefetchingMethodInfo a signature where
overloadedMethod _ = settingsGetEnableDnsPrefetching
#endif
foreign import ccall "webkit_settings_get_enable_encrypted_media" webkit_settings_get_enable_encrypted_media ::
Ptr Settings ->
IO CInt
settingsGetEnableEncryptedMedia ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableEncryptedMedia settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_encrypted_media settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableEncryptedMediaMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableEncryptedMediaMethodInfo a signature where
overloadedMethod _ = settingsGetEnableEncryptedMedia
#endif
foreign import ccall "webkit_settings_get_enable_frame_flattening" webkit_settings_get_enable_frame_flattening ::
Ptr Settings ->
IO CInt
settingsGetEnableFrameFlattening ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableFrameFlattening settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_frame_flattening settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableFrameFlatteningMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableFrameFlatteningMethodInfo a signature where
overloadedMethod _ = settingsGetEnableFrameFlattening
#endif
foreign import ccall "webkit_settings_get_enable_fullscreen" webkit_settings_get_enable_fullscreen ::
Ptr Settings ->
IO CInt
settingsGetEnableFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableFullscreen settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_fullscreen settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableFullscreenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableFullscreenMethodInfo a signature where
overloadedMethod _ = settingsGetEnableFullscreen
#endif
foreign import ccall "webkit_settings_get_enable_html5_database" webkit_settings_get_enable_html5_database ::
Ptr Settings ->
IO CInt
settingsGetEnableHtml5Database ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableHtml5Database settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_html5_database settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableHtml5DatabaseMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableHtml5DatabaseMethodInfo a signature where
overloadedMethod _ = settingsGetEnableHtml5Database
#endif
foreign import ccall "webkit_settings_get_enable_html5_local_storage" webkit_settings_get_enable_html5_local_storage ::
Ptr Settings ->
IO CInt
settingsGetEnableHtml5LocalStorage ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableHtml5LocalStorage settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_html5_local_storage settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableHtml5LocalStorageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableHtml5LocalStorageMethodInfo a signature where
overloadedMethod _ = settingsGetEnableHtml5LocalStorage
#endif
foreign import ccall "webkit_settings_get_enable_hyperlink_auditing" webkit_settings_get_enable_hyperlink_auditing ::
Ptr Settings ->
IO CInt
settingsGetEnableHyperlinkAuditing ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableHyperlinkAuditing settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_hyperlink_auditing settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableHyperlinkAuditingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableHyperlinkAuditingMethodInfo a signature where
overloadedMethod _ = settingsGetEnableHyperlinkAuditing
#endif
foreign import ccall "webkit_settings_get_enable_java" webkit_settings_get_enable_java ::
Ptr Settings ->
IO CInt
settingsGetEnableJava ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableJava settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_java settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableJavaMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableJavaMethodInfo a signature where
overloadedMethod _ = settingsGetEnableJava
#endif
foreign import ccall "webkit_settings_get_enable_javascript" webkit_settings_get_enable_javascript ::
Ptr Settings ->
IO CInt
settingsGetEnableJavascript ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableJavascript settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_javascript settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableJavascriptMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableJavascriptMethodInfo a signature where
overloadedMethod _ = settingsGetEnableJavascript
#endif
foreign import ccall "webkit_settings_get_enable_javascript_markup" webkit_settings_get_enable_javascript_markup ::
Ptr Settings ->
IO CInt
settingsGetEnableJavascriptMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableJavascriptMarkup settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_javascript_markup settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableJavascriptMarkupMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableJavascriptMarkupMethodInfo a signature where
overloadedMethod _ = settingsGetEnableJavascriptMarkup
#endif
foreign import ccall "webkit_settings_get_enable_media_capabilities" webkit_settings_get_enable_media_capabilities ::
Ptr Settings ->
IO CInt
settingsGetEnableMediaCapabilities ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableMediaCapabilities settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_media_capabilities settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableMediaCapabilitiesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMediaCapabilitiesMethodInfo a signature where
overloadedMethod _ = settingsGetEnableMediaCapabilities
#endif
foreign import ccall "webkit_settings_get_enable_media_stream" webkit_settings_get_enable_media_stream ::
Ptr Settings ->
IO CInt
settingsGetEnableMediaStream ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableMediaStream settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_media_stream settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableMediaStreamMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMediaStreamMethodInfo a signature where
overloadedMethod _ = settingsGetEnableMediaStream
#endif
foreign import ccall "webkit_settings_get_enable_mediasource" webkit_settings_get_enable_mediasource ::
Ptr Settings ->
IO CInt
settingsGetEnableMediasource ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableMediasource settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_mediasource settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableMediasourceMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMediasourceMethodInfo a signature where
overloadedMethod _ = settingsGetEnableMediasource
#endif
foreign import ccall "webkit_settings_get_enable_mock_capture_devices" webkit_settings_get_enable_mock_capture_devices ::
Ptr Settings ->
IO CInt
settingsGetEnableMockCaptureDevices ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableMockCaptureDevices settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_mock_capture_devices settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableMockCaptureDevicesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMockCaptureDevicesMethodInfo a signature where
overloadedMethod _ = settingsGetEnableMockCaptureDevices
#endif
foreign import ccall "webkit_settings_get_enable_offline_web_application_cache" webkit_settings_get_enable_offline_web_application_cache ::
Ptr Settings ->
IO CInt
settingsGetEnableOfflineWebApplicationCache ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableOfflineWebApplicationCache settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_offline_web_application_cache settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableOfflineWebApplicationCacheMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableOfflineWebApplicationCacheMethodInfo a signature where
overloadedMethod _ = settingsGetEnableOfflineWebApplicationCache
#endif
foreign import ccall "webkit_settings_get_enable_page_cache" webkit_settings_get_enable_page_cache ::
Ptr Settings ->
IO CInt
settingsGetEnablePageCache ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnablePageCache settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_page_cache settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnablePageCacheMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnablePageCacheMethodInfo a signature where
overloadedMethod _ = settingsGetEnablePageCache
#endif
foreign import ccall "webkit_settings_get_enable_plugins" webkit_settings_get_enable_plugins ::
Ptr Settings ->
IO CInt
settingsGetEnablePlugins ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnablePlugins settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_plugins settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnablePluginsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnablePluginsMethodInfo a signature where
overloadedMethod _ = settingsGetEnablePlugins
#endif
foreign import ccall "webkit_settings_get_enable_private_browsing" webkit_settings_get_enable_private_browsing ::
Ptr Settings ->
IO CInt
{-# DEPRECATED settingsGetEnablePrivateBrowsing ["(Since version 2.16.)","Use 'GI.WebKit2.Objects.WebView.WebView':@/is-ephemeral/@ or 'GI.WebKit2.Objects.WebContext.WebContext':@/is-ephemeral/@ instead."] #-}
settingsGetEnablePrivateBrowsing ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnablePrivateBrowsing settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_private_browsing settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnablePrivateBrowsingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnablePrivateBrowsingMethodInfo a signature where
overloadedMethod _ = settingsGetEnablePrivateBrowsing
#endif
foreign import ccall "webkit_settings_get_enable_resizable_text_areas" webkit_settings_get_enable_resizable_text_areas ::
Ptr Settings ->
IO CInt
settingsGetEnableResizableTextAreas ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableResizableTextAreas settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_resizable_text_areas settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableResizableTextAreasMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableResizableTextAreasMethodInfo a signature where
overloadedMethod _ = settingsGetEnableResizableTextAreas
#endif
foreign import ccall "webkit_settings_get_enable_site_specific_quirks" webkit_settings_get_enable_site_specific_quirks ::
Ptr Settings ->
IO CInt
settingsGetEnableSiteSpecificQuirks ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableSiteSpecificQuirks settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_site_specific_quirks settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableSiteSpecificQuirksMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableSiteSpecificQuirksMethodInfo a signature where
overloadedMethod _ = settingsGetEnableSiteSpecificQuirks
#endif
foreign import ccall "webkit_settings_get_enable_smooth_scrolling" webkit_settings_get_enable_smooth_scrolling ::
Ptr Settings ->
IO CInt
settingsGetEnableSmoothScrolling ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableSmoothScrolling settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_smooth_scrolling settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableSmoothScrollingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableSmoothScrollingMethodInfo a signature where
overloadedMethod _ = settingsGetEnableSmoothScrolling
#endif
foreign import ccall "webkit_settings_get_enable_spatial_navigation" webkit_settings_get_enable_spatial_navigation ::
Ptr Settings ->
IO CInt
settingsGetEnableSpatialNavigation ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableSpatialNavigation settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_spatial_navigation settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableSpatialNavigationMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableSpatialNavigationMethodInfo a signature where
overloadedMethod _ = settingsGetEnableSpatialNavigation
#endif
foreign import ccall "webkit_settings_get_enable_tabs_to_links" webkit_settings_get_enable_tabs_to_links ::
Ptr Settings ->
IO CInt
settingsGetEnableTabsToLinks ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableTabsToLinks settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_tabs_to_links settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableTabsToLinksMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableTabsToLinksMethodInfo a signature where
overloadedMethod _ = settingsGetEnableTabsToLinks
#endif
foreign import ccall "webkit_settings_get_enable_webaudio" webkit_settings_get_enable_webaudio ::
Ptr Settings ->
IO CInt
settingsGetEnableWebaudio ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableWebaudio settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_webaudio settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableWebaudioMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableWebaudioMethodInfo a signature where
overloadedMethod _ = settingsGetEnableWebaudio
#endif
foreign import ccall "webkit_settings_get_enable_webgl" webkit_settings_get_enable_webgl ::
Ptr Settings ->
IO CInt
settingsGetEnableWebgl ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableWebgl settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_webgl settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableWebglMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableWebglMethodInfo a signature where
overloadedMethod _ = settingsGetEnableWebgl
#endif
foreign import ccall "webkit_settings_get_enable_write_console_messages_to_stdout" webkit_settings_get_enable_write_console_messages_to_stdout ::
Ptr Settings ->
IO CInt
settingsGetEnableWriteConsoleMessagesToStdout ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableWriteConsoleMessagesToStdout settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_write_console_messages_to_stdout settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where
overloadedMethod _ = settingsGetEnableWriteConsoleMessagesToStdout
#endif
foreign import ccall "webkit_settings_get_enable_xss_auditor" webkit_settings_get_enable_xss_auditor ::
Ptr Settings ->
IO CInt
settingsGetEnableXssAuditor ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableXssAuditor settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_enable_xss_auditor settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetEnableXssAuditorMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableXssAuditorMethodInfo a signature where
overloadedMethod _ = settingsGetEnableXssAuditor
#endif
foreign import ccall "webkit_settings_get_fantasy_font_family" webkit_settings_get_fantasy_font_family ::
Ptr Settings ->
IO CString
settingsGetFantasyFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetFantasyFontFamily settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_fantasy_font_family settings'
checkUnexpectedReturnNULL "settingsGetFantasyFontFamily" result
result' <- cstringToText result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetFantasyFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetFantasyFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetFantasyFontFamily
#endif
foreign import ccall "webkit_settings_get_hardware_acceleration_policy" webkit_settings_get_hardware_acceleration_policy ::
Ptr Settings ->
IO CUInt
settingsGetHardwareAccelerationPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m WebKit2.Enums.HardwareAccelerationPolicy
settingsGetHardwareAccelerationPolicy settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_hardware_acceleration_policy settings'
let result' = (toEnum . fromIntegral) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetHardwareAccelerationPolicyMethodInfo
instance (signature ~ (m WebKit2.Enums.HardwareAccelerationPolicy), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetHardwareAccelerationPolicyMethodInfo a signature where
overloadedMethod _ = settingsGetHardwareAccelerationPolicy
#endif
foreign import ccall "webkit_settings_get_javascript_can_access_clipboard" webkit_settings_get_javascript_can_access_clipboard ::
Ptr Settings ->
IO CInt
settingsGetJavascriptCanAccessClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetJavascriptCanAccessClipboard settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_javascript_can_access_clipboard settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetJavascriptCanAccessClipboardMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetJavascriptCanAccessClipboardMethodInfo a signature where
overloadedMethod _ = settingsGetJavascriptCanAccessClipboard
#endif
foreign import ccall "webkit_settings_get_javascript_can_open_windows_automatically" webkit_settings_get_javascript_can_open_windows_automatically ::
Ptr Settings ->
IO CInt
settingsGetJavascriptCanOpenWindowsAutomatically ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetJavascriptCanOpenWindowsAutomatically settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_javascript_can_open_windows_automatically settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where
overloadedMethod _ = settingsGetJavascriptCanOpenWindowsAutomatically
#endif
foreign import ccall "webkit_settings_get_load_icons_ignoring_image_load_setting" webkit_settings_get_load_icons_ignoring_image_load_setting ::
Ptr Settings ->
IO CInt
settingsGetLoadIconsIgnoringImageLoadSetting ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetLoadIconsIgnoringImageLoadSetting settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_load_icons_ignoring_image_load_setting settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where
overloadedMethod _ = settingsGetLoadIconsIgnoringImageLoadSetting
#endif
foreign import ccall "webkit_settings_get_media_playback_allows_inline" webkit_settings_get_media_playback_allows_inline ::
Ptr Settings ->
IO CInt
settingsGetMediaPlaybackAllowsInline ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetMediaPlaybackAllowsInline settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_media_playback_allows_inline settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetMediaPlaybackAllowsInlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMediaPlaybackAllowsInlineMethodInfo a signature where
overloadedMethod _ = settingsGetMediaPlaybackAllowsInline
#endif
foreign import ccall "webkit_settings_get_media_playback_requires_user_gesture" webkit_settings_get_media_playback_requires_user_gesture ::
Ptr Settings ->
IO CInt
settingsGetMediaPlaybackRequiresUserGesture ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetMediaPlaybackRequiresUserGesture settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_media_playback_requires_user_gesture settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMediaPlaybackRequiresUserGestureMethodInfo a signature where
overloadedMethod _ = settingsGetMediaPlaybackRequiresUserGesture
#endif
foreign import ccall "webkit_settings_get_minimum_font_size" webkit_settings_get_minimum_font_size ::
Ptr Settings ->
IO Word32
settingsGetMinimumFontSize ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Word32
settingsGetMinimumFontSize settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_minimum_font_size settings'
touchManagedPtr settings
return result
#if ENABLE_OVERLOADING
data SettingsGetMinimumFontSizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMinimumFontSizeMethodInfo a signature where
overloadedMethod _ = settingsGetMinimumFontSize
#endif
foreign import ccall "webkit_settings_get_monospace_font_family" webkit_settings_get_monospace_font_family ::
Ptr Settings ->
IO CString
settingsGetMonospaceFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetMonospaceFontFamily settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_monospace_font_family settings'
checkUnexpectedReturnNULL "settingsGetMonospaceFontFamily" result
result' <- cstringToText result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetMonospaceFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMonospaceFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetMonospaceFontFamily
#endif
foreign import ccall "webkit_settings_get_pictograph_font_family" webkit_settings_get_pictograph_font_family ::
Ptr Settings ->
IO CString
settingsGetPictographFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetPictographFontFamily settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_pictograph_font_family settings'
checkUnexpectedReturnNULL "settingsGetPictographFontFamily" result
result' <- cstringToText result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetPictographFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetPictographFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetPictographFontFamily
#endif
foreign import ccall "webkit_settings_get_print_backgrounds" webkit_settings_get_print_backgrounds ::
Ptr Settings ->
IO CInt
settingsGetPrintBackgrounds ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetPrintBackgrounds settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_print_backgrounds settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetPrintBackgroundsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetPrintBackgroundsMethodInfo a signature where
overloadedMethod _ = settingsGetPrintBackgrounds
#endif
foreign import ccall "webkit_settings_get_sans_serif_font_family" webkit_settings_get_sans_serif_font_family ::
Ptr Settings ->
IO CString
settingsGetSansSerifFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetSansSerifFontFamily settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_sans_serif_font_family settings'
checkUnexpectedReturnNULL "settingsGetSansSerifFontFamily" result
result' <- cstringToText result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetSansSerifFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetSansSerifFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetSansSerifFontFamily
#endif
foreign import ccall "webkit_settings_get_serif_font_family" webkit_settings_get_serif_font_family ::
Ptr Settings ->
IO CString
settingsGetSerifFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetSerifFontFamily settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_serif_font_family settings'
checkUnexpectedReturnNULL "settingsGetSerifFontFamily" result
result' <- cstringToText result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetSerifFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetSerifFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetSerifFontFamily
#endif
foreign import ccall "webkit_settings_get_user_agent" webkit_settings_get_user_agent ::
Ptr Settings ->
IO CString
settingsGetUserAgent ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetUserAgent settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_user_agent settings'
checkUnexpectedReturnNULL "settingsGetUserAgent" result
result' <- cstringToText result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetUserAgentMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetUserAgentMethodInfo a signature where
overloadedMethod _ = settingsGetUserAgent
#endif
foreign import ccall "webkit_settings_get_zoom_text_only" webkit_settings_get_zoom_text_only ::
Ptr Settings ->
IO CInt
settingsGetZoomTextOnly ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetZoomTextOnly settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- webkit_settings_get_zoom_text_only settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SettingsGetZoomTextOnlyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetZoomTextOnlyMethodInfo a signature where
overloadedMethod _ = settingsGetZoomTextOnly
#endif
foreign import ccall "webkit_settings_set_allow_file_access_from_file_urls" webkit_settings_set_allow_file_access_from_file_urls ::
Ptr Settings ->
CInt ->
IO ()
settingsSetAllowFileAccessFromFileUrls ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetAllowFileAccessFromFileUrls settings allowed = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let allowed' = (fromIntegral . fromEnum) allowed
webkit_settings_set_allow_file_access_from_file_urls settings' allowed'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetAllowFileAccessFromFileUrlsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAllowFileAccessFromFileUrlsMethodInfo a signature where
overloadedMethod _ = settingsSetAllowFileAccessFromFileUrls
#endif
foreign import ccall "webkit_settings_set_allow_modal_dialogs" webkit_settings_set_allow_modal_dialogs ::
Ptr Settings ->
CInt ->
IO ()
settingsSetAllowModalDialogs ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetAllowModalDialogs settings allowed = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let allowed' = (fromIntegral . fromEnum) allowed
webkit_settings_set_allow_modal_dialogs settings' allowed'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetAllowModalDialogsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAllowModalDialogsMethodInfo a signature where
overloadedMethod _ = settingsSetAllowModalDialogs
#endif
foreign import ccall "webkit_settings_set_allow_universal_access_from_file_urls" webkit_settings_set_allow_universal_access_from_file_urls ::
Ptr Settings ->
CInt ->
IO ()
settingsSetAllowUniversalAccessFromFileUrls ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetAllowUniversalAccessFromFileUrls settings allowed = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let allowed' = (fromIntegral . fromEnum) allowed
webkit_settings_set_allow_universal_access_from_file_urls settings' allowed'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo a signature where
overloadedMethod _ = settingsSetAllowUniversalAccessFromFileUrls
#endif
foreign import ccall "webkit_settings_set_auto_load_images" webkit_settings_set_auto_load_images ::
Ptr Settings ->
CInt ->
IO ()
settingsSetAutoLoadImages ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetAutoLoadImages settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_auto_load_images settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetAutoLoadImagesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAutoLoadImagesMethodInfo a signature where
overloadedMethod _ = settingsSetAutoLoadImages
#endif
foreign import ccall "webkit_settings_set_cursive_font_family" webkit_settings_set_cursive_font_family ::
Ptr Settings ->
CString ->
IO ()
settingsSetCursiveFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> m ()
settingsSetCursiveFontFamily settings cursiveFontFamily = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
cursiveFontFamily' <- textToCString cursiveFontFamily
webkit_settings_set_cursive_font_family settings' cursiveFontFamily'
touchManagedPtr settings
freeMem cursiveFontFamily'
return ()
#if ENABLE_OVERLOADING
data SettingsSetCursiveFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetCursiveFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetCursiveFontFamily
#endif
foreign import ccall "webkit_settings_set_default_charset" webkit_settings_set_default_charset ::
Ptr Settings ->
CString ->
IO ()
settingsSetDefaultCharset ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> m ()
settingsSetDefaultCharset settings defaultCharset = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
defaultCharset' <- textToCString defaultCharset
webkit_settings_set_default_charset settings' defaultCharset'
touchManagedPtr settings
freeMem defaultCharset'
return ()
#if ENABLE_OVERLOADING
data SettingsSetDefaultCharsetMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultCharsetMethodInfo a signature where
overloadedMethod _ = settingsSetDefaultCharset
#endif
foreign import ccall "webkit_settings_set_default_font_family" webkit_settings_set_default_font_family ::
Ptr Settings ->
CString ->
IO ()
settingsSetDefaultFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> m ()
settingsSetDefaultFontFamily settings defaultFontFamily = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
defaultFontFamily' <- textToCString defaultFontFamily
webkit_settings_set_default_font_family settings' defaultFontFamily'
touchManagedPtr settings
freeMem defaultFontFamily'
return ()
#if ENABLE_OVERLOADING
data SettingsSetDefaultFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetDefaultFontFamily
#endif
foreign import ccall "webkit_settings_set_default_font_size" webkit_settings_set_default_font_size ::
Ptr Settings ->
Word32 ->
IO ()
settingsSetDefaultFontSize ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Word32
-> m ()
settingsSetDefaultFontSize settings fontSize = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
webkit_settings_set_default_font_size settings' fontSize
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetDefaultFontSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultFontSizeMethodInfo a signature where
overloadedMethod _ = settingsSetDefaultFontSize
#endif
foreign import ccall "webkit_settings_set_default_monospace_font_size" webkit_settings_set_default_monospace_font_size ::
Ptr Settings ->
Word32 ->
IO ()
settingsSetDefaultMonospaceFontSize ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Word32
-> m ()
settingsSetDefaultMonospaceFontSize settings fontSize = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
webkit_settings_set_default_monospace_font_size settings' fontSize
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetDefaultMonospaceFontSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultMonospaceFontSizeMethodInfo a signature where
overloadedMethod _ = settingsSetDefaultMonospaceFontSize
#endif
foreign import ccall "webkit_settings_set_draw_compositing_indicators" webkit_settings_set_draw_compositing_indicators ::
Ptr Settings ->
CInt ->
IO ()
settingsSetDrawCompositingIndicators ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetDrawCompositingIndicators settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_draw_compositing_indicators settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetDrawCompositingIndicatorsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDrawCompositingIndicatorsMethodInfo a signature where
overloadedMethod _ = settingsSetDrawCompositingIndicators
#endif
foreign import ccall "webkit_settings_set_enable_accelerated_2d_canvas" webkit_settings_set_enable_accelerated_2d_canvas ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableAccelerated2dCanvas ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableAccelerated2dCanvas settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_accelerated_2d_canvas settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableAccelerated2dCanvasMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableAccelerated2dCanvasMethodInfo a signature where
overloadedMethod _ = settingsSetEnableAccelerated2dCanvas
#endif
foreign import ccall "webkit_settings_set_enable_back_forward_navigation_gestures" webkit_settings_set_enable_back_forward_navigation_gestures ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableBackForwardNavigationGestures ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableBackForwardNavigationGestures settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_back_forward_navigation_gestures settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableBackForwardNavigationGesturesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableBackForwardNavigationGesturesMethodInfo a signature where
overloadedMethod _ = settingsSetEnableBackForwardNavigationGestures
#endif
foreign import ccall "webkit_settings_set_enable_caret_browsing" webkit_settings_set_enable_caret_browsing ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableCaretBrowsing ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableCaretBrowsing settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_caret_browsing settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableCaretBrowsingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableCaretBrowsingMethodInfo a signature where
overloadedMethod _ = settingsSetEnableCaretBrowsing
#endif
foreign import ccall "webkit_settings_set_enable_developer_extras" webkit_settings_set_enable_developer_extras ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableDeveloperExtras ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableDeveloperExtras settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_developer_extras settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableDeveloperExtrasMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableDeveloperExtrasMethodInfo a signature where
overloadedMethod _ = settingsSetEnableDeveloperExtras
#endif
foreign import ccall "webkit_settings_set_enable_dns_prefetching" webkit_settings_set_enable_dns_prefetching ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableDnsPrefetching ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableDnsPrefetching settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_dns_prefetching settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableDnsPrefetchingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableDnsPrefetchingMethodInfo a signature where
overloadedMethod _ = settingsSetEnableDnsPrefetching
#endif
foreign import ccall "webkit_settings_set_enable_encrypted_media" webkit_settings_set_enable_encrypted_media ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableEncryptedMedia ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableEncryptedMedia settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_encrypted_media settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableEncryptedMediaMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableEncryptedMediaMethodInfo a signature where
overloadedMethod _ = settingsSetEnableEncryptedMedia
#endif
foreign import ccall "webkit_settings_set_enable_frame_flattening" webkit_settings_set_enable_frame_flattening ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableFrameFlattening ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableFrameFlattening settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_frame_flattening settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableFrameFlatteningMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableFrameFlatteningMethodInfo a signature where
overloadedMethod _ = settingsSetEnableFrameFlattening
#endif
foreign import ccall "webkit_settings_set_enable_fullscreen" webkit_settings_set_enable_fullscreen ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableFullscreen settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_fullscreen settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableFullscreenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableFullscreenMethodInfo a signature where
overloadedMethod _ = settingsSetEnableFullscreen
#endif
foreign import ccall "webkit_settings_set_enable_html5_database" webkit_settings_set_enable_html5_database ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableHtml5Database ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableHtml5Database settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_html5_database settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableHtml5DatabaseMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableHtml5DatabaseMethodInfo a signature where
overloadedMethod _ = settingsSetEnableHtml5Database
#endif
foreign import ccall "webkit_settings_set_enable_html5_local_storage" webkit_settings_set_enable_html5_local_storage ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableHtml5LocalStorage ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableHtml5LocalStorage settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_html5_local_storage settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableHtml5LocalStorageMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableHtml5LocalStorageMethodInfo a signature where
overloadedMethod _ = settingsSetEnableHtml5LocalStorage
#endif
foreign import ccall "webkit_settings_set_enable_hyperlink_auditing" webkit_settings_set_enable_hyperlink_auditing ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableHyperlinkAuditing ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableHyperlinkAuditing settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_hyperlink_auditing settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableHyperlinkAuditingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableHyperlinkAuditingMethodInfo a signature where
overloadedMethod _ = settingsSetEnableHyperlinkAuditing
#endif
foreign import ccall "webkit_settings_set_enable_java" webkit_settings_set_enable_java ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableJava ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableJava settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_java settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableJavaMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableJavaMethodInfo a signature where
overloadedMethod _ = settingsSetEnableJava
#endif
foreign import ccall "webkit_settings_set_enable_javascript" webkit_settings_set_enable_javascript ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableJavascript ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableJavascript settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_javascript settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableJavascriptMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableJavascriptMethodInfo a signature where
overloadedMethod _ = settingsSetEnableJavascript
#endif
foreign import ccall "webkit_settings_set_enable_javascript_markup" webkit_settings_set_enable_javascript_markup ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableJavascriptMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableJavascriptMarkup settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_javascript_markup settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableJavascriptMarkupMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableJavascriptMarkupMethodInfo a signature where
overloadedMethod _ = settingsSetEnableJavascriptMarkup
#endif
foreign import ccall "webkit_settings_set_enable_media_capabilities" webkit_settings_set_enable_media_capabilities ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableMediaCapabilities ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableMediaCapabilities settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_media_capabilities settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableMediaCapabilitiesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMediaCapabilitiesMethodInfo a signature where
overloadedMethod _ = settingsSetEnableMediaCapabilities
#endif
foreign import ccall "webkit_settings_set_enable_media_stream" webkit_settings_set_enable_media_stream ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableMediaStream ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableMediaStream settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_media_stream settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableMediaStreamMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMediaStreamMethodInfo a signature where
overloadedMethod _ = settingsSetEnableMediaStream
#endif
foreign import ccall "webkit_settings_set_enable_mediasource" webkit_settings_set_enable_mediasource ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableMediasource ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableMediasource settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_mediasource settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableMediasourceMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMediasourceMethodInfo a signature where
overloadedMethod _ = settingsSetEnableMediasource
#endif
foreign import ccall "webkit_settings_set_enable_mock_capture_devices" webkit_settings_set_enable_mock_capture_devices ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableMockCaptureDevices ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableMockCaptureDevices settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_mock_capture_devices settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableMockCaptureDevicesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMockCaptureDevicesMethodInfo a signature where
overloadedMethod _ = settingsSetEnableMockCaptureDevices
#endif
foreign import ccall "webkit_settings_set_enable_offline_web_application_cache" webkit_settings_set_enable_offline_web_application_cache ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableOfflineWebApplicationCache ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableOfflineWebApplicationCache settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_offline_web_application_cache settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableOfflineWebApplicationCacheMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableOfflineWebApplicationCacheMethodInfo a signature where
overloadedMethod _ = settingsSetEnableOfflineWebApplicationCache
#endif
foreign import ccall "webkit_settings_set_enable_page_cache" webkit_settings_set_enable_page_cache ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnablePageCache ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnablePageCache settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_page_cache settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnablePageCacheMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnablePageCacheMethodInfo a signature where
overloadedMethod _ = settingsSetEnablePageCache
#endif
foreign import ccall "webkit_settings_set_enable_plugins" webkit_settings_set_enable_plugins ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnablePlugins ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnablePlugins settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_plugins settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnablePluginsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnablePluginsMethodInfo a signature where
overloadedMethod _ = settingsSetEnablePlugins
#endif
foreign import ccall "webkit_settings_set_enable_private_browsing" webkit_settings_set_enable_private_browsing ::
Ptr Settings ->
CInt ->
IO ()
{-# DEPRECATED settingsSetEnablePrivateBrowsing ["(Since version 2.16.)","Use 'GI.WebKit2.Objects.WebView.WebView':@/is-ephemeral/@ or 'GI.WebKit2.Objects.WebContext.WebContext':@/is-ephemeral/@ instead."] #-}
settingsSetEnablePrivateBrowsing ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnablePrivateBrowsing settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_private_browsing settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnablePrivateBrowsingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnablePrivateBrowsingMethodInfo a signature where
overloadedMethod _ = settingsSetEnablePrivateBrowsing
#endif
foreign import ccall "webkit_settings_set_enable_resizable_text_areas" webkit_settings_set_enable_resizable_text_areas ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableResizableTextAreas ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableResizableTextAreas settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_resizable_text_areas settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableResizableTextAreasMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableResizableTextAreasMethodInfo a signature where
overloadedMethod _ = settingsSetEnableResizableTextAreas
#endif
foreign import ccall "webkit_settings_set_enable_site_specific_quirks" webkit_settings_set_enable_site_specific_quirks ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableSiteSpecificQuirks ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableSiteSpecificQuirks settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_site_specific_quirks settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableSiteSpecificQuirksMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableSiteSpecificQuirksMethodInfo a signature where
overloadedMethod _ = settingsSetEnableSiteSpecificQuirks
#endif
foreign import ccall "webkit_settings_set_enable_smooth_scrolling" webkit_settings_set_enable_smooth_scrolling ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableSmoothScrolling ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableSmoothScrolling settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_smooth_scrolling settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableSmoothScrollingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableSmoothScrollingMethodInfo a signature where
overloadedMethod _ = settingsSetEnableSmoothScrolling
#endif
foreign import ccall "webkit_settings_set_enable_spatial_navigation" webkit_settings_set_enable_spatial_navigation ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableSpatialNavigation ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableSpatialNavigation settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_spatial_navigation settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableSpatialNavigationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableSpatialNavigationMethodInfo a signature where
overloadedMethod _ = settingsSetEnableSpatialNavigation
#endif
foreign import ccall "webkit_settings_set_enable_tabs_to_links" webkit_settings_set_enable_tabs_to_links ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableTabsToLinks ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableTabsToLinks settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_tabs_to_links settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableTabsToLinksMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableTabsToLinksMethodInfo a signature where
overloadedMethod _ = settingsSetEnableTabsToLinks
#endif
foreign import ccall "webkit_settings_set_enable_webaudio" webkit_settings_set_enable_webaudio ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableWebaudio ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableWebaudio settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_webaudio settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableWebaudioMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableWebaudioMethodInfo a signature where
overloadedMethod _ = settingsSetEnableWebaudio
#endif
foreign import ccall "webkit_settings_set_enable_webgl" webkit_settings_set_enable_webgl ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableWebgl ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableWebgl settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_webgl settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableWebglMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableWebglMethodInfo a signature where
overloadedMethod _ = settingsSetEnableWebgl
#endif
foreign import ccall "webkit_settings_set_enable_write_console_messages_to_stdout" webkit_settings_set_enable_write_console_messages_to_stdout ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableWriteConsoleMessagesToStdout ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableWriteConsoleMessagesToStdout settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_write_console_messages_to_stdout settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where
overloadedMethod _ = settingsSetEnableWriteConsoleMessagesToStdout
#endif
foreign import ccall "webkit_settings_set_enable_xss_auditor" webkit_settings_set_enable_xss_auditor ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableXssAuditor ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableXssAuditor settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_xss_auditor settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetEnableXssAuditorMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableXssAuditorMethodInfo a signature where
overloadedMethod _ = settingsSetEnableXssAuditor
#endif
foreign import ccall "webkit_settings_set_fantasy_font_family" webkit_settings_set_fantasy_font_family ::
Ptr Settings ->
CString ->
IO ()
settingsSetFantasyFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> m ()
settingsSetFantasyFontFamily settings fantasyFontFamily = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
fantasyFontFamily' <- textToCString fantasyFontFamily
webkit_settings_set_fantasy_font_family settings' fantasyFontFamily'
touchManagedPtr settings
freeMem fantasyFontFamily'
return ()
#if ENABLE_OVERLOADING
data SettingsSetFantasyFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetFantasyFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetFantasyFontFamily
#endif
foreign import ccall "webkit_settings_set_hardware_acceleration_policy" webkit_settings_set_hardware_acceleration_policy ::
Ptr Settings ->
CUInt ->
IO ()
settingsSetHardwareAccelerationPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> WebKit2.Enums.HardwareAccelerationPolicy
-> m ()
settingsSetHardwareAccelerationPolicy settings policy = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let policy' = (fromIntegral . fromEnum) policy
webkit_settings_set_hardware_acceleration_policy settings' policy'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetHardwareAccelerationPolicyMethodInfo
instance (signature ~ (WebKit2.Enums.HardwareAccelerationPolicy -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetHardwareAccelerationPolicyMethodInfo a signature where
overloadedMethod _ = settingsSetHardwareAccelerationPolicy
#endif
foreign import ccall "webkit_settings_set_javascript_can_access_clipboard" webkit_settings_set_javascript_can_access_clipboard ::
Ptr Settings ->
CInt ->
IO ()
settingsSetJavascriptCanAccessClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetJavascriptCanAccessClipboard settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_javascript_can_access_clipboard settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetJavascriptCanAccessClipboardMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetJavascriptCanAccessClipboardMethodInfo a signature where
overloadedMethod _ = settingsSetJavascriptCanAccessClipboard
#endif
foreign import ccall "webkit_settings_set_javascript_can_open_windows_automatically" webkit_settings_set_javascript_can_open_windows_automatically ::
Ptr Settings ->
CInt ->
IO ()
settingsSetJavascriptCanOpenWindowsAutomatically ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetJavascriptCanOpenWindowsAutomatically settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_javascript_can_open_windows_automatically settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where
overloadedMethod _ = settingsSetJavascriptCanOpenWindowsAutomatically
#endif
foreign import ccall "webkit_settings_set_load_icons_ignoring_image_load_setting" webkit_settings_set_load_icons_ignoring_image_load_setting ::
Ptr Settings ->
CInt ->
IO ()
settingsSetLoadIconsIgnoringImageLoadSetting ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetLoadIconsIgnoringImageLoadSetting settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_load_icons_ignoring_image_load_setting settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where
overloadedMethod _ = settingsSetLoadIconsIgnoringImageLoadSetting
#endif
foreign import ccall "webkit_settings_set_media_playback_allows_inline" webkit_settings_set_media_playback_allows_inline ::
Ptr Settings ->
CInt ->
IO ()
settingsSetMediaPlaybackAllowsInline ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetMediaPlaybackAllowsInline settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_media_playback_allows_inline settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetMediaPlaybackAllowsInlineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMediaPlaybackAllowsInlineMethodInfo a signature where
overloadedMethod _ = settingsSetMediaPlaybackAllowsInline
#endif
foreign import ccall "webkit_settings_set_media_playback_requires_user_gesture" webkit_settings_set_media_playback_requires_user_gesture ::
Ptr Settings ->
CInt ->
IO ()
settingsSetMediaPlaybackRequiresUserGesture ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetMediaPlaybackRequiresUserGesture settings enabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_media_playback_requires_user_gesture settings' enabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMediaPlaybackRequiresUserGestureMethodInfo a signature where
overloadedMethod _ = settingsSetMediaPlaybackRequiresUserGesture
#endif
foreign import ccall "webkit_settings_set_minimum_font_size" webkit_settings_set_minimum_font_size ::
Ptr Settings ->
Word32 ->
IO ()
settingsSetMinimumFontSize ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Word32
-> m ()
settingsSetMinimumFontSize settings fontSize = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
webkit_settings_set_minimum_font_size settings' fontSize
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetMinimumFontSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMinimumFontSizeMethodInfo a signature where
overloadedMethod _ = settingsSetMinimumFontSize
#endif
foreign import ccall "webkit_settings_set_monospace_font_family" webkit_settings_set_monospace_font_family ::
Ptr Settings ->
CString ->
IO ()
settingsSetMonospaceFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> m ()
settingsSetMonospaceFontFamily settings monospaceFontFamily = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
monospaceFontFamily' <- textToCString monospaceFontFamily
webkit_settings_set_monospace_font_family settings' monospaceFontFamily'
touchManagedPtr settings
freeMem monospaceFontFamily'
return ()
#if ENABLE_OVERLOADING
data SettingsSetMonospaceFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMonospaceFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetMonospaceFontFamily
#endif
foreign import ccall "webkit_settings_set_pictograph_font_family" webkit_settings_set_pictograph_font_family ::
Ptr Settings ->
CString ->
IO ()
settingsSetPictographFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> m ()
settingsSetPictographFontFamily settings pictographFontFamily = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
pictographFontFamily' <- textToCString pictographFontFamily
webkit_settings_set_pictograph_font_family settings' pictographFontFamily'
touchManagedPtr settings
freeMem pictographFontFamily'
return ()
#if ENABLE_OVERLOADING
data SettingsSetPictographFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetPictographFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetPictographFontFamily
#endif
foreign import ccall "webkit_settings_set_print_backgrounds" webkit_settings_set_print_backgrounds ::
Ptr Settings ->
CInt ->
IO ()
settingsSetPrintBackgrounds ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetPrintBackgrounds settings printBackgrounds = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let printBackgrounds' = (fromIntegral . fromEnum) printBackgrounds
webkit_settings_set_print_backgrounds settings' printBackgrounds'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetPrintBackgroundsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetPrintBackgroundsMethodInfo a signature where
overloadedMethod _ = settingsSetPrintBackgrounds
#endif
foreign import ccall "webkit_settings_set_sans_serif_font_family" webkit_settings_set_sans_serif_font_family ::
Ptr Settings ->
CString ->
IO ()
settingsSetSansSerifFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> m ()
settingsSetSansSerifFontFamily settings sansSerifFontFamily = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
sansSerifFontFamily' <- textToCString sansSerifFontFamily
webkit_settings_set_sans_serif_font_family settings' sansSerifFontFamily'
touchManagedPtr settings
freeMem sansSerifFontFamily'
return ()
#if ENABLE_OVERLOADING
data SettingsSetSansSerifFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetSansSerifFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetSansSerifFontFamily
#endif
foreign import ccall "webkit_settings_set_serif_font_family" webkit_settings_set_serif_font_family ::
Ptr Settings ->
CString ->
IO ()
settingsSetSerifFontFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> T.Text
-> m ()
settingsSetSerifFontFamily settings serifFontFamily = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
serifFontFamily' <- textToCString serifFontFamily
webkit_settings_set_serif_font_family settings' serifFontFamily'
touchManagedPtr settings
freeMem serifFontFamily'
return ()
#if ENABLE_OVERLOADING
data SettingsSetSerifFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetSerifFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetSerifFontFamily
#endif
foreign import ccall "webkit_settings_set_user_agent" webkit_settings_set_user_agent ::
Ptr Settings ->
CString ->
IO ()
settingsSetUserAgent ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Maybe (T.Text)
-> m ()
settingsSetUserAgent settings userAgent = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
maybeUserAgent <- case userAgent of
Nothing -> return nullPtr
Just jUserAgent -> do
jUserAgent' <- textToCString jUserAgent
return jUserAgent'
webkit_settings_set_user_agent settings' maybeUserAgent
touchManagedPtr settings
freeMem maybeUserAgent
return ()
#if ENABLE_OVERLOADING
data SettingsSetUserAgentMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetUserAgentMethodInfo a signature where
overloadedMethod _ = settingsSetUserAgent
#endif
foreign import ccall "webkit_settings_set_user_agent_with_application_details" webkit_settings_set_user_agent_with_application_details ::
Ptr Settings ->
CString ->
CString ->
IO ()
settingsSetUserAgentWithApplicationDetails ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Maybe (T.Text)
-> Maybe (T.Text)
-> m ()
settingsSetUserAgentWithApplicationDetails settings applicationName applicationVersion = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
maybeApplicationName <- case applicationName of
Nothing -> return nullPtr
Just jApplicationName -> do
jApplicationName' <- textToCString jApplicationName
return jApplicationName'
maybeApplicationVersion <- case applicationVersion of
Nothing -> return nullPtr
Just jApplicationVersion -> do
jApplicationVersion' <- textToCString jApplicationVersion
return jApplicationVersion'
webkit_settings_set_user_agent_with_application_details settings' maybeApplicationName maybeApplicationVersion
touchManagedPtr settings
freeMem maybeApplicationName
freeMem maybeApplicationVersion
return ()
#if ENABLE_OVERLOADING
data SettingsSetUserAgentWithApplicationDetailsMethodInfo
instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetUserAgentWithApplicationDetailsMethodInfo a signature where
overloadedMethod _ = settingsSetUserAgentWithApplicationDetails
#endif
foreign import ccall "webkit_settings_set_zoom_text_only" webkit_settings_set_zoom_text_only ::
Ptr Settings ->
CInt ->
IO ()
settingsSetZoomTextOnly ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetZoomTextOnly settings zoomTextOnly = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let zoomTextOnly' = (fromIntegral . fromEnum) zoomTextOnly
webkit_settings_set_zoom_text_only settings' zoomTextOnly'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SettingsSetZoomTextOnlyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetZoomTextOnlyMethodInfo a signature where
overloadedMethod _ = settingsSetZoomTextOnly
#endif
foreign import ccall "webkit_settings_font_size_to_pixels" webkit_settings_font_size_to_pixels ::
Word32 ->
IO Word32
settingsFontSizeToPixels ::
(B.CallStack.HasCallStack, MonadIO m) =>
Word32
-> m Word32
settingsFontSizeToPixels points = liftIO $ do
result <- webkit_settings_font_size_to_pixels points
return result
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_settings_font_size_to_points" webkit_settings_font_size_to_points ::
Word32 ->
IO Word32
settingsFontSizeToPoints ::
(B.CallStack.HasCallStack, MonadIO m) =>
Word32
-> m Word32
settingsFontSizeToPoints pixels = liftIO $ do
result <- webkit_settings_font_size_to_points pixels
return result
#if ENABLE_OVERLOADING
#endif