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