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