{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit.Objects.Settings
(
Settings(..) ,
IsSettings ,
toSettings ,
#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)
SettingsGetAllowTopNavigationToDataUrlsMethodInfo,
#endif
settingsGetAllowTopNavigationToDataUrls ,
#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)
SettingsGetDisableWebSecurityMethodInfo ,
#endif
settingsGetDisableWebSecurity ,
#if defined(ENABLE_OVERLOADING)
SettingsGetDrawCompositingIndicatorsMethodInfo,
#endif
settingsGetDrawCompositingIndicators ,
#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)
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)
SettingsGetEnableJavascriptMethodInfo ,
#endif
settingsGetEnableJavascript ,
#if defined(ENABLE_OVERLOADING)
SettingsGetEnableJavascriptMarkupMethodInfo,
#endif
settingsGetEnableJavascriptMarkup ,
#if defined(ENABLE_OVERLOADING)
SettingsGetEnableMediaMethodInfo ,
#endif
settingsGetEnableMedia ,
#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)
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)
SettingsGetEnableWebrtcMethodInfo ,
#endif
settingsGetEnableWebrtc ,
#if defined(ENABLE_OVERLOADING)
SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo,
#endif
settingsGetEnableWriteConsoleMessagesToStdout,
#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)
SettingsGetMediaContentTypesRequiringHardwareSupportMethodInfo,
#endif
settingsGetMediaContentTypesRequiringHardwareSupport,
#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)
SettingsSetAllowTopNavigationToDataUrlsMethodInfo,
#endif
settingsSetAllowTopNavigationToDataUrls ,
#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)
SettingsSetDisableWebSecurityMethodInfo ,
#endif
settingsSetDisableWebSecurity ,
#if defined(ENABLE_OVERLOADING)
SettingsSetDrawCompositingIndicatorsMethodInfo,
#endif
settingsSetDrawCompositingIndicators ,
#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)
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)
SettingsSetEnableJavascriptMethodInfo ,
#endif
settingsSetEnableJavascript ,
#if defined(ENABLE_OVERLOADING)
SettingsSetEnableJavascriptMarkupMethodInfo,
#endif
settingsSetEnableJavascriptMarkup ,
#if defined(ENABLE_OVERLOADING)
SettingsSetEnableMediaMethodInfo ,
#endif
settingsSetEnableMedia ,
#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)
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)
SettingsSetEnableWebrtcMethodInfo ,
#endif
settingsSetEnableWebrtc ,
#if defined(ENABLE_OVERLOADING)
SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo,
#endif
settingsSetEnableWriteConsoleMessagesToStdout,
#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)
SettingsSetMediaContentTypesRequiringHardwareSupportMethodInfo,
#endif
settingsSetMediaContentTypesRequiringHardwareSupport,
#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)
SettingsAllowTopNavigationToDataUrlsPropertyInfo,
#endif
constructSettingsAllowTopNavigationToDataUrls,
getSettingsAllowTopNavigationToDataUrls ,
setSettingsAllowTopNavigationToDataUrls ,
#if defined(ENABLE_OVERLOADING)
settingsAllowTopNavigationToDataUrls ,
#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)
SettingsDisableWebSecurityPropertyInfo ,
#endif
constructSettingsDisableWebSecurity ,
getSettingsDisableWebSecurity ,
setSettingsDisableWebSecurity ,
#if defined(ENABLE_OVERLOADING)
settingsDisableWebSecurity ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsDrawCompositingIndicatorsPropertyInfo,
#endif
constructSettingsDrawCompositingIndicators,
getSettingsDrawCompositingIndicators ,
setSettingsDrawCompositingIndicators ,
#if defined(ENABLE_OVERLOADING)
settingsDrawCompositingIndicators ,
#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)
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)
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)
SettingsEnableMediaPropertyInfo ,
#endif
constructSettingsEnableMedia ,
getSettingsEnableMedia ,
setSettingsEnableMedia ,
#if defined(ENABLE_OVERLOADING)
settingsEnableMedia ,
#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)
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)
SettingsEnableWebrtcPropertyInfo ,
#endif
constructSettingsEnableWebrtc ,
getSettingsEnableWebrtc ,
setSettingsEnableWebrtc ,
#if defined(ENABLE_OVERLOADING)
settingsEnableWebrtc ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo,
#endif
constructSettingsEnableWriteConsoleMessagesToStdout,
getSettingsEnableWriteConsoleMessagesToStdout,
setSettingsEnableWriteConsoleMessagesToStdout,
#if defined(ENABLE_OVERLOADING)
settingsEnableWriteConsoleMessagesToStdout,
#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)
SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo,
#endif
clearSettingsMediaContentTypesRequiringHardwareSupport,
constructSettingsMediaContentTypesRequiringHardwareSupport,
getSettingsMediaContentTypesRequiringHardwareSupport,
setSettingsMediaContentTypesRequiringHardwareSupport,
#if defined(ENABLE_OVERLOADING)
settingsMediaContentTypesRequiringHardwareSupport,
#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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit.Enums as WebKit.Enums
newtype Settings = Settings (SP.ManagedPtr Settings)
deriving (Settings -> Settings -> Bool
(Settings -> Settings -> Bool)
-> (Settings -> Settings -> Bool) -> Eq Settings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Settings -> Settings -> Bool
== :: Settings -> Settings -> Bool
$c/= :: Settings -> Settings -> Bool
/= :: Settings -> Settings -> Bool
Eq)
instance SP.ManagedPtrNewtype Settings where
toManagedPtr :: Settings -> ManagedPtr Settings
toManagedPtr (Settings ManagedPtr Settings
p) = ManagedPtr Settings
p
foreign import ccall "webkit_settings_get_type"
c_webkit_settings_get_type :: IO B.Types.GType
instance B.Types.TypedObject Settings where
glibType :: IO GType
glibType = IO GType
c_webkit_settings_get_type
instance B.Types.GObject Settings
class (SP.GObject o, O.IsDescendantOf Settings o) => IsSettings o
instance (SP.GObject o, O.IsDescendantOf Settings o) => IsSettings o
instance O.HasParentTypes Settings
type instance O.ParentTypes Settings = '[GObject.Object.Object]
toSettings :: (MIO.MonadIO m, IsSettings o) => o -> m Settings
toSettings :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> m Settings
toSettings = IO Settings -> m Settings
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Settings -> Settings
Settings
instance B.GValue.IsGValue (Maybe Settings) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_settings_get_type
gvalueSet_ :: Ptr GValue -> Maybe Settings -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Settings
P.Nothing = Ptr GValue -> Ptr Settings -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Settings
forall a. Ptr a
FP.nullPtr :: FP.Ptr Settings)
gvalueSet_ Ptr GValue
gv (P.Just Settings
obj) = Settings -> (Ptr Settings -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Settings
obj (Ptr GValue -> Ptr Settings -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Settings)
gvalueGet_ Ptr GValue
gv = do
Ptr Settings
ptr <- Ptr GValue -> IO (Ptr Settings)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Settings)
if Ptr Settings
ptr Ptr Settings -> Ptr Settings -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Settings
forall a. Ptr a
FP.nullPtr
then Settings -> Maybe Settings
forall a. a -> Maybe a
P.Just (Settings -> Maybe Settings) -> IO Settings -> IO (Maybe Settings)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe Settings -> IO (Maybe Settings)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Settings
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSettingsMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "getAllowTopNavigationToDataUrls" o = SettingsGetAllowTopNavigationToDataUrlsMethodInfo
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 "getDisableWebSecurity" o = SettingsGetDisableWebSecurityMethodInfo
ResolveSettingsMethod "getDrawCompositingIndicators" o = SettingsGetDrawCompositingIndicatorsMethodInfo
ResolveSettingsMethod "getEnableBackForwardNavigationGestures" o = SettingsGetEnableBackForwardNavigationGesturesMethodInfo
ResolveSettingsMethod "getEnableCaretBrowsing" o = SettingsGetEnableCaretBrowsingMethodInfo
ResolveSettingsMethod "getEnableDeveloperExtras" o = SettingsGetEnableDeveloperExtrasMethodInfo
ResolveSettingsMethod "getEnableDnsPrefetching" o = SettingsGetEnableDnsPrefetchingMethodInfo
ResolveSettingsMethod "getEnableEncryptedMedia" o = SettingsGetEnableEncryptedMediaMethodInfo
ResolveSettingsMethod "getEnableFullscreen" o = SettingsGetEnableFullscreenMethodInfo
ResolveSettingsMethod "getEnableHtml5Database" o = SettingsGetEnableHtml5DatabaseMethodInfo
ResolveSettingsMethod "getEnableHtml5LocalStorage" o = SettingsGetEnableHtml5LocalStorageMethodInfo
ResolveSettingsMethod "getEnableHyperlinkAuditing" o = SettingsGetEnableHyperlinkAuditingMethodInfo
ResolveSettingsMethod "getEnableJavascript" o = SettingsGetEnableJavascriptMethodInfo
ResolveSettingsMethod "getEnableJavascriptMarkup" o = SettingsGetEnableJavascriptMarkupMethodInfo
ResolveSettingsMethod "getEnableMedia" o = SettingsGetEnableMediaMethodInfo
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 "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 "getEnableWebrtc" o = SettingsGetEnableWebrtcMethodInfo
ResolveSettingsMethod "getEnableWriteConsoleMessagesToStdout" o = SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo
ResolveSettingsMethod "getFantasyFontFamily" o = SettingsGetFantasyFontFamilyMethodInfo
ResolveSettingsMethod "getHardwareAccelerationPolicy" o = SettingsGetHardwareAccelerationPolicyMethodInfo
ResolveSettingsMethod "getJavascriptCanAccessClipboard" o = SettingsGetJavascriptCanAccessClipboardMethodInfo
ResolveSettingsMethod "getJavascriptCanOpenWindowsAutomatically" o = SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo
ResolveSettingsMethod "getLoadIconsIgnoringImageLoadSetting" o = SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo
ResolveSettingsMethod "getMediaContentTypesRequiringHardwareSupport" o = SettingsGetMediaContentTypesRequiringHardwareSupportMethodInfo
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 "setAllowTopNavigationToDataUrls" o = SettingsSetAllowTopNavigationToDataUrlsMethodInfo
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 "setDisableWebSecurity" o = SettingsSetDisableWebSecurityMethodInfo
ResolveSettingsMethod "setDrawCompositingIndicators" o = SettingsSetDrawCompositingIndicatorsMethodInfo
ResolveSettingsMethod "setEnableBackForwardNavigationGestures" o = SettingsSetEnableBackForwardNavigationGesturesMethodInfo
ResolveSettingsMethod "setEnableCaretBrowsing" o = SettingsSetEnableCaretBrowsingMethodInfo
ResolveSettingsMethod "setEnableDeveloperExtras" o = SettingsSetEnableDeveloperExtrasMethodInfo
ResolveSettingsMethod "setEnableDnsPrefetching" o = SettingsSetEnableDnsPrefetchingMethodInfo
ResolveSettingsMethod "setEnableEncryptedMedia" o = SettingsSetEnableEncryptedMediaMethodInfo
ResolveSettingsMethod "setEnableFullscreen" o = SettingsSetEnableFullscreenMethodInfo
ResolveSettingsMethod "setEnableHtml5Database" o = SettingsSetEnableHtml5DatabaseMethodInfo
ResolveSettingsMethod "setEnableHtml5LocalStorage" o = SettingsSetEnableHtml5LocalStorageMethodInfo
ResolveSettingsMethod "setEnableHyperlinkAuditing" o = SettingsSetEnableHyperlinkAuditingMethodInfo
ResolveSettingsMethod "setEnableJavascript" o = SettingsSetEnableJavascriptMethodInfo
ResolveSettingsMethod "setEnableJavascriptMarkup" o = SettingsSetEnableJavascriptMarkupMethodInfo
ResolveSettingsMethod "setEnableMedia" o = SettingsSetEnableMediaMethodInfo
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 "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 "setEnableWebrtc" o = SettingsSetEnableWebrtcMethodInfo
ResolveSettingsMethod "setEnableWriteConsoleMessagesToStdout" o = SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo
ResolveSettingsMethod "setFantasyFontFamily" o = SettingsSetFantasyFontFamilyMethodInfo
ResolveSettingsMethod "setHardwareAccelerationPolicy" o = SettingsSetHardwareAccelerationPolicyMethodInfo
ResolveSettingsMethod "setJavascriptCanAccessClipboard" o = SettingsSetJavascriptCanAccessClipboardMethodInfo
ResolveSettingsMethod "setJavascriptCanOpenWindowsAutomatically" o = SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo
ResolveSettingsMethod "setLoadIconsIgnoringImageLoadSetting" o = SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo
ResolveSettingsMethod "setMediaContentTypesRequiringHardwareSupport" o = SettingsSetMediaContentTypesRequiringHardwareSupportMethodInfo
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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveSettingsMethod t Settings, O.OverloadedMethod info Settings p, R.HasField t Settings p) => R.HasField t Settings p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSettingsMethod t Settings, O.OverloadedMethodInfo info Settings) => OL.IsLabel t (O.MethodProxy info Settings) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowFileAccessFromFileUrls :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowFileAccessFromFileUrls o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"allow-file-access-from-file-urls"
setSettingsAllowFileAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsAllowFileAccessFromFileUrls :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsAllowFileAccessFromFileUrls o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-file-access-from-file-urls" Bool
val
constructSettingsAllowFileAccessFromFileUrls :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsAllowFileAccessFromFileUrls :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsAllowFileAccessFromFileUrls Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.allowFileAccessFromFileUrls"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:allowFileAccessFromFileUrls"
})
#endif
getSettingsAllowModalDialogs :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowModalDialogs :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowModalDialogs o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"allow-modal-dialogs"
setSettingsAllowModalDialogs :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsAllowModalDialogs :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsAllowModalDialogs o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-modal-dialogs" Bool
val
constructSettingsAllowModalDialogs :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsAllowModalDialogs :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsAllowModalDialogs Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.allowModalDialogs"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:allowModalDialogs"
})
#endif
getSettingsAllowTopNavigationToDataUrls :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowTopNavigationToDataUrls :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowTopNavigationToDataUrls o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"allow-top-navigation-to-data-urls"
setSettingsAllowTopNavigationToDataUrls :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsAllowTopNavigationToDataUrls :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsAllowTopNavigationToDataUrls o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-top-navigation-to-data-urls" Bool
val
constructSettingsAllowTopNavigationToDataUrls :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsAllowTopNavigationToDataUrls :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsAllowTopNavigationToDataUrls Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-top-navigation-to-data-urls" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsAllowTopNavigationToDataUrlsPropertyInfo
instance AttrInfo SettingsAllowTopNavigationToDataUrlsPropertyInfo where
type AttrAllowedOps SettingsAllowTopNavigationToDataUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsAllowTopNavigationToDataUrlsPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsAllowTopNavigationToDataUrlsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsAllowTopNavigationToDataUrlsPropertyInfo = (~) Bool
type AttrTransferType SettingsAllowTopNavigationToDataUrlsPropertyInfo = Bool
type AttrGetType SettingsAllowTopNavigationToDataUrlsPropertyInfo = Bool
type AttrLabel SettingsAllowTopNavigationToDataUrlsPropertyInfo = "allow-top-navigation-to-data-urls"
type AttrOrigin SettingsAllowTopNavigationToDataUrlsPropertyInfo = Settings
attrGet = getSettingsAllowTopNavigationToDataUrls
attrSet = setSettingsAllowTopNavigationToDataUrls
attrTransfer _ v = do
return v
attrConstruct = constructSettingsAllowTopNavigationToDataUrls
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.allowTopNavigationToDataUrls"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:allowTopNavigationToDataUrls"
})
#endif
getSettingsAllowUniversalAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowUniversalAccessFromFileUrls :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAllowUniversalAccessFromFileUrls o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"allow-universal-access-from-file-urls"
setSettingsAllowUniversalAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsAllowUniversalAccessFromFileUrls :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsAllowUniversalAccessFromFileUrls o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-universal-access-from-file-urls" Bool
val
constructSettingsAllowUniversalAccessFromFileUrls :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsAllowUniversalAccessFromFileUrls :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsAllowUniversalAccessFromFileUrls Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.allowUniversalAccessFromFileUrls"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:allowUniversalAccessFromFileUrls"
})
#endif
getSettingsAutoLoadImages :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAutoLoadImages :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsAutoLoadImages o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"auto-load-images"
setSettingsAutoLoadImages :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsAutoLoadImages :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsAutoLoadImages o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"auto-load-images" Bool
val
constructSettingsAutoLoadImages :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsAutoLoadImages :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsAutoLoadImages Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.autoLoadImages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:autoLoadImages"
})
#endif
getSettingsCursiveFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsCursiveFontFamily :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsCursiveFontFamily o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"cursive-font-family"
setSettingsCursiveFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsCursiveFontFamily :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsCursiveFontFamily o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"cursive-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsCursiveFontFamily :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsCursiveFontFamily :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsCursiveFontFamily Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"cursive-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
P.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.cursiveFontFamily"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:cursiveFontFamily"
})
#endif
getSettingsDefaultCharset :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsDefaultCharset :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsDefaultCharset o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"default-charset"
setSettingsDefaultCharset :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsDefaultCharset :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsDefaultCharset o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"default-charset" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsDefaultCharset :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsDefaultCharset :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsDefaultCharset Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"default-charset" (Text -> Maybe Text
forall a. a -> Maybe a
P.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.defaultCharset"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:defaultCharset"
})
#endif
getSettingsDefaultFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsDefaultFontFamily :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsDefaultFontFamily o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"default-font-family"
setSettingsDefaultFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsDefaultFontFamily :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsDefaultFontFamily o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"default-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsDefaultFontFamily :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsDefaultFontFamily :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsDefaultFontFamily Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"default-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
P.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.defaultFontFamily"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:defaultFontFamily"
})
#endif
getSettingsDefaultFontSize :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsDefaultFontSize :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Word32
getSettingsDefaultFontSize o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"default-font-size"
setSettingsDefaultFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()
setSettingsDefaultFontSize :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Word32 -> m ()
setSettingsDefaultFontSize o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"default-font-size" Word32
val
constructSettingsDefaultFontSize :: (IsSettings o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingsDefaultFontSize :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingsDefaultFontSize Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.defaultFontSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:defaultFontSize"
})
#endif
getSettingsDefaultMonospaceFontSize :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsDefaultMonospaceFontSize :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Word32
getSettingsDefaultMonospaceFontSize o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"default-monospace-font-size"
setSettingsDefaultMonospaceFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()
setSettingsDefaultMonospaceFontSize :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Word32 -> m ()
setSettingsDefaultMonospaceFontSize o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"default-monospace-font-size" Word32
val
constructSettingsDefaultMonospaceFontSize :: (IsSettings o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingsDefaultMonospaceFontSize :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingsDefaultMonospaceFontSize Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.defaultMonospaceFontSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:defaultMonospaceFontSize"
})
#endif
getSettingsDisableWebSecurity :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsDisableWebSecurity :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsDisableWebSecurity o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"disable-web-security"
setSettingsDisableWebSecurity :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsDisableWebSecurity :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsDisableWebSecurity o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"disable-web-security" Bool
val
constructSettingsDisableWebSecurity :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsDisableWebSecurity :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsDisableWebSecurity Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"disable-web-security" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsDisableWebSecurityPropertyInfo
instance AttrInfo SettingsDisableWebSecurityPropertyInfo where
type AttrAllowedOps SettingsDisableWebSecurityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsDisableWebSecurityPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsDisableWebSecurityPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsDisableWebSecurityPropertyInfo = (~) Bool
type AttrTransferType SettingsDisableWebSecurityPropertyInfo = Bool
type AttrGetType SettingsDisableWebSecurityPropertyInfo = Bool
type AttrLabel SettingsDisableWebSecurityPropertyInfo = "disable-web-security"
type AttrOrigin SettingsDisableWebSecurityPropertyInfo = Settings
attrGet = getSettingsDisableWebSecurity
attrSet = setSettingsDisableWebSecurity
attrTransfer _ v = do
return v
attrConstruct = constructSettingsDisableWebSecurity
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.disableWebSecurity"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:disableWebSecurity"
})
#endif
getSettingsDrawCompositingIndicators :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsDrawCompositingIndicators :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsDrawCompositingIndicators o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"draw-compositing-indicators"
setSettingsDrawCompositingIndicators :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsDrawCompositingIndicators :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsDrawCompositingIndicators o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"draw-compositing-indicators" Bool
val
constructSettingsDrawCompositingIndicators :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsDrawCompositingIndicators :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsDrawCompositingIndicators Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.drawCompositingIndicators"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:drawCompositingIndicators"
})
#endif
getSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableBackForwardNavigationGestures :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableBackForwardNavigationGestures o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-back-forward-navigation-gestures"
setSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableBackForwardNavigationGestures :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableBackForwardNavigationGestures o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-back-forward-navigation-gestures" Bool
val
constructSettingsEnableBackForwardNavigationGestures :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableBackForwardNavigationGestures :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableBackForwardNavigationGestures Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableBackForwardNavigationGestures"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableBackForwardNavigationGestures"
})
#endif
getSettingsEnableCaretBrowsing :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableCaretBrowsing :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableCaretBrowsing o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-caret-browsing"
setSettingsEnableCaretBrowsing :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableCaretBrowsing :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableCaretBrowsing o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-caret-browsing" Bool
val
constructSettingsEnableCaretBrowsing :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableCaretBrowsing :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableCaretBrowsing Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableCaretBrowsing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableCaretBrowsing"
})
#endif
getSettingsEnableDeveloperExtras :: (MonadIO m, IsSettings o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-developer-extras"
setSettingsEnableDeveloperExtras :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-developer-extras" Bool
val
constructSettingsEnableDeveloperExtras :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableDeveloperExtras"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableDeveloperExtras"
})
#endif
getSettingsEnableDnsPrefetching :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableDnsPrefetching :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableDnsPrefetching o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-dns-prefetching"
setSettingsEnableDnsPrefetching :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableDnsPrefetching :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableDnsPrefetching o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-dns-prefetching" Bool
val
constructSettingsEnableDnsPrefetching :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableDnsPrefetching :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableDnsPrefetching Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableDnsPrefetching"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableDnsPrefetching"
})
#endif
getSettingsEnableEncryptedMedia :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableEncryptedMedia :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableEncryptedMedia o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-encrypted-media"
setSettingsEnableEncryptedMedia :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableEncryptedMedia :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableEncryptedMedia o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-encrypted-media" Bool
val
constructSettingsEnableEncryptedMedia :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableEncryptedMedia :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableEncryptedMedia Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableEncryptedMedia"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableEncryptedMedia"
})
#endif
getSettingsEnableFullscreen :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableFullscreen :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableFullscreen o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-fullscreen"
setSettingsEnableFullscreen :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableFullscreen :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableFullscreen o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-fullscreen" Bool
val
constructSettingsEnableFullscreen :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableFullscreen :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableFullscreen Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableFullscreen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableFullscreen"
})
#endif
getSettingsEnableHtml5Database :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHtml5Database :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHtml5Database o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-html5-database"
setSettingsEnableHtml5Database :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableHtml5Database :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableHtml5Database o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-html5-database" Bool
val
constructSettingsEnableHtml5Database :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableHtml5Database :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableHtml5Database Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableHtml5Database"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableHtml5Database"
})
#endif
getSettingsEnableHtml5LocalStorage :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHtml5LocalStorage :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHtml5LocalStorage o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-html5-local-storage"
setSettingsEnableHtml5LocalStorage :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableHtml5LocalStorage :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableHtml5LocalStorage o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-html5-local-storage" Bool
val
constructSettingsEnableHtml5LocalStorage :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableHtml5LocalStorage :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableHtml5LocalStorage Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableHtml5LocalStorage"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableHtml5LocalStorage"
})
#endif
getSettingsEnableHyperlinkAuditing :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHyperlinkAuditing :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableHyperlinkAuditing o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-hyperlink-auditing"
setSettingsEnableHyperlinkAuditing :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableHyperlinkAuditing :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableHyperlinkAuditing o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-hyperlink-auditing" Bool
val
constructSettingsEnableHyperlinkAuditing :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableHyperlinkAuditing :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableHyperlinkAuditing Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableHyperlinkAuditing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableHyperlinkAuditing"
})
#endif
getSettingsEnableJavascript :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJavascript :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJavascript o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-javascript"
setSettingsEnableJavascript :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableJavascript :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableJavascript o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-javascript" Bool
val
constructSettingsEnableJavascript :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableJavascript :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableJavascript Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableJavascript"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableJavascript"
})
#endif
getSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJavascriptMarkup :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableJavascriptMarkup o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-javascript-markup"
setSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableJavascriptMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableJavascriptMarkup o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-javascript-markup" Bool
val
constructSettingsEnableJavascriptMarkup :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableJavascriptMarkup :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableJavascriptMarkup Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableJavascriptMarkup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableJavascriptMarkup"
})
#endif
getSettingsEnableMedia :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMedia :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMedia o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-media"
setSettingsEnableMedia :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableMedia :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableMedia o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-media" Bool
val
constructSettingsEnableMedia :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableMedia :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableMedia Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-media" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsEnableMediaPropertyInfo
instance AttrInfo SettingsEnableMediaPropertyInfo where
type AttrAllowedOps SettingsEnableMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsEnableMediaPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsEnableMediaPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsEnableMediaPropertyInfo = (~) Bool
type AttrTransferType SettingsEnableMediaPropertyInfo = Bool
type AttrGetType SettingsEnableMediaPropertyInfo = Bool
type AttrLabel SettingsEnableMediaPropertyInfo = "enable-media"
type AttrOrigin SettingsEnableMediaPropertyInfo = Settings
attrGet = getSettingsEnableMedia
attrSet = setSettingsEnableMedia
attrTransfer _ v = do
return v
attrConstruct = constructSettingsEnableMedia
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableMedia"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableMedia"
})
#endif
getSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediaCapabilities :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediaCapabilities o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-media-capabilities"
setSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableMediaCapabilities :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableMediaCapabilities o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-media-capabilities" Bool
val
constructSettingsEnableMediaCapabilities :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableMediaCapabilities :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableMediaCapabilities Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableMediaCapabilities"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableMediaCapabilities"
})
#endif
getSettingsEnableMediaStream :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediaStream :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediaStream o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-media-stream"
setSettingsEnableMediaStream :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableMediaStream :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableMediaStream o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-media-stream" Bool
val
constructSettingsEnableMediaStream :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableMediaStream :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableMediaStream Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableMediaStream"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableMediaStream"
})
#endif
getSettingsEnableMediasource :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediasource :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMediasource o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-mediasource"
setSettingsEnableMediasource :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableMediasource :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableMediasource o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-mediasource" Bool
val
constructSettingsEnableMediasource :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableMediasource :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableMediasource Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableMediasource"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableMediasource"
})
#endif
getSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMockCaptureDevices :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableMockCaptureDevices o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-mock-capture-devices"
setSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableMockCaptureDevices :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableMockCaptureDevices o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-mock-capture-devices" Bool
val
constructSettingsEnableMockCaptureDevices :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableMockCaptureDevices :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableMockCaptureDevices Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableMockCaptureDevices"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableMockCaptureDevices"
})
#endif
getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableOfflineWebApplicationCache :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableOfflineWebApplicationCache o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-offline-web-application-cache"
setSettingsEnableOfflineWebApplicationCache :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableOfflineWebApplicationCache :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableOfflineWebApplicationCache o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-offline-web-application-cache" Bool
val
constructSettingsEnableOfflineWebApplicationCache :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableOfflineWebApplicationCache :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableOfflineWebApplicationCache Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableOfflineWebApplicationCache"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableOfflineWebApplicationCache"
})
#endif
getSettingsEnablePageCache :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnablePageCache :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnablePageCache o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-page-cache"
setSettingsEnablePageCache :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnablePageCache :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnablePageCache o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-page-cache" Bool
val
constructSettingsEnablePageCache :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnablePageCache :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnablePageCache Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enablePageCache"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enablePageCache"
})
#endif
getSettingsEnableResizableTextAreas :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableResizableTextAreas :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableResizableTextAreas o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-resizable-text-areas"
setSettingsEnableResizableTextAreas :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableResizableTextAreas :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableResizableTextAreas o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-resizable-text-areas" Bool
val
constructSettingsEnableResizableTextAreas :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableResizableTextAreas :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableResizableTextAreas Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableResizableTextAreas"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableResizableTextAreas"
})
#endif
getSettingsEnableSiteSpecificQuirks :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSiteSpecificQuirks :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSiteSpecificQuirks o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-site-specific-quirks"
setSettingsEnableSiteSpecificQuirks :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableSiteSpecificQuirks :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableSiteSpecificQuirks o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-site-specific-quirks" Bool
val
constructSettingsEnableSiteSpecificQuirks :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableSiteSpecificQuirks :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableSiteSpecificQuirks Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableSiteSpecificQuirks"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableSiteSpecificQuirks"
})
#endif
getSettingsEnableSmoothScrolling :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSmoothScrolling :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSmoothScrolling o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-smooth-scrolling"
setSettingsEnableSmoothScrolling :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableSmoothScrolling :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableSmoothScrolling o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-smooth-scrolling" Bool
val
constructSettingsEnableSmoothScrolling :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableSmoothScrolling :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableSmoothScrolling Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableSmoothScrolling"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableSmoothScrolling"
})
#endif
getSettingsEnableSpatialNavigation :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSpatialNavigation :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableSpatialNavigation o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-spatial-navigation"
setSettingsEnableSpatialNavigation :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableSpatialNavigation :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableSpatialNavigation o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-spatial-navigation" Bool
val
constructSettingsEnableSpatialNavigation :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableSpatialNavigation :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableSpatialNavigation Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableSpatialNavigation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableSpatialNavigation"
})
#endif
getSettingsEnableTabsToLinks :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableTabsToLinks :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableTabsToLinks o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-tabs-to-links"
setSettingsEnableTabsToLinks :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableTabsToLinks :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableTabsToLinks o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-tabs-to-links" Bool
val
constructSettingsEnableTabsToLinks :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableTabsToLinks :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableTabsToLinks Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableTabsToLinks"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableTabsToLinks"
})
#endif
getSettingsEnableWebaudio :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebaudio :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebaudio o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-webaudio"
setSettingsEnableWebaudio :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableWebaudio :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableWebaudio o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-webaudio" Bool
val
constructSettingsEnableWebaudio :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableWebaudio :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableWebaudio Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableWebaudio"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableWebaudio"
})
#endif
getSettingsEnableWebgl :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebgl :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebgl o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-webgl"
setSettingsEnableWebgl :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableWebgl :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableWebgl o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-webgl" Bool
val
constructSettingsEnableWebgl :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableWebgl :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableWebgl Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableWebgl"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableWebgl"
})
#endif
getSettingsEnableWebrtc :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebrtc :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWebrtc o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-webrtc"
setSettingsEnableWebrtc :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableWebrtc :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableWebrtc o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-webrtc" Bool
val
constructSettingsEnableWebrtc :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableWebrtc :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableWebrtc Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-webrtc" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingsEnableWebrtcPropertyInfo
instance AttrInfo SettingsEnableWebrtcPropertyInfo where
type AttrAllowedOps SettingsEnableWebrtcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingsEnableWebrtcPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsEnableWebrtcPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingsEnableWebrtcPropertyInfo = (~) Bool
type AttrTransferType SettingsEnableWebrtcPropertyInfo = Bool
type AttrGetType SettingsEnableWebrtcPropertyInfo = Bool
type AttrLabel SettingsEnableWebrtcPropertyInfo = "enable-webrtc"
type AttrOrigin SettingsEnableWebrtcPropertyInfo = Settings
attrGet = getSettingsEnableWebrtc
attrSet = setSettingsEnableWebrtc
attrTransfer _ v = do
return v
attrConstruct = constructSettingsEnableWebrtc
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableWebrtc"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableWebrtc"
})
#endif
getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWriteConsoleMessagesToStdout :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsEnableWriteConsoleMessagesToStdout o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-write-console-messages-to-stdout"
setSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsEnableWriteConsoleMessagesToStdout :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsEnableWriteConsoleMessagesToStdout o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-write-console-messages-to-stdout" Bool
val
constructSettingsEnableWriteConsoleMessagesToStdout :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsEnableWriteConsoleMessagesToStdout :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsEnableWriteConsoleMessagesToStdout Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.enableWriteConsoleMessagesToStdout"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:enableWriteConsoleMessagesToStdout"
})
#endif
getSettingsFantasyFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsFantasyFontFamily :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsFantasyFontFamily o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"fantasy-font-family"
setSettingsFantasyFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsFantasyFontFamily :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsFantasyFontFamily o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"fantasy-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsFantasyFontFamily :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsFantasyFontFamily :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsFantasyFontFamily Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"fantasy-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
P.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.fantasyFontFamily"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:fantasyFontFamily"
})
#endif
getSettingsHardwareAccelerationPolicy :: (MonadIO m, IsSettings o) => o -> m WebKit.Enums.HardwareAccelerationPolicy
getSettingsHardwareAccelerationPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> m HardwareAccelerationPolicy
getSettingsHardwareAccelerationPolicy o
obj = IO HardwareAccelerationPolicy -> m HardwareAccelerationPolicy
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"hardware-acceleration-policy"
setSettingsHardwareAccelerationPolicy :: (MonadIO m, IsSettings o) => o -> WebKit.Enums.HardwareAccelerationPolicy -> m ()
setSettingsHardwareAccelerationPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> HardwareAccelerationPolicy -> m ()
setSettingsHardwareAccelerationPolicy o
obj HardwareAccelerationPolicy
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> HardwareAccelerationPolicy -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"hardware-acceleration-policy" HardwareAccelerationPolicy
val
constructSettingsHardwareAccelerationPolicy :: (IsSettings o, MIO.MonadIO m) => WebKit.Enums.HardwareAccelerationPolicy -> m (GValueConstruct o)
constructSettingsHardwareAccelerationPolicy :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
HardwareAccelerationPolicy -> m (GValueConstruct o)
constructSettingsHardwareAccelerationPolicy HardwareAccelerationPolicy
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> HardwareAccelerationPolicy -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"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 = (~) WebKit.Enums.HardwareAccelerationPolicy
type AttrTransferTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = (~) WebKit.Enums.HardwareAccelerationPolicy
type AttrTransferType SettingsHardwareAccelerationPolicyPropertyInfo = WebKit.Enums.HardwareAccelerationPolicy
type AttrGetType SettingsHardwareAccelerationPolicyPropertyInfo = WebKit.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.hardwareAccelerationPolicy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:hardwareAccelerationPolicy"
})
#endif
getSettingsJavascriptCanAccessClipboard :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsJavascriptCanAccessClipboard :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsJavascriptCanAccessClipboard o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"javascript-can-access-clipboard"
setSettingsJavascriptCanAccessClipboard :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsJavascriptCanAccessClipboard :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsJavascriptCanAccessClipboard o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"javascript-can-access-clipboard" Bool
val
constructSettingsJavascriptCanAccessClipboard :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsJavascriptCanAccessClipboard :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsJavascriptCanAccessClipboard Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.javascriptCanAccessClipboard"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:javascriptCanAccessClipboard"
})
#endif
getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsJavascriptCanOpenWindowsAutomatically :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsJavascriptCanOpenWindowsAutomatically o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"javascript-can-open-windows-automatically"
setSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsJavascriptCanOpenWindowsAutomatically :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsJavascriptCanOpenWindowsAutomatically o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"javascript-can-open-windows-automatically" Bool
val
constructSettingsJavascriptCanOpenWindowsAutomatically :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsJavascriptCanOpenWindowsAutomatically :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsJavascriptCanOpenWindowsAutomatically Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.javascriptCanOpenWindowsAutomatically"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:javascriptCanOpenWindowsAutomatically"
})
#endif
getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsLoadIconsIgnoringImageLoadSetting :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsLoadIconsIgnoringImageLoadSetting o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"load-icons-ignoring-image-load-setting"
setSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsLoadIconsIgnoringImageLoadSetting :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsLoadIconsIgnoringImageLoadSetting o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"load-icons-ignoring-image-load-setting" Bool
val
constructSettingsLoadIconsIgnoringImageLoadSetting :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsLoadIconsIgnoringImageLoadSetting :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsLoadIconsIgnoringImageLoadSetting Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.loadIconsIgnoringImageLoadSetting"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:loadIconsIgnoringImageLoadSetting"
})
#endif
getSettingsMediaContentTypesRequiringHardwareSupport :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsMediaContentTypesRequiringHardwareSupport :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsMediaContentTypesRequiringHardwareSupport o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"getSettingsMediaContentTypesRequiringHardwareSupport" (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 String
"media-content-types-requiring-hardware-support"
setSettingsMediaContentTypesRequiringHardwareSupport :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsMediaContentTypesRequiringHardwareSupport :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsMediaContentTypesRequiringHardwareSupport o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"media-content-types-requiring-hardware-support" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsMediaContentTypesRequiringHardwareSupport :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsMediaContentTypesRequiringHardwareSupport :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsMediaContentTypesRequiringHardwareSupport Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"media-content-types-requiring-hardware-support" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingsMediaContentTypesRequiringHardwareSupport :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsMediaContentTypesRequiringHardwareSupport :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m ()
clearSettingsMediaContentTypesRequiringHardwareSupport o
obj = IO () -> m ()
forall a. IO a -> m a
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 String
"media-content-types-requiring-hardware-support" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo
instance AttrInfo SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo where
type AttrAllowedOps SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo = IsSettings
type AttrSetTypeConstraint SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo = (~) T.Text
type AttrTransferType SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo = T.Text
type AttrGetType SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo = T.Text
type AttrLabel SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo = "media-content-types-requiring-hardware-support"
type AttrOrigin SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo = Settings
attrGet = getSettingsMediaContentTypesRequiringHardwareSupport
attrSet = setSettingsMediaContentTypesRequiringHardwareSupport
attrTransfer _ v = do
return v
attrConstruct = constructSettingsMediaContentTypesRequiringHardwareSupport
attrClear = clearSettingsMediaContentTypesRequiringHardwareSupport
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.mediaContentTypesRequiringHardwareSupport"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:mediaContentTypesRequiringHardwareSupport"
})
#endif
getSettingsMediaPlaybackAllowsInline :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsMediaPlaybackAllowsInline :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsMediaPlaybackAllowsInline o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"media-playback-allows-inline"
setSettingsMediaPlaybackAllowsInline :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsMediaPlaybackAllowsInline :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsMediaPlaybackAllowsInline o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"media-playback-allows-inline" Bool
val
constructSettingsMediaPlaybackAllowsInline :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsMediaPlaybackAllowsInline :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsMediaPlaybackAllowsInline Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.mediaPlaybackAllowsInline"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:mediaPlaybackAllowsInline"
})
#endif
getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsMediaPlaybackRequiresUserGesture :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsMediaPlaybackRequiresUserGesture o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"media-playback-requires-user-gesture"
setSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsMediaPlaybackRequiresUserGesture :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsMediaPlaybackRequiresUserGesture o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"media-playback-requires-user-gesture" Bool
val
constructSettingsMediaPlaybackRequiresUserGesture :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsMediaPlaybackRequiresUserGesture :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsMediaPlaybackRequiresUserGesture Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.mediaPlaybackRequiresUserGesture"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:mediaPlaybackRequiresUserGesture"
})
#endif
getSettingsMinimumFontSize :: (MonadIO m, IsSettings o) => o -> m Word32
getSettingsMinimumFontSize :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Word32
getSettingsMinimumFontSize o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"minimum-font-size"
setSettingsMinimumFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()
setSettingsMinimumFontSize :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Word32 -> m ()
setSettingsMinimumFontSize o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"minimum-font-size" Word32
val
constructSettingsMinimumFontSize :: (IsSettings o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingsMinimumFontSize :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingsMinimumFontSize Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.minimumFontSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:minimumFontSize"
})
#endif
getSettingsMonospaceFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsMonospaceFontFamily :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsMonospaceFontFamily o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"monospace-font-family"
setSettingsMonospaceFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsMonospaceFontFamily :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsMonospaceFontFamily o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"monospace-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsMonospaceFontFamily :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsMonospaceFontFamily :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsMonospaceFontFamily Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"monospace-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
P.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.monospaceFontFamily"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:monospaceFontFamily"
})
#endif
getSettingsPictographFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsPictographFontFamily :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsPictographFontFamily o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"pictograph-font-family"
setSettingsPictographFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsPictographFontFamily :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsPictographFontFamily o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"pictograph-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsPictographFontFamily :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsPictographFontFamily :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsPictographFontFamily Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"pictograph-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
P.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.pictographFontFamily"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:pictographFontFamily"
})
#endif
getSettingsPrintBackgrounds :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsPrintBackgrounds :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsPrintBackgrounds o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"print-backgrounds"
setSettingsPrintBackgrounds :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsPrintBackgrounds :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsPrintBackgrounds o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"print-backgrounds" Bool
val
constructSettingsPrintBackgrounds :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsPrintBackgrounds :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsPrintBackgrounds Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.printBackgrounds"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:printBackgrounds"
})
#endif
getSettingsSansSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsSansSerifFontFamily :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsSansSerifFontFamily o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"sans-serif-font-family"
setSettingsSansSerifFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsSansSerifFontFamily :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsSansSerifFontFamily o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"sans-serif-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsSansSerifFontFamily :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsSansSerifFontFamily :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsSansSerifFontFamily Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"sans-serif-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
P.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.sansSerifFontFamily"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:sansSerifFontFamily"
})
#endif
getSettingsSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsSerifFontFamily :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsSerifFontFamily o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"serif-font-family"
setSettingsSerifFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsSerifFontFamily :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsSerifFontFamily o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"serif-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsSerifFontFamily :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsSerifFontFamily :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsSerifFontFamily Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"serif-font-family" (Text -> Maybe Text
forall a. a -> Maybe a
P.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.serifFontFamily"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:serifFontFamily"
})
#endif
getSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m T.Text
getSettingsUserAgent :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Text
getSettingsUserAgent o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"user-agent"
setSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()
setSettingsUserAgent :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Text -> m ()
setSettingsUserAgent o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"user-agent" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingsUserAgent :: (IsSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingsUserAgent :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingsUserAgent Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"user-agent" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m ()
clearSettingsUserAgent :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m ()
clearSettingsUserAgent o
obj = IO () -> m ()
forall a. IO a -> m a
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 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.userAgent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:userAgent"
})
#endif
getSettingsZoomTextOnly :: (MonadIO m, IsSettings o) => o -> m Bool
getSettingsZoomTextOnly :: forall (m :: * -> *) o. (MonadIO m, IsSettings o) => o -> m Bool
getSettingsZoomTextOnly o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"zoom-text-only"
setSettingsZoomTextOnly :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
setSettingsZoomTextOnly :: forall (m :: * -> *) o.
(MonadIO m, IsSettings o) =>
o -> Bool -> m ()
setSettingsZoomTextOnly o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"zoom-text-only" Bool
val
constructSettingsZoomTextOnly :: (IsSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingsZoomTextOnly :: forall o (m :: * -> *).
(IsSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingsZoomTextOnly Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.zoomTextOnly"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#g:attr:zoomTextOnly"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Settings
type instance O.AttributeList Settings = SettingsAttributeList
type SettingsAttributeList = ('[ '("allowFileAccessFromFileUrls", SettingsAllowFileAccessFromFileUrlsPropertyInfo), '("allowModalDialogs", SettingsAllowModalDialogsPropertyInfo), '("allowTopNavigationToDataUrls", SettingsAllowTopNavigationToDataUrlsPropertyInfo), '("allowUniversalAccessFromFileUrls", SettingsAllowUniversalAccessFromFileUrlsPropertyInfo), '("autoLoadImages", SettingsAutoLoadImagesPropertyInfo), '("cursiveFontFamily", SettingsCursiveFontFamilyPropertyInfo), '("defaultCharset", SettingsDefaultCharsetPropertyInfo), '("defaultFontFamily", SettingsDefaultFontFamilyPropertyInfo), '("defaultFontSize", SettingsDefaultFontSizePropertyInfo), '("defaultMonospaceFontSize", SettingsDefaultMonospaceFontSizePropertyInfo), '("disableWebSecurity", SettingsDisableWebSecurityPropertyInfo), '("drawCompositingIndicators", SettingsDrawCompositingIndicatorsPropertyInfo), '("enableBackForwardNavigationGestures", SettingsEnableBackForwardNavigationGesturesPropertyInfo), '("enableCaretBrowsing", SettingsEnableCaretBrowsingPropertyInfo), '("enableDeveloperExtras", SettingsEnableDeveloperExtrasPropertyInfo), '("enableDnsPrefetching", SettingsEnableDnsPrefetchingPropertyInfo), '("enableEncryptedMedia", SettingsEnableEncryptedMediaPropertyInfo), '("enableFullscreen", SettingsEnableFullscreenPropertyInfo), '("enableHtml5Database", SettingsEnableHtml5DatabasePropertyInfo), '("enableHtml5LocalStorage", SettingsEnableHtml5LocalStoragePropertyInfo), '("enableHyperlinkAuditing", SettingsEnableHyperlinkAuditingPropertyInfo), '("enableJavascript", SettingsEnableJavascriptPropertyInfo), '("enableJavascriptMarkup", SettingsEnableJavascriptMarkupPropertyInfo), '("enableMedia", SettingsEnableMediaPropertyInfo), '("enableMediaCapabilities", SettingsEnableMediaCapabilitiesPropertyInfo), '("enableMediaStream", SettingsEnableMediaStreamPropertyInfo), '("enableMediasource", SettingsEnableMediasourcePropertyInfo), '("enableMockCaptureDevices", SettingsEnableMockCaptureDevicesPropertyInfo), '("enableOfflineWebApplicationCache", SettingsEnableOfflineWebApplicationCachePropertyInfo), '("enablePageCache", SettingsEnablePageCachePropertyInfo), '("enableResizableTextAreas", SettingsEnableResizableTextAreasPropertyInfo), '("enableSiteSpecificQuirks", SettingsEnableSiteSpecificQuirksPropertyInfo), '("enableSmoothScrolling", SettingsEnableSmoothScrollingPropertyInfo), '("enableSpatialNavigation", SettingsEnableSpatialNavigationPropertyInfo), '("enableTabsToLinks", SettingsEnableTabsToLinksPropertyInfo), '("enableWebaudio", SettingsEnableWebaudioPropertyInfo), '("enableWebgl", SettingsEnableWebglPropertyInfo), '("enableWebrtc", SettingsEnableWebrtcPropertyInfo), '("enableWriteConsoleMessagesToStdout", SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo), '("fantasyFontFamily", SettingsFantasyFontFamilyPropertyInfo), '("hardwareAccelerationPolicy", SettingsHardwareAccelerationPolicyPropertyInfo), '("javascriptCanAccessClipboard", SettingsJavascriptCanAccessClipboardPropertyInfo), '("javascriptCanOpenWindowsAutomatically", SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("loadIconsIgnoringImageLoadSetting", SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo), '("mediaContentTypesRequiringHardwareSupport", SettingsMediaContentTypesRequiringHardwareSupportPropertyInfo), '("mediaPlaybackAllowsInline", SettingsMediaPlaybackAllowsInlinePropertyInfo), '("mediaPlaybackRequiresUserGesture", SettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimumFontSize", SettingsMinimumFontSizePropertyInfo), '("monospaceFontFamily", SettingsMonospaceFontFamilyPropertyInfo), '("pictographFontFamily", SettingsPictographFontFamilyPropertyInfo), '("printBackgrounds", SettingsPrintBackgroundsPropertyInfo), '("sansSerifFontFamily", SettingsSansSerifFontFamilyPropertyInfo), '("serifFontFamily", SettingsSerifFontFamilyPropertyInfo), '("userAgent", SettingsUserAgentPropertyInfo), '("zoomTextOnly", SettingsZoomTextOnlyPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
settingsAllowFileAccessFromFileUrls :: AttrLabelProxy "allowFileAccessFromFileUrls"
settingsAllowFileAccessFromFileUrls = AttrLabelProxy
settingsAllowModalDialogs :: AttrLabelProxy "allowModalDialogs"
settingsAllowModalDialogs = AttrLabelProxy
settingsAllowTopNavigationToDataUrls :: AttrLabelProxy "allowTopNavigationToDataUrls"
settingsAllowTopNavigationToDataUrls = 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
settingsDisableWebSecurity :: AttrLabelProxy "disableWebSecurity"
settingsDisableWebSecurity = AttrLabelProxy
settingsDrawCompositingIndicators :: AttrLabelProxy "drawCompositingIndicators"
settingsDrawCompositingIndicators = 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
settingsEnableFullscreen :: AttrLabelProxy "enableFullscreen"
settingsEnableFullscreen = AttrLabelProxy
settingsEnableHtml5Database :: AttrLabelProxy "enableHtml5Database"
settingsEnableHtml5Database = AttrLabelProxy
settingsEnableHtml5LocalStorage :: AttrLabelProxy "enableHtml5LocalStorage"
settingsEnableHtml5LocalStorage = AttrLabelProxy
settingsEnableHyperlinkAuditing :: AttrLabelProxy "enableHyperlinkAuditing"
settingsEnableHyperlinkAuditing = AttrLabelProxy
settingsEnableJavascript :: AttrLabelProxy "enableJavascript"
settingsEnableJavascript = AttrLabelProxy
settingsEnableJavascriptMarkup :: AttrLabelProxy "enableJavascriptMarkup"
settingsEnableJavascriptMarkup = AttrLabelProxy
settingsEnableMedia :: AttrLabelProxy "enableMedia"
settingsEnableMedia = 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
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
settingsEnableWebrtc :: AttrLabelProxy "enableWebrtc"
settingsEnableWebrtc = AttrLabelProxy
settingsEnableWriteConsoleMessagesToStdout :: AttrLabelProxy "enableWriteConsoleMessagesToStdout"
settingsEnableWriteConsoleMessagesToStdout = 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
settingsMediaContentTypesRequiringHardwareSupport :: AttrLabelProxy "mediaContentTypesRequiringHardwareSupport"
settingsMediaContentTypesRequiringHardwareSupport = 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, DK.Type)])
#endif
foreign import ccall "webkit_settings_new" webkit_settings_new ::
IO (Ptr Settings)
settingsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Settings
settingsNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Settings
settingsNew = IO Settings -> m Settings
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetAllowFileAccessFromFileUrls a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetAllowFileAccessFromFileUrlsMethodInfo a signature where
overloadedMethod = settingsGetAllowFileAccessFromFileUrls
instance O.OverloadedMethodInfo SettingsGetAllowFileAccessFromFileUrlsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetAllowFileAccessFromFileUrls",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetAllowModalDialogs a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetAllowModalDialogsMethodInfo a signature where
overloadedMethod = settingsGetAllowModalDialogs
instance O.OverloadedMethodInfo SettingsGetAllowModalDialogsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetAllowModalDialogs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetAllowModalDialogs"
})
#endif
foreign import ccall "webkit_settings_get_allow_top_navigation_to_data_urls" webkit_settings_get_allow_top_navigation_to_data_urls ::
Ptr Settings ->
IO CInt
settingsGetAllowTopNavigationToDataUrls ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetAllowTopNavigationToDataUrls :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetAllowTopNavigationToDataUrls a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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_top_navigation_to_data_urls Ptr Settings
settings'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingsGetAllowTopNavigationToDataUrlsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsGetAllowTopNavigationToDataUrlsMethodInfo a signature where
overloadedMethod = settingsGetAllowTopNavigationToDataUrls
instance O.OverloadedMethodInfo SettingsGetAllowTopNavigationToDataUrlsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetAllowTopNavigationToDataUrls",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetAllowTopNavigationToDataUrls"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetAllowUniversalAccessFromFileUrls a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo a signature where
overloadedMethod = settingsGetAllowUniversalAccessFromFileUrls
instance O.OverloadedMethodInfo SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetAllowUniversalAccessFromFileUrls",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetAutoLoadImages a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetAutoLoadImagesMethodInfo a signature where
overloadedMethod = settingsGetAutoLoadImages
instance O.OverloadedMethodInfo SettingsGetAutoLoadImagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetAutoLoadImages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetCursiveFontFamily a
settings = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod SettingsGetCursiveFontFamilyMethodInfo a signature where
overloadedMethod = settingsGetCursiveFontFamily
instance O.OverloadedMethodInfo SettingsGetCursiveFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetCursiveFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetDefaultCharset a
settings = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod SettingsGetDefaultCharsetMethodInfo a signature where
overloadedMethod = settingsGetDefaultCharset
instance O.OverloadedMethodInfo SettingsGetDefaultCharsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetDefaultCharset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetDefaultFontFamily a
settings = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod SettingsGetDefaultFontFamilyMethodInfo a signature where
overloadedMethod = settingsGetDefaultFontFamily
instance O.OverloadedMethodInfo SettingsGetDefaultFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetDefaultFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Word32
settingsGetDefaultFontSize a
settings = IO Word32 -> m Word32
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsGetDefaultFontSizeMethodInfo a signature where
overloadedMethod = settingsGetDefaultFontSize
instance O.OverloadedMethodInfo SettingsGetDefaultFontSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetDefaultFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Word32
settingsGetDefaultMonospaceFontSize a
settings = IO Word32 -> m Word32
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsGetDefaultMonospaceFontSizeMethodInfo a signature where
overloadedMethod = settingsGetDefaultMonospaceFontSize
instance O.OverloadedMethodInfo SettingsGetDefaultMonospaceFontSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetDefaultMonospaceFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetDefaultMonospaceFontSize"
})
#endif
foreign import ccall "webkit_settings_get_disable_web_security" webkit_settings_get_disable_web_security ::
Ptr Settings ->
IO CInt
settingsGetDisableWebSecurity ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetDisableWebSecurity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetDisableWebSecurity a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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_disable_web_security Ptr Settings
settings'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingsGetDisableWebSecurityMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsGetDisableWebSecurityMethodInfo a signature where
overloadedMethod = settingsGetDisableWebSecurity
instance O.OverloadedMethodInfo SettingsGetDisableWebSecurityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetDisableWebSecurity",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetDisableWebSecurity"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetDrawCompositingIndicators a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetDrawCompositingIndicatorsMethodInfo a signature where
overloadedMethod = settingsGetDrawCompositingIndicators
instance O.OverloadedMethodInfo SettingsGetDrawCompositingIndicatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetDrawCompositingIndicators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetDrawCompositingIndicators"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableBackForwardNavigationGestures a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableBackForwardNavigationGesturesMethodInfo a signature where
overloadedMethod = settingsGetEnableBackForwardNavigationGestures
instance O.OverloadedMethodInfo SettingsGetEnableBackForwardNavigationGesturesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableBackForwardNavigationGestures",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableCaretBrowsing a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableCaretBrowsingMethodInfo a signature where
overloadedMethod = settingsGetEnableCaretBrowsing
instance O.OverloadedMethodInfo SettingsGetEnableCaretBrowsingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableCaretBrowsing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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
a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableDeveloperExtrasMethodInfo a signature where
overloadedMethod = settingsGetEnableDeveloperExtras
instance O.OverloadedMethodInfo SettingsGetEnableDeveloperExtrasMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableDeveloperExtras",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableDnsPrefetching a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableDnsPrefetchingMethodInfo a signature where
overloadedMethod = settingsGetEnableDnsPrefetching
instance O.OverloadedMethodInfo SettingsGetEnableDnsPrefetchingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableDnsPrefetching",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableEncryptedMedia a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableEncryptedMediaMethodInfo a signature where
overloadedMethod = settingsGetEnableEncryptedMedia
instance O.OverloadedMethodInfo SettingsGetEnableEncryptedMediaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableEncryptedMedia",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetEnableEncryptedMedia"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableFullscreen a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableFullscreenMethodInfo a signature where
overloadedMethod = settingsGetEnableFullscreen
instance O.OverloadedMethodInfo SettingsGetEnableFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableHtml5Database a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableHtml5DatabaseMethodInfo a signature where
overloadedMethod = settingsGetEnableHtml5Database
instance O.OverloadedMethodInfo SettingsGetEnableHtml5DatabaseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableHtml5Database",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableHtml5LocalStorage a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableHtml5LocalStorageMethodInfo a signature where
overloadedMethod = settingsGetEnableHtml5LocalStorage
instance O.OverloadedMethodInfo SettingsGetEnableHtml5LocalStorageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableHtml5LocalStorage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableHyperlinkAuditing a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableHyperlinkAuditingMethodInfo a signature where
overloadedMethod = settingsGetEnableHyperlinkAuditing
instance O.OverloadedMethodInfo SettingsGetEnableHyperlinkAuditingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableHyperlinkAuditing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetEnableHyperlinkAuditing"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableJavascript a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableJavascriptMethodInfo a signature where
overloadedMethod = settingsGetEnableJavascript
instance O.OverloadedMethodInfo SettingsGetEnableJavascriptMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableJavascript",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableJavascriptMarkup a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableJavascriptMarkupMethodInfo a signature where
overloadedMethod = settingsGetEnableJavascriptMarkup
instance O.OverloadedMethodInfo SettingsGetEnableJavascriptMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableJavascriptMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetEnableJavascriptMarkup"
})
#endif
foreign import ccall "webkit_settings_get_enable_media" webkit_settings_get_enable_media ::
Ptr Settings ->
IO CInt
settingsGetEnableMedia ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableMedia :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableMedia a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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 Ptr Settings
settings'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingsGetEnableMediaMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsGetEnableMediaMethodInfo a signature where
overloadedMethod = settingsGetEnableMedia
instance O.OverloadedMethodInfo SettingsGetEnableMediaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableMedia",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetEnableMedia"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableMediaCapabilities a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableMediaCapabilitiesMethodInfo a signature where
overloadedMethod = settingsGetEnableMediaCapabilities
instance O.OverloadedMethodInfo SettingsGetEnableMediaCapabilitiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableMediaCapabilities",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableMediaStream a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableMediaStreamMethodInfo a signature where
overloadedMethod = settingsGetEnableMediaStream
instance O.OverloadedMethodInfo SettingsGetEnableMediaStreamMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableMediaStream",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableMediasource a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableMediasourceMethodInfo a signature where
overloadedMethod = settingsGetEnableMediasource
instance O.OverloadedMethodInfo SettingsGetEnableMediasourceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableMediasource",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableMockCaptureDevices a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableMockCaptureDevicesMethodInfo a signature where
overloadedMethod = settingsGetEnableMockCaptureDevices
instance O.OverloadedMethodInfo SettingsGetEnableMockCaptureDevicesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableMockCaptureDevices",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableOfflineWebApplicationCache a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableOfflineWebApplicationCacheMethodInfo a signature where
overloadedMethod = settingsGetEnableOfflineWebApplicationCache
instance O.OverloadedMethodInfo SettingsGetEnableOfflineWebApplicationCacheMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableOfflineWebApplicationCache",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnablePageCache a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnablePageCacheMethodInfo a signature where
overloadedMethod = settingsGetEnablePageCache
instance O.OverloadedMethodInfo SettingsGetEnablePageCacheMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnablePageCache",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetEnablePageCache"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableResizableTextAreas a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableResizableTextAreasMethodInfo a signature where
overloadedMethod = settingsGetEnableResizableTextAreas
instance O.OverloadedMethodInfo SettingsGetEnableResizableTextAreasMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableResizableTextAreas",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableSiteSpecificQuirks a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableSiteSpecificQuirksMethodInfo a signature where
overloadedMethod = settingsGetEnableSiteSpecificQuirks
instance O.OverloadedMethodInfo SettingsGetEnableSiteSpecificQuirksMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableSiteSpecificQuirks",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableSmoothScrolling a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableSmoothScrollingMethodInfo a signature where
overloadedMethod = settingsGetEnableSmoothScrolling
instance O.OverloadedMethodInfo SettingsGetEnableSmoothScrollingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableSmoothScrolling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableSpatialNavigation a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableSpatialNavigationMethodInfo a signature where
overloadedMethod = settingsGetEnableSpatialNavigation
instance O.OverloadedMethodInfo SettingsGetEnableSpatialNavigationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableSpatialNavigation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableTabsToLinks a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableTabsToLinksMethodInfo a signature where
overloadedMethod = settingsGetEnableTabsToLinks
instance O.OverloadedMethodInfo SettingsGetEnableTabsToLinksMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableTabsToLinks",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableWebaudio a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableWebaudioMethodInfo a signature where
overloadedMethod = settingsGetEnableWebaudio
instance O.OverloadedMethodInfo SettingsGetEnableWebaudioMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableWebaudio",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableWebgl a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableWebglMethodInfo a signature where
overloadedMethod = settingsGetEnableWebgl
instance O.OverloadedMethodInfo SettingsGetEnableWebglMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableWebgl",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetEnableWebgl"
})
#endif
foreign import ccall "webkit_settings_get_enable_webrtc" webkit_settings_get_enable_webrtc ::
Ptr Settings ->
IO CInt
settingsGetEnableWebrtc ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m Bool
settingsGetEnableWebrtc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableWebrtc a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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_webrtc Ptr Settings
settings'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingsGetEnableWebrtcMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsGetEnableWebrtcMethodInfo a signature where
overloadedMethod = settingsGetEnableWebrtc
instance O.OverloadedMethodInfo SettingsGetEnableWebrtcMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableWebrtc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetEnableWebrtc"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetEnableWriteConsoleMessagesToStdout a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where
overloadedMethod = settingsGetEnableWriteConsoleMessagesToStdout
instance O.OverloadedMethodInfo SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetEnableWriteConsoleMessagesToStdout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetEnableWriteConsoleMessagesToStdout"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetFantasyFontFamily a
settings = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod SettingsGetFantasyFontFamilyMethodInfo a signature where
overloadedMethod = settingsGetFantasyFontFamily
instance O.OverloadedMethodInfo SettingsGetFantasyFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetFantasyFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 WebKit.Enums.HardwareAccelerationPolicy
settingsGetHardwareAccelerationPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m HardwareAccelerationPolicy
settingsGetHardwareAccelerationPolicy a
settings = IO HardwareAccelerationPolicy -> m HardwareAccelerationPolicy
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return HardwareAccelerationPolicy
result'
#if defined(ENABLE_OVERLOADING)
data SettingsGetHardwareAccelerationPolicyMethodInfo
instance (signature ~ (m WebKit.Enums.HardwareAccelerationPolicy), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsGetHardwareAccelerationPolicyMethodInfo a signature where
overloadedMethod = settingsGetHardwareAccelerationPolicy
instance O.OverloadedMethodInfo SettingsGetHardwareAccelerationPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetHardwareAccelerationPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetJavascriptCanAccessClipboard a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetJavascriptCanAccessClipboardMethodInfo a signature where
overloadedMethod = settingsGetJavascriptCanAccessClipboard
instance O.OverloadedMethodInfo SettingsGetJavascriptCanAccessClipboardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetJavascriptCanAccessClipboard",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetJavascriptCanOpenWindowsAutomatically a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where
overloadedMethod = settingsGetJavascriptCanOpenWindowsAutomatically
instance O.OverloadedMethodInfo SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetJavascriptCanOpenWindowsAutomatically",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetLoadIconsIgnoringImageLoadSetting a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where
overloadedMethod = settingsGetLoadIconsIgnoringImageLoadSetting
instance O.OverloadedMethodInfo SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetLoadIconsIgnoringImageLoadSetting",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetLoadIconsIgnoringImageLoadSetting"
})
#endif
foreign import ccall "webkit_settings_get_media_content_types_requiring_hardware_support" webkit_settings_get_media_content_types_requiring_hardware_support ::
Ptr Settings ->
IO CString
settingsGetMediaContentTypesRequiringHardwareSupport ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> m T.Text
settingsGetMediaContentTypesRequiringHardwareSupport :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetMediaContentTypesRequiringHardwareSupport a
settings = IO Text -> m Text
forall a. IO a -> m a
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_media_content_types_requiring_hardware_support Ptr Settings
settings'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingsGetMediaContentTypesRequiringHardwareSupport" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SettingsGetMediaContentTypesRequiringHardwareSupportMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsGetMediaContentTypesRequiringHardwareSupportMethodInfo a signature where
overloadedMethod = settingsGetMediaContentTypesRequiringHardwareSupport
instance O.OverloadedMethodInfo SettingsGetMediaContentTypesRequiringHardwareSupportMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetMediaContentTypesRequiringHardwareSupport",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsGetMediaContentTypesRequiringHardwareSupport"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetMediaPlaybackAllowsInline a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetMediaPlaybackAllowsInlineMethodInfo a signature where
overloadedMethod = settingsGetMediaPlaybackAllowsInline
instance O.OverloadedMethodInfo SettingsGetMediaPlaybackAllowsInlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetMediaPlaybackAllowsInline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetMediaPlaybackRequiresUserGesture a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetMediaPlaybackRequiresUserGestureMethodInfo a signature where
overloadedMethod = settingsGetMediaPlaybackRequiresUserGesture
instance O.OverloadedMethodInfo SettingsGetMediaPlaybackRequiresUserGestureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetMediaPlaybackRequiresUserGesture",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Word32
settingsGetMinimumFontSize a
settings = IO Word32 -> m Word32
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsGetMinimumFontSizeMethodInfo a signature where
overloadedMethod = settingsGetMinimumFontSize
instance O.OverloadedMethodInfo SettingsGetMinimumFontSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetMinimumFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetMonospaceFontFamily a
settings = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod SettingsGetMonospaceFontFamilyMethodInfo a signature where
overloadedMethod = settingsGetMonospaceFontFamily
instance O.OverloadedMethodInfo SettingsGetMonospaceFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetMonospaceFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetPictographFontFamily a
settings = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod SettingsGetPictographFontFamilyMethodInfo a signature where
overloadedMethod = settingsGetPictographFontFamily
instance O.OverloadedMethodInfo SettingsGetPictographFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetPictographFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetPrintBackgrounds a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetPrintBackgroundsMethodInfo a signature where
overloadedMethod = settingsGetPrintBackgrounds
instance O.OverloadedMethodInfo SettingsGetPrintBackgroundsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetPrintBackgrounds",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetSansSerifFontFamily a
settings = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod SettingsGetSansSerifFontFamilyMethodInfo a signature where
overloadedMethod = settingsGetSansSerifFontFamily
instance O.OverloadedMethodInfo SettingsGetSansSerifFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetSansSerifFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetSerifFontFamily a
settings = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod SettingsGetSerifFontFamilyMethodInfo a signature where
overloadedMethod = settingsGetSerifFontFamily
instance O.OverloadedMethodInfo SettingsGetSerifFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetSerifFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Text
settingsGetUserAgent a
settings = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod SettingsGetUserAgentMethodInfo a signature where
overloadedMethod = settingsGetUserAgent
instance O.OverloadedMethodInfo SettingsGetUserAgentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetUserAgent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m Bool
settingsGetZoomTextOnly a
settings = IO Bool -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod SettingsGetZoomTextOnlyMethodInfo a signature where
overloadedMethod = settingsGetZoomTextOnly
instance O.OverloadedMethodInfo SettingsGetZoomTextOnlyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsGetZoomTextOnly",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetAllowFileAccessFromFileUrls a
settings Bool
allowed = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetAllowFileAccessFromFileUrlsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetAllowFileAccessFromFileUrlsMethodInfo a signature where
overloadedMethod = settingsSetAllowFileAccessFromFileUrls
instance O.OverloadedMethodInfo SettingsSetAllowFileAccessFromFileUrlsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetAllowFileAccessFromFileUrls",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetAllowModalDialogs a
settings Bool
allowed = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetAllowModalDialogsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetAllowModalDialogsMethodInfo a signature where
overloadedMethod = settingsSetAllowModalDialogs
instance O.OverloadedMethodInfo SettingsSetAllowModalDialogsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetAllowModalDialogs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetAllowModalDialogs"
})
#endif
foreign import ccall "webkit_settings_set_allow_top_navigation_to_data_urls" webkit_settings_set_allow_top_navigation_to_data_urls ::
Ptr Settings ->
CInt ->
IO ()
settingsSetAllowTopNavigationToDataUrls ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetAllowTopNavigationToDataUrls :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetAllowTopNavigationToDataUrls a
settings Bool
allowed = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.fromEnum) Bool
allowed
Ptr Settings -> CInt -> IO ()
webkit_settings_set_allow_top_navigation_to_data_urls Ptr Settings
settings' CInt
allowed'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetAllowTopNavigationToDataUrlsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetAllowTopNavigationToDataUrlsMethodInfo a signature where
overloadedMethod = settingsSetAllowTopNavigationToDataUrls
instance O.OverloadedMethodInfo SettingsSetAllowTopNavigationToDataUrlsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetAllowTopNavigationToDataUrls",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetAllowTopNavigationToDataUrls"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetAllowUniversalAccessFromFileUrls a
settings Bool
allowed = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo a signature where
overloadedMethod = settingsSetAllowUniversalAccessFromFileUrls
instance O.OverloadedMethodInfo SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetAllowUniversalAccessFromFileUrls",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetAutoLoadImages a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetAutoLoadImagesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetAutoLoadImagesMethodInfo a signature where
overloadedMethod = settingsSetAutoLoadImages
instance O.OverloadedMethodInfo SettingsSetAutoLoadImagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetAutoLoadImages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Text -> m ()
settingsSetCursiveFontFamily a
settings Text
cursiveFontFamily = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsSetCursiveFontFamilyMethodInfo a signature where
overloadedMethod = settingsSetCursiveFontFamily
instance O.OverloadedMethodInfo SettingsSetCursiveFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetCursiveFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Text -> m ()
settingsSetDefaultCharset a
settings Text
defaultCharset = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsSetDefaultCharsetMethodInfo a signature where
overloadedMethod = settingsSetDefaultCharset
instance O.OverloadedMethodInfo SettingsSetDefaultCharsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetDefaultCharset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Text -> m ()
settingsSetDefaultFontFamily a
settings Text
defaultFontFamily = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsSetDefaultFontFamilyMethodInfo a signature where
overloadedMethod = settingsSetDefaultFontFamily
instance O.OverloadedMethodInfo SettingsSetDefaultFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetDefaultFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Word32 -> m ()
settingsSetDefaultFontSize a
settings Word32
fontSize = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetDefaultFontSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetDefaultFontSizeMethodInfo a signature where
overloadedMethod = settingsSetDefaultFontSize
instance O.OverloadedMethodInfo SettingsSetDefaultFontSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetDefaultFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Word32 -> m ()
settingsSetDefaultMonospaceFontSize a
settings Word32
fontSize = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetDefaultMonospaceFontSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetDefaultMonospaceFontSizeMethodInfo a signature where
overloadedMethod = settingsSetDefaultMonospaceFontSize
instance O.OverloadedMethodInfo SettingsSetDefaultMonospaceFontSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetDefaultMonospaceFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetDefaultMonospaceFontSize"
})
#endif
foreign import ccall "webkit_settings_set_disable_web_security" webkit_settings_set_disable_web_security ::
Ptr Settings ->
CInt ->
IO ()
settingsSetDisableWebSecurity ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetDisableWebSecurity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetDisableWebSecurity a
settings Bool
disabled = IO () -> m ()
forall a. IO a -> m a
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 disabled' :: CInt
disabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
disabled
Ptr Settings -> CInt -> IO ()
webkit_settings_set_disable_web_security Ptr Settings
settings' CInt
disabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetDisableWebSecurityMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetDisableWebSecurityMethodInfo a signature where
overloadedMethod = settingsSetDisableWebSecurity
instance O.OverloadedMethodInfo SettingsSetDisableWebSecurityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetDisableWebSecurity",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetDisableWebSecurity"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetDrawCompositingIndicators a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetDrawCompositingIndicatorsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetDrawCompositingIndicatorsMethodInfo a signature where
overloadedMethod = settingsSetDrawCompositingIndicators
instance O.OverloadedMethodInfo SettingsSetDrawCompositingIndicatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetDrawCompositingIndicators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetDrawCompositingIndicators"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableBackForwardNavigationGestures a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableBackForwardNavigationGesturesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableBackForwardNavigationGesturesMethodInfo a signature where
overloadedMethod = settingsSetEnableBackForwardNavigationGestures
instance O.OverloadedMethodInfo SettingsSetEnableBackForwardNavigationGesturesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableBackForwardNavigationGestures",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableCaretBrowsing a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableCaretBrowsingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableCaretBrowsingMethodInfo a signature where
overloadedMethod = settingsSetEnableCaretBrowsing
instance O.OverloadedMethodInfo SettingsSetEnableCaretBrowsingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableCaretBrowsing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 ()
a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableDeveloperExtrasMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableDeveloperExtrasMethodInfo a signature where
overloadedMethod = settingsSetEnableDeveloperExtras
instance O.OverloadedMethodInfo SettingsSetEnableDeveloperExtrasMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableDeveloperExtras",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableDnsPrefetching a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableDnsPrefetchingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableDnsPrefetchingMethodInfo a signature where
overloadedMethod = settingsSetEnableDnsPrefetching
instance O.OverloadedMethodInfo SettingsSetEnableDnsPrefetchingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableDnsPrefetching",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableEncryptedMedia a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableEncryptedMediaMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableEncryptedMediaMethodInfo a signature where
overloadedMethod = settingsSetEnableEncryptedMedia
instance O.OverloadedMethodInfo SettingsSetEnableEncryptedMediaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableEncryptedMedia",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetEnableEncryptedMedia"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableFullscreen a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableFullscreenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableFullscreenMethodInfo a signature where
overloadedMethod = settingsSetEnableFullscreen
instance O.OverloadedMethodInfo SettingsSetEnableFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableHtml5Database a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableHtml5DatabaseMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableHtml5DatabaseMethodInfo a signature where
overloadedMethod = settingsSetEnableHtml5Database
instance O.OverloadedMethodInfo SettingsSetEnableHtml5DatabaseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableHtml5Database",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableHtml5LocalStorage a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableHtml5LocalStorageMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableHtml5LocalStorageMethodInfo a signature where
overloadedMethod = settingsSetEnableHtml5LocalStorage
instance O.OverloadedMethodInfo SettingsSetEnableHtml5LocalStorageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableHtml5LocalStorage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableHyperlinkAuditing a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableHyperlinkAuditingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableHyperlinkAuditingMethodInfo a signature where
overloadedMethod = settingsSetEnableHyperlinkAuditing
instance O.OverloadedMethodInfo SettingsSetEnableHyperlinkAuditingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableHyperlinkAuditing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetEnableHyperlinkAuditing"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableJavascript a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableJavascriptMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableJavascriptMethodInfo a signature where
overloadedMethod = settingsSetEnableJavascript
instance O.OverloadedMethodInfo SettingsSetEnableJavascriptMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableJavascript",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableJavascriptMarkup a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableJavascriptMarkupMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableJavascriptMarkupMethodInfo a signature where
overloadedMethod = settingsSetEnableJavascriptMarkup
instance O.OverloadedMethodInfo SettingsSetEnableJavascriptMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableJavascriptMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetEnableJavascriptMarkup"
})
#endif
foreign import ccall "webkit_settings_set_enable_media" webkit_settings_set_enable_media ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableMedia ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableMedia :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableMedia a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.fromEnum) Bool
enabled
Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_media Ptr Settings
settings' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableMediaMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableMediaMethodInfo a signature where
overloadedMethod = settingsSetEnableMedia
instance O.OverloadedMethodInfo SettingsSetEnableMediaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableMedia",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetEnableMedia"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableMediaCapabilities a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableMediaCapabilitiesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableMediaCapabilitiesMethodInfo a signature where
overloadedMethod = settingsSetEnableMediaCapabilities
instance O.OverloadedMethodInfo SettingsSetEnableMediaCapabilitiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableMediaCapabilities",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableMediaStream a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableMediaStreamMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableMediaStreamMethodInfo a signature where
overloadedMethod = settingsSetEnableMediaStream
instance O.OverloadedMethodInfo SettingsSetEnableMediaStreamMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableMediaStream",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableMediasource a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableMediasourceMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableMediasourceMethodInfo a signature where
overloadedMethod = settingsSetEnableMediasource
instance O.OverloadedMethodInfo SettingsSetEnableMediasourceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableMediasource",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableMockCaptureDevices a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableMockCaptureDevicesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableMockCaptureDevicesMethodInfo a signature where
overloadedMethod = settingsSetEnableMockCaptureDevices
instance O.OverloadedMethodInfo SettingsSetEnableMockCaptureDevicesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableMockCaptureDevices",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableOfflineWebApplicationCache a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableOfflineWebApplicationCacheMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableOfflineWebApplicationCacheMethodInfo a signature where
overloadedMethod = settingsSetEnableOfflineWebApplicationCache
instance O.OverloadedMethodInfo SettingsSetEnableOfflineWebApplicationCacheMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableOfflineWebApplicationCache",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnablePageCache a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnablePageCacheMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnablePageCacheMethodInfo a signature where
overloadedMethod = settingsSetEnablePageCache
instance O.OverloadedMethodInfo SettingsSetEnablePageCacheMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnablePageCache",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetEnablePageCache"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableResizableTextAreas a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableResizableTextAreasMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableResizableTextAreasMethodInfo a signature where
overloadedMethod = settingsSetEnableResizableTextAreas
instance O.OverloadedMethodInfo SettingsSetEnableResizableTextAreasMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableResizableTextAreas",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableSiteSpecificQuirks a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableSiteSpecificQuirksMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableSiteSpecificQuirksMethodInfo a signature where
overloadedMethod = settingsSetEnableSiteSpecificQuirks
instance O.OverloadedMethodInfo SettingsSetEnableSiteSpecificQuirksMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableSiteSpecificQuirks",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableSmoothScrolling a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableSmoothScrollingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableSmoothScrollingMethodInfo a signature where
overloadedMethod = settingsSetEnableSmoothScrolling
instance O.OverloadedMethodInfo SettingsSetEnableSmoothScrollingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableSmoothScrolling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableSpatialNavigation a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableSpatialNavigationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableSpatialNavigationMethodInfo a signature where
overloadedMethod = settingsSetEnableSpatialNavigation
instance O.OverloadedMethodInfo SettingsSetEnableSpatialNavigationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableSpatialNavigation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableTabsToLinks a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableTabsToLinksMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableTabsToLinksMethodInfo a signature where
overloadedMethod = settingsSetEnableTabsToLinks
instance O.OverloadedMethodInfo SettingsSetEnableTabsToLinksMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableTabsToLinks",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableWebaudio a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableWebaudioMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableWebaudioMethodInfo a signature where
overloadedMethod = settingsSetEnableWebaudio
instance O.OverloadedMethodInfo SettingsSetEnableWebaudioMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableWebaudio",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableWebgl a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableWebglMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableWebglMethodInfo a signature where
overloadedMethod = settingsSetEnableWebgl
instance O.OverloadedMethodInfo SettingsSetEnableWebglMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableWebgl",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetEnableWebgl"
})
#endif
foreign import ccall "webkit_settings_set_enable_webrtc" webkit_settings_set_enable_webrtc ::
Ptr Settings ->
CInt ->
IO ()
settingsSetEnableWebrtc ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Bool
-> m ()
settingsSetEnableWebrtc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableWebrtc a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.fromEnum) Bool
enabled
Ptr Settings -> CInt -> IO ()
webkit_settings_set_enable_webrtc Ptr Settings
settings' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableWebrtcMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableWebrtcMethodInfo a signature where
overloadedMethod = settingsSetEnableWebrtc
instance O.OverloadedMethodInfo SettingsSetEnableWebrtcMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableWebrtc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetEnableWebrtc"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetEnableWriteConsoleMessagesToStdout a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where
overloadedMethod = settingsSetEnableWriteConsoleMessagesToStdout
instance O.OverloadedMethodInfo SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetEnableWriteConsoleMessagesToStdout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetEnableWriteConsoleMessagesToStdout"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Text -> m ()
settingsSetFantasyFontFamily a
settings Text
fantasyFontFamily = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsSetFantasyFontFamilyMethodInfo a signature where
overloadedMethod = settingsSetFantasyFontFamily
instance O.OverloadedMethodInfo SettingsSetFantasyFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetFantasyFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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
-> WebKit.Enums.HardwareAccelerationPolicy
-> m ()
settingsSetHardwareAccelerationPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> HardwareAccelerationPolicy -> m ()
settingsSetHardwareAccelerationPolicy a
settings HardwareAccelerationPolicy
policy = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetHardwareAccelerationPolicyMethodInfo
instance (signature ~ (WebKit.Enums.HardwareAccelerationPolicy -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetHardwareAccelerationPolicyMethodInfo a signature where
overloadedMethod = settingsSetHardwareAccelerationPolicy
instance O.OverloadedMethodInfo SettingsSetHardwareAccelerationPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetHardwareAccelerationPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetJavascriptCanAccessClipboard a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetJavascriptCanAccessClipboardMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetJavascriptCanAccessClipboardMethodInfo a signature where
overloadedMethod = settingsSetJavascriptCanAccessClipboard
instance O.OverloadedMethodInfo SettingsSetJavascriptCanAccessClipboardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetJavascriptCanAccessClipboard",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetJavascriptCanOpenWindowsAutomatically a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where
overloadedMethod = settingsSetJavascriptCanOpenWindowsAutomatically
instance O.OverloadedMethodInfo SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetJavascriptCanOpenWindowsAutomatically",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetLoadIconsIgnoringImageLoadSetting a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where
overloadedMethod = settingsSetLoadIconsIgnoringImageLoadSetting
instance O.OverloadedMethodInfo SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetLoadIconsIgnoringImageLoadSetting",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetLoadIconsIgnoringImageLoadSetting"
})
#endif
foreign import ccall "webkit_settings_set_media_content_types_requiring_hardware_support" webkit_settings_set_media_content_types_requiring_hardware_support ::
Ptr Settings ->
CString ->
IO ()
settingsSetMediaContentTypesRequiringHardwareSupport ::
(B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>
a
-> Maybe (T.Text)
-> m ()
settingsSetMediaContentTypesRequiringHardwareSupport :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Maybe Text -> m ()
settingsSetMediaContentTypesRequiringHardwareSupport a
settings Maybe Text
contentTypes = IO () -> m ()
forall a. IO a -> m a
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
maybeContentTypes <- case Maybe Text
contentTypes of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jContentTypes -> do
CString
jContentTypes' <- Text -> IO CString
textToCString Text
jContentTypes
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jContentTypes'
Ptr Settings -> CString -> IO ()
webkit_settings_set_media_content_types_requiring_hardware_support Ptr Settings
settings' CString
maybeContentTypes
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeContentTypes
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetMediaContentTypesRequiringHardwareSupportMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetMediaContentTypesRequiringHardwareSupportMethodInfo a signature where
overloadedMethod = settingsSetMediaContentTypesRequiringHardwareSupport
instance O.OverloadedMethodInfo SettingsSetMediaContentTypesRequiringHardwareSupportMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetMediaContentTypesRequiringHardwareSupport",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v:settingsSetMediaContentTypesRequiringHardwareSupport"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetMediaPlaybackAllowsInline a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetMediaPlaybackAllowsInlineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetMediaPlaybackAllowsInlineMethodInfo a signature where
overloadedMethod = settingsSetMediaPlaybackAllowsInline
instance O.OverloadedMethodInfo SettingsSetMediaPlaybackAllowsInlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetMediaPlaybackAllowsInline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetMediaPlaybackRequiresUserGesture a
settings Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetMediaPlaybackRequiresUserGestureMethodInfo a signature where
overloadedMethod = settingsSetMediaPlaybackRequiresUserGesture
instance O.OverloadedMethodInfo SettingsSetMediaPlaybackRequiresUserGestureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetMediaPlaybackRequiresUserGesture",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Word32 -> m ()
settingsSetMinimumFontSize a
settings Word32
fontSize = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetMinimumFontSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetMinimumFontSizeMethodInfo a signature where
overloadedMethod = settingsSetMinimumFontSize
instance O.OverloadedMethodInfo SettingsSetMinimumFontSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetMinimumFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Text -> m ()
settingsSetMonospaceFontFamily a
settings Text
monospaceFontFamily = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsSetMonospaceFontFamilyMethodInfo a signature where
overloadedMethod = settingsSetMonospaceFontFamily
instance O.OverloadedMethodInfo SettingsSetMonospaceFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetMonospaceFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Text -> m ()
settingsSetPictographFontFamily a
settings Text
pictographFontFamily = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsSetPictographFontFamilyMethodInfo a signature where
overloadedMethod = settingsSetPictographFontFamily
instance O.OverloadedMethodInfo SettingsSetPictographFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetPictographFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetPrintBackgrounds a
settings Bool
printBackgrounds = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetPrintBackgroundsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetPrintBackgroundsMethodInfo a signature where
overloadedMethod = settingsSetPrintBackgrounds
instance O.OverloadedMethodInfo SettingsSetPrintBackgroundsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetPrintBackgrounds",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Text -> m ()
settingsSetSansSerifFontFamily a
settings Text
sansSerifFontFamily = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsSetSansSerifFontFamilyMethodInfo a signature where
overloadedMethod = settingsSetSansSerifFontFamily
instance O.OverloadedMethodInfo SettingsSetSansSerifFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetSansSerifFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Text -> m ()
settingsSetSerifFontFamily a
settings Text
serifFontFamily = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod SettingsSetSerifFontFamilyMethodInfo a signature where
overloadedMethod = settingsSetSerifFontFamily
instance O.OverloadedMethodInfo SettingsSetSerifFontFamilyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetSerifFontFamily",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Maybe Text -> m ()
settingsSetUserAgent a
settings Maybe Text
userAgent = IO () -> m ()
forall a. IO a -> m a
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
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jUserAgent -> do
CString
jUserAgent' <- Text -> IO CString
textToCString Text
jUserAgent
CString -> IO CString
forall a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod SettingsSetUserAgentMethodInfo a signature where
overloadedMethod = settingsSetUserAgent
instance O.OverloadedMethodInfo SettingsSetUserAgentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetUserAgent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Maybe Text -> Maybe Text -> m ()
settingsSetUserAgentWithApplicationDetails a
settings Maybe Text
applicationName Maybe Text
applicationVersion = IO () -> m ()
forall a. IO a -> m a
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
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jApplicationName -> do
CString
jApplicationName' <- Text -> IO CString
textToCString Text
jApplicationName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jApplicationName'
CString
maybeApplicationVersion <- case Maybe Text
applicationVersion of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jApplicationVersion -> do
CString
jApplicationVersion' <- Text -> IO CString
textToCString Text
jApplicationVersion
CString -> IO CString
forall a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod SettingsSetUserAgentWithApplicationDetailsMethodInfo a signature where
overloadedMethod = settingsSetUserAgentWithApplicationDetails
instance O.OverloadedMethodInfo SettingsSetUserAgentWithApplicationDetailsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetUserAgentWithApplicationDetails",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> Bool -> m ()
settingsSetZoomTextOnly a
settings Bool
zoomTextOnly = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSetZoomTextOnlyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.OverloadedMethod SettingsSetZoomTextOnlyMethodInfo a signature where
overloadedMethod = settingsSetZoomTextOnly
instance O.OverloadedMethodInfo SettingsSetZoomTextOnlyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Objects.Settings.settingsSetZoomTextOnly",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Objects-Settings.html#v: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 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Word32 -> m Word32
settingsFontSizeToPixels Word32
points = IO Word32 -> m Word32
forall a. IO a -> m a
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 a. a -> IO a
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 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Word32 -> m Word32
settingsFontSizeToPoints Word32
pixels = IO Word32 -> m Word32
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
#endif