gi-webkit2-0.2.10.13: GI/WebKit2/Objects/Settings.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.WebKit2.Objects.Settings
(
-- * Exported types
Settings(..) ,
SettingsK ,
toSettings ,
noSettings ,
-- * Methods
-- ** settingsGetAllowFileAccessFromFileUrls
SettingsGetAllowFileAccessFromFileUrlsMethodInfo,
settingsGetAllowFileAccessFromFileUrls ,
-- ** settingsGetAllowModalDialogs
SettingsGetAllowModalDialogsMethodInfo ,
settingsGetAllowModalDialogs ,
-- ** settingsGetAutoLoadImages
SettingsGetAutoLoadImagesMethodInfo ,
settingsGetAutoLoadImages ,
-- ** settingsGetCursiveFontFamily
SettingsGetCursiveFontFamilyMethodInfo ,
settingsGetCursiveFontFamily ,
-- ** settingsGetDefaultCharset
SettingsGetDefaultCharsetMethodInfo ,
settingsGetDefaultCharset ,
-- ** settingsGetDefaultFontFamily
SettingsGetDefaultFontFamilyMethodInfo ,
settingsGetDefaultFontFamily ,
-- ** settingsGetDefaultFontSize
SettingsGetDefaultFontSizeMethodInfo ,
settingsGetDefaultFontSize ,
-- ** settingsGetDefaultMonospaceFontSize
SettingsGetDefaultMonospaceFontSizeMethodInfo,
settingsGetDefaultMonospaceFontSize ,
-- ** settingsGetDrawCompositingIndicators
SettingsGetDrawCompositingIndicatorsMethodInfo,
settingsGetDrawCompositingIndicators ,
-- ** settingsGetEnableAccelerated2dCanvas
SettingsGetEnableAccelerated2dCanvasMethodInfo,
settingsGetEnableAccelerated2dCanvas ,
-- ** settingsGetEnableCaretBrowsing
SettingsGetEnableCaretBrowsingMethodInfo,
settingsGetEnableCaretBrowsing ,
-- ** settingsGetEnableDeveloperExtras
SettingsGetEnableDeveloperExtrasMethodInfo,
settingsGetEnableDeveloperExtras ,
-- ** settingsGetEnableDnsPrefetching
SettingsGetEnableDnsPrefetchingMethodInfo,
settingsGetEnableDnsPrefetching ,
-- ** settingsGetEnableFrameFlattening
SettingsGetEnableFrameFlatteningMethodInfo,
settingsGetEnableFrameFlattening ,
-- ** settingsGetEnableFullscreen
SettingsGetEnableFullscreenMethodInfo ,
settingsGetEnableFullscreen ,
-- ** settingsGetEnableHtml5Database
SettingsGetEnableHtml5DatabaseMethodInfo,
settingsGetEnableHtml5Database ,
-- ** settingsGetEnableHtml5LocalStorage
SettingsGetEnableHtml5LocalStorageMethodInfo,
settingsGetEnableHtml5LocalStorage ,
-- ** settingsGetEnableHyperlinkAuditing
SettingsGetEnableHyperlinkAuditingMethodInfo,
settingsGetEnableHyperlinkAuditing ,
-- ** settingsGetEnableJava
SettingsGetEnableJavaMethodInfo ,
settingsGetEnableJava ,
-- ** settingsGetEnableJavascript
SettingsGetEnableJavascriptMethodInfo ,
settingsGetEnableJavascript ,
-- ** settingsGetEnableMediaStream
SettingsGetEnableMediaStreamMethodInfo ,
settingsGetEnableMediaStream ,
-- ** settingsGetEnableMediasource
SettingsGetEnableMediasourceMethodInfo ,
settingsGetEnableMediasource ,
-- ** settingsGetEnableOfflineWebApplicationCache
SettingsGetEnableOfflineWebApplicationCacheMethodInfo,
settingsGetEnableOfflineWebApplicationCache,
-- ** settingsGetEnablePageCache
SettingsGetEnablePageCacheMethodInfo ,
settingsGetEnablePageCache ,
-- ** settingsGetEnablePlugins
SettingsGetEnablePluginsMethodInfo ,
settingsGetEnablePlugins ,
-- ** settingsGetEnablePrivateBrowsing
SettingsGetEnablePrivateBrowsingMethodInfo,
settingsGetEnablePrivateBrowsing ,
-- ** settingsGetEnableResizableTextAreas
SettingsGetEnableResizableTextAreasMethodInfo,
settingsGetEnableResizableTextAreas ,
-- ** settingsGetEnableSiteSpecificQuirks
SettingsGetEnableSiteSpecificQuirksMethodInfo,
settingsGetEnableSiteSpecificQuirks ,
-- ** settingsGetEnableSmoothScrolling
SettingsGetEnableSmoothScrollingMethodInfo,
settingsGetEnableSmoothScrolling ,
-- ** settingsGetEnableSpatialNavigation
SettingsGetEnableSpatialNavigationMethodInfo,
settingsGetEnableSpatialNavigation ,
-- ** settingsGetEnableTabsToLinks
SettingsGetEnableTabsToLinksMethodInfo ,
settingsGetEnableTabsToLinks ,
-- ** settingsGetEnableWebaudio
SettingsGetEnableWebaudioMethodInfo ,
settingsGetEnableWebaudio ,
-- ** settingsGetEnableWebgl
SettingsGetEnableWebglMethodInfo ,
settingsGetEnableWebgl ,
-- ** settingsGetEnableWriteConsoleMessagesToStdout
SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo,
settingsGetEnableWriteConsoleMessagesToStdout,
-- ** settingsGetEnableXssAuditor
SettingsGetEnableXssAuditorMethodInfo ,
settingsGetEnableXssAuditor ,
-- ** settingsGetFantasyFontFamily
SettingsGetFantasyFontFamilyMethodInfo ,
settingsGetFantasyFontFamily ,
-- ** settingsGetJavascriptCanAccessClipboard
SettingsGetJavascriptCanAccessClipboardMethodInfo,
settingsGetJavascriptCanAccessClipboard ,
-- ** settingsGetJavascriptCanOpenWindowsAutomatically
SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo,
settingsGetJavascriptCanOpenWindowsAutomatically,
-- ** settingsGetLoadIconsIgnoringImageLoadSetting
SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo,
settingsGetLoadIconsIgnoringImageLoadSetting,
-- ** settingsGetMediaPlaybackAllowsInline
SettingsGetMediaPlaybackAllowsInlineMethodInfo,
settingsGetMediaPlaybackAllowsInline ,
-- ** settingsGetMediaPlaybackRequiresUserGesture
SettingsGetMediaPlaybackRequiresUserGestureMethodInfo,
settingsGetMediaPlaybackRequiresUserGesture,
-- ** settingsGetMinimumFontSize
SettingsGetMinimumFontSizeMethodInfo ,
settingsGetMinimumFontSize ,
-- ** settingsGetMonospaceFontFamily
SettingsGetMonospaceFontFamilyMethodInfo,
settingsGetMonospaceFontFamily ,
-- ** settingsGetPictographFontFamily
SettingsGetPictographFontFamilyMethodInfo,
settingsGetPictographFontFamily ,
-- ** settingsGetPrintBackgrounds
SettingsGetPrintBackgroundsMethodInfo ,
settingsGetPrintBackgrounds ,
-- ** settingsGetSansSerifFontFamily
SettingsGetSansSerifFontFamilyMethodInfo,
settingsGetSansSerifFontFamily ,
-- ** settingsGetSerifFontFamily
SettingsGetSerifFontFamilyMethodInfo ,
settingsGetSerifFontFamily ,
-- ** settingsGetUserAgent
SettingsGetUserAgentMethodInfo ,
settingsGetUserAgent ,
-- ** settingsGetZoomTextOnly
SettingsGetZoomTextOnlyMethodInfo ,
settingsGetZoomTextOnly ,
-- ** settingsNew
settingsNew ,
-- ** settingsSetAllowFileAccessFromFileUrls
SettingsSetAllowFileAccessFromFileUrlsMethodInfo,
settingsSetAllowFileAccessFromFileUrls ,
-- ** settingsSetAllowModalDialogs
SettingsSetAllowModalDialogsMethodInfo ,
settingsSetAllowModalDialogs ,
-- ** settingsSetAutoLoadImages
SettingsSetAutoLoadImagesMethodInfo ,
settingsSetAutoLoadImages ,
-- ** settingsSetCursiveFontFamily
SettingsSetCursiveFontFamilyMethodInfo ,
settingsSetCursiveFontFamily ,
-- ** settingsSetDefaultCharset
SettingsSetDefaultCharsetMethodInfo ,
settingsSetDefaultCharset ,
-- ** settingsSetDefaultFontFamily
SettingsSetDefaultFontFamilyMethodInfo ,
settingsSetDefaultFontFamily ,
-- ** settingsSetDefaultFontSize
SettingsSetDefaultFontSizeMethodInfo ,
settingsSetDefaultFontSize ,
-- ** settingsSetDefaultMonospaceFontSize
SettingsSetDefaultMonospaceFontSizeMethodInfo,
settingsSetDefaultMonospaceFontSize ,
-- ** settingsSetDrawCompositingIndicators
SettingsSetDrawCompositingIndicatorsMethodInfo,
settingsSetDrawCompositingIndicators ,
-- ** settingsSetEnableAccelerated2dCanvas
SettingsSetEnableAccelerated2dCanvasMethodInfo,
settingsSetEnableAccelerated2dCanvas ,
-- ** settingsSetEnableCaretBrowsing
SettingsSetEnableCaretBrowsingMethodInfo,
settingsSetEnableCaretBrowsing ,
-- ** settingsSetEnableDeveloperExtras
SettingsSetEnableDeveloperExtrasMethodInfo,
settingsSetEnableDeveloperExtras ,
-- ** settingsSetEnableDnsPrefetching
SettingsSetEnableDnsPrefetchingMethodInfo,
settingsSetEnableDnsPrefetching ,
-- ** settingsSetEnableFrameFlattening
SettingsSetEnableFrameFlatteningMethodInfo,
settingsSetEnableFrameFlattening ,
-- ** settingsSetEnableFullscreen
SettingsSetEnableFullscreenMethodInfo ,
settingsSetEnableFullscreen ,
-- ** settingsSetEnableHtml5Database
SettingsSetEnableHtml5DatabaseMethodInfo,
settingsSetEnableHtml5Database ,
-- ** settingsSetEnableHtml5LocalStorage
SettingsSetEnableHtml5LocalStorageMethodInfo,
settingsSetEnableHtml5LocalStorage ,
-- ** settingsSetEnableHyperlinkAuditing
SettingsSetEnableHyperlinkAuditingMethodInfo,
settingsSetEnableHyperlinkAuditing ,
-- ** settingsSetEnableJava
SettingsSetEnableJavaMethodInfo ,
settingsSetEnableJava ,
-- ** settingsSetEnableJavascript
SettingsSetEnableJavascriptMethodInfo ,
settingsSetEnableJavascript ,
-- ** settingsSetEnableMediaStream
SettingsSetEnableMediaStreamMethodInfo ,
settingsSetEnableMediaStream ,
-- ** settingsSetEnableMediasource
SettingsSetEnableMediasourceMethodInfo ,
settingsSetEnableMediasource ,
-- ** settingsSetEnableOfflineWebApplicationCache
SettingsSetEnableOfflineWebApplicationCacheMethodInfo,
settingsSetEnableOfflineWebApplicationCache,
-- ** settingsSetEnablePageCache
SettingsSetEnablePageCacheMethodInfo ,
settingsSetEnablePageCache ,
-- ** settingsSetEnablePlugins
SettingsSetEnablePluginsMethodInfo ,
settingsSetEnablePlugins ,
-- ** settingsSetEnablePrivateBrowsing
SettingsSetEnablePrivateBrowsingMethodInfo,
settingsSetEnablePrivateBrowsing ,
-- ** settingsSetEnableResizableTextAreas
SettingsSetEnableResizableTextAreasMethodInfo,
settingsSetEnableResizableTextAreas ,
-- ** settingsSetEnableSiteSpecificQuirks
SettingsSetEnableSiteSpecificQuirksMethodInfo,
settingsSetEnableSiteSpecificQuirks ,
-- ** settingsSetEnableSmoothScrolling
SettingsSetEnableSmoothScrollingMethodInfo,
settingsSetEnableSmoothScrolling ,
-- ** settingsSetEnableSpatialNavigation
SettingsSetEnableSpatialNavigationMethodInfo,
settingsSetEnableSpatialNavigation ,
-- ** settingsSetEnableTabsToLinks
SettingsSetEnableTabsToLinksMethodInfo ,
settingsSetEnableTabsToLinks ,
-- ** settingsSetEnableWebaudio
SettingsSetEnableWebaudioMethodInfo ,
settingsSetEnableWebaudio ,
-- ** settingsSetEnableWebgl
SettingsSetEnableWebglMethodInfo ,
settingsSetEnableWebgl ,
-- ** settingsSetEnableWriteConsoleMessagesToStdout
SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo,
settingsSetEnableWriteConsoleMessagesToStdout,
-- ** settingsSetEnableXssAuditor
SettingsSetEnableXssAuditorMethodInfo ,
settingsSetEnableXssAuditor ,
-- ** settingsSetFantasyFontFamily
SettingsSetFantasyFontFamilyMethodInfo ,
settingsSetFantasyFontFamily ,
-- ** settingsSetJavascriptCanAccessClipboard
SettingsSetJavascriptCanAccessClipboardMethodInfo,
settingsSetJavascriptCanAccessClipboard ,
-- ** settingsSetJavascriptCanOpenWindowsAutomatically
SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo,
settingsSetJavascriptCanOpenWindowsAutomatically,
-- ** settingsSetLoadIconsIgnoringImageLoadSetting
SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo,
settingsSetLoadIconsIgnoringImageLoadSetting,
-- ** settingsSetMediaPlaybackAllowsInline
SettingsSetMediaPlaybackAllowsInlineMethodInfo,
settingsSetMediaPlaybackAllowsInline ,
-- ** settingsSetMediaPlaybackRequiresUserGesture
SettingsSetMediaPlaybackRequiresUserGestureMethodInfo,
settingsSetMediaPlaybackRequiresUserGesture,
-- ** settingsSetMinimumFontSize
SettingsSetMinimumFontSizeMethodInfo ,
settingsSetMinimumFontSize ,
-- ** settingsSetMonospaceFontFamily
SettingsSetMonospaceFontFamilyMethodInfo,
settingsSetMonospaceFontFamily ,
-- ** settingsSetPictographFontFamily
SettingsSetPictographFontFamilyMethodInfo,
settingsSetPictographFontFamily ,
-- ** settingsSetPrintBackgrounds
SettingsSetPrintBackgroundsMethodInfo ,
settingsSetPrintBackgrounds ,
-- ** settingsSetSansSerifFontFamily
SettingsSetSansSerifFontFamilyMethodInfo,
settingsSetSansSerifFontFamily ,
-- ** settingsSetSerifFontFamily
SettingsSetSerifFontFamilyMethodInfo ,
settingsSetSerifFontFamily ,
-- ** settingsSetUserAgent
SettingsSetUserAgentMethodInfo ,
settingsSetUserAgent ,
-- ** settingsSetUserAgentWithApplicationDetails
SettingsSetUserAgentWithApplicationDetailsMethodInfo,
settingsSetUserAgentWithApplicationDetails,
-- ** settingsSetZoomTextOnly
SettingsSetZoomTextOnlyMethodInfo ,
settingsSetZoomTextOnly ,
-- * Properties
-- ** AllowFileAccessFromFileUrls
SettingsAllowFileAccessFromFileUrlsPropertyInfo,
constructSettingsAllowFileAccessFromFileUrls,
getSettingsAllowFileAccessFromFileUrls ,
setSettingsAllowFileAccessFromFileUrls ,
-- ** AllowModalDialogs
SettingsAllowModalDialogsPropertyInfo ,
constructSettingsAllowModalDialogs ,
getSettingsAllowModalDialogs ,
setSettingsAllowModalDialogs ,
-- ** AutoLoadImages
SettingsAutoLoadImagesPropertyInfo ,
constructSettingsAutoLoadImages ,
getSettingsAutoLoadImages ,
setSettingsAutoLoadImages ,
-- ** CursiveFontFamily
SettingsCursiveFontFamilyPropertyInfo ,
constructSettingsCursiveFontFamily ,
getSettingsCursiveFontFamily ,
setSettingsCursiveFontFamily ,
-- ** DefaultCharset
SettingsDefaultCharsetPropertyInfo ,
constructSettingsDefaultCharset ,
getSettingsDefaultCharset ,
setSettingsDefaultCharset ,
-- ** DefaultFontFamily
SettingsDefaultFontFamilyPropertyInfo ,
constructSettingsDefaultFontFamily ,
getSettingsDefaultFontFamily ,
setSettingsDefaultFontFamily ,
-- ** DefaultFontSize
SettingsDefaultFontSizePropertyInfo ,
constructSettingsDefaultFontSize ,
getSettingsDefaultFontSize ,
setSettingsDefaultFontSize ,
-- ** DefaultMonospaceFontSize
SettingsDefaultMonospaceFontSizePropertyInfo,
constructSettingsDefaultMonospaceFontSize,
getSettingsDefaultMonospaceFontSize ,
setSettingsDefaultMonospaceFontSize ,
-- ** DrawCompositingIndicators
SettingsDrawCompositingIndicatorsPropertyInfo,
constructSettingsDrawCompositingIndicators,
getSettingsDrawCompositingIndicators ,
setSettingsDrawCompositingIndicators ,
-- ** EnableAccelerated2dCanvas
SettingsEnableAccelerated2dCanvasPropertyInfo,
constructSettingsEnableAccelerated2dCanvas,
getSettingsEnableAccelerated2dCanvas ,
setSettingsEnableAccelerated2dCanvas ,
-- ** EnableCaretBrowsing
SettingsEnableCaretBrowsingPropertyInfo ,
constructSettingsEnableCaretBrowsing ,
getSettingsEnableCaretBrowsing ,
setSettingsEnableCaretBrowsing ,
-- ** EnableDeveloperExtras
SettingsEnableDeveloperExtrasPropertyInfo,
constructSettingsEnableDeveloperExtras ,
getSettingsEnableDeveloperExtras ,
setSettingsEnableDeveloperExtras ,
-- ** EnableDnsPrefetching
SettingsEnableDnsPrefetchingPropertyInfo,
constructSettingsEnableDnsPrefetching ,
getSettingsEnableDnsPrefetching ,
setSettingsEnableDnsPrefetching ,
-- ** EnableFrameFlattening
SettingsEnableFrameFlatteningPropertyInfo,
constructSettingsEnableFrameFlattening ,
getSettingsEnableFrameFlattening ,
setSettingsEnableFrameFlattening ,
-- ** EnableFullscreen
SettingsEnableFullscreenPropertyInfo ,
constructSettingsEnableFullscreen ,
getSettingsEnableFullscreen ,
setSettingsEnableFullscreen ,
-- ** EnableHtml5Database
SettingsEnableHtml5DatabasePropertyInfo ,
constructSettingsEnableHtml5Database ,
getSettingsEnableHtml5Database ,
setSettingsEnableHtml5Database ,
-- ** EnableHtml5LocalStorage
SettingsEnableHtml5LocalStoragePropertyInfo,
constructSettingsEnableHtml5LocalStorage,
getSettingsEnableHtml5LocalStorage ,
setSettingsEnableHtml5LocalStorage ,
-- ** EnableHyperlinkAuditing
SettingsEnableHyperlinkAuditingPropertyInfo,
constructSettingsEnableHyperlinkAuditing,
getSettingsEnableHyperlinkAuditing ,
setSettingsEnableHyperlinkAuditing ,
-- ** EnableJava
SettingsEnableJavaPropertyInfo ,
constructSettingsEnableJava ,
getSettingsEnableJava ,
setSettingsEnableJava ,
-- ** EnableJavascript
SettingsEnableJavascriptPropertyInfo ,
constructSettingsEnableJavascript ,
getSettingsEnableJavascript ,
setSettingsEnableJavascript ,
-- ** EnableMediaStream
SettingsEnableMediaStreamPropertyInfo ,
constructSettingsEnableMediaStream ,
getSettingsEnableMediaStream ,
setSettingsEnableMediaStream ,
-- ** EnableMediasource
SettingsEnableMediasourcePropertyInfo ,
constructSettingsEnableMediasource ,
getSettingsEnableMediasource ,
setSettingsEnableMediasource ,
-- ** EnableOfflineWebApplicationCache
SettingsEnableOfflineWebApplicationCachePropertyInfo,
constructSettingsEnableOfflineWebApplicationCache,
getSettingsEnableOfflineWebApplicationCache,
setSettingsEnableOfflineWebApplicationCache,
-- ** EnablePageCache
SettingsEnablePageCachePropertyInfo ,
constructSettingsEnablePageCache ,
getSettingsEnablePageCache ,
setSettingsEnablePageCache ,
-- ** EnablePlugins
SettingsEnablePluginsPropertyInfo ,
constructSettingsEnablePlugins ,
getSettingsEnablePlugins ,
setSettingsEnablePlugins ,
-- ** EnablePrivateBrowsing
SettingsEnablePrivateBrowsingPropertyInfo,
constructSettingsEnablePrivateBrowsing ,
getSettingsEnablePrivateBrowsing ,
setSettingsEnablePrivateBrowsing ,
-- ** EnableResizableTextAreas
SettingsEnableResizableTextAreasPropertyInfo,
constructSettingsEnableResizableTextAreas,
getSettingsEnableResizableTextAreas ,
setSettingsEnableResizableTextAreas ,
-- ** EnableSiteSpecificQuirks
SettingsEnableSiteSpecificQuirksPropertyInfo,
constructSettingsEnableSiteSpecificQuirks,
getSettingsEnableSiteSpecificQuirks ,
setSettingsEnableSiteSpecificQuirks ,
-- ** EnableSmoothScrolling
SettingsEnableSmoothScrollingPropertyInfo,
constructSettingsEnableSmoothScrolling ,
getSettingsEnableSmoothScrolling ,
setSettingsEnableSmoothScrolling ,
-- ** EnableSpatialNavigation
SettingsEnableSpatialNavigationPropertyInfo,
constructSettingsEnableSpatialNavigation,
getSettingsEnableSpatialNavigation ,
setSettingsEnableSpatialNavigation ,
-- ** EnableTabsToLinks
SettingsEnableTabsToLinksPropertyInfo ,
constructSettingsEnableTabsToLinks ,
getSettingsEnableTabsToLinks ,
setSettingsEnableTabsToLinks ,
-- ** EnableWebaudio
SettingsEnableWebaudioPropertyInfo ,
constructSettingsEnableWebaudio ,
getSettingsEnableWebaudio ,
setSettingsEnableWebaudio ,
-- ** EnableWebgl
SettingsEnableWebglPropertyInfo ,
constructSettingsEnableWebgl ,
getSettingsEnableWebgl ,
setSettingsEnableWebgl ,
-- ** EnableWriteConsoleMessagesToStdout
SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo,
constructSettingsEnableWriteConsoleMessagesToStdout,
getSettingsEnableWriteConsoleMessagesToStdout,
setSettingsEnableWriteConsoleMessagesToStdout,
-- ** EnableXssAuditor
SettingsEnableXssAuditorPropertyInfo ,
constructSettingsEnableXssAuditor ,
getSettingsEnableXssAuditor ,
setSettingsEnableXssAuditor ,
-- ** FantasyFontFamily
SettingsFantasyFontFamilyPropertyInfo ,
constructSettingsFantasyFontFamily ,
getSettingsFantasyFontFamily ,
setSettingsFantasyFontFamily ,
-- ** JavascriptCanAccessClipboard
SettingsJavascriptCanAccessClipboardPropertyInfo,
constructSettingsJavascriptCanAccessClipboard,
getSettingsJavascriptCanAccessClipboard ,
setSettingsJavascriptCanAccessClipboard ,
-- ** JavascriptCanOpenWindowsAutomatically
SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo,
constructSettingsJavascriptCanOpenWindowsAutomatically,
getSettingsJavascriptCanOpenWindowsAutomatically,
setSettingsJavascriptCanOpenWindowsAutomatically,
-- ** LoadIconsIgnoringImageLoadSetting
SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo,
constructSettingsLoadIconsIgnoringImageLoadSetting,
getSettingsLoadIconsIgnoringImageLoadSetting,
setSettingsLoadIconsIgnoringImageLoadSetting,
-- ** MediaPlaybackAllowsInline
SettingsMediaPlaybackAllowsInlinePropertyInfo,
constructSettingsMediaPlaybackAllowsInline,
getSettingsMediaPlaybackAllowsInline ,
setSettingsMediaPlaybackAllowsInline ,
-- ** MediaPlaybackRequiresUserGesture
SettingsMediaPlaybackRequiresUserGesturePropertyInfo,
constructSettingsMediaPlaybackRequiresUserGesture,
getSettingsMediaPlaybackRequiresUserGesture,
setSettingsMediaPlaybackRequiresUserGesture,
-- ** MinimumFontSize
SettingsMinimumFontSizePropertyInfo ,
constructSettingsMinimumFontSize ,
getSettingsMinimumFontSize ,
setSettingsMinimumFontSize ,
-- ** MonospaceFontFamily
SettingsMonospaceFontFamilyPropertyInfo ,
constructSettingsMonospaceFontFamily ,
getSettingsMonospaceFontFamily ,
setSettingsMonospaceFontFamily ,
-- ** PictographFontFamily
SettingsPictographFontFamilyPropertyInfo,
constructSettingsPictographFontFamily ,
getSettingsPictographFontFamily ,
setSettingsPictographFontFamily ,
-- ** PrintBackgrounds
SettingsPrintBackgroundsPropertyInfo ,
constructSettingsPrintBackgrounds ,
getSettingsPrintBackgrounds ,
setSettingsPrintBackgrounds ,
-- ** SansSerifFontFamily
SettingsSansSerifFontFamilyPropertyInfo ,
constructSettingsSansSerifFontFamily ,
getSettingsSansSerifFontFamily ,
setSettingsSansSerifFontFamily ,
-- ** SerifFontFamily
SettingsSerifFontFamilyPropertyInfo ,
constructSettingsSerifFontFamily ,
getSettingsSerifFontFamily ,
setSettingsSerifFontFamily ,
-- ** UserAgent
SettingsUserAgentPropertyInfo ,
constructSettingsUserAgent ,
getSettingsUserAgent ,
setSettingsUserAgent ,
-- ** ZoomTextOnly
SettingsZoomTextOnlyPropertyInfo ,
constructSettingsZoomTextOnly ,
getSettingsZoomTextOnly ,
setSettingsZoomTextOnly ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit2.Types
import GI.WebKit2.Callbacks
import qualified GI.GObject as GObject
newtype Settings = Settings (ForeignPtr Settings)
foreign import ccall "webkit_settings_get_type"
c_webkit_settings_get_type :: IO GType
type instance ParentTypes Settings = SettingsParentTypes
type SettingsParentTypes = '[GObject.Object]
instance GObject Settings where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_settings_get_type
class GObject o => SettingsK o
instance (GObject o, IsDescendantOf Settings o) => SettingsK o
toSettings :: SettingsK o => o -> IO Settings
toSettings = unsafeCastTo Settings
noSettings :: Maybe Settings
noSettings = Nothing
type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where
ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveSettingsMethod "getAllowFileAccessFromFileUrls" o = SettingsGetAllowFileAccessFromFileUrlsMethodInfo
ResolveSettingsMethod "getAllowModalDialogs" o = SettingsGetAllowModalDialogsMethodInfo
ResolveSettingsMethod "getAutoLoadImages" o = SettingsGetAutoLoadImagesMethodInfo
ResolveSettingsMethod "getCursiveFontFamily" o = SettingsGetCursiveFontFamilyMethodInfo
ResolveSettingsMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo
ResolveSettingsMethod "getQdata" o = GObject.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 "setAutoLoadImages" o = SettingsSetAutoLoadImagesMethodInfo
ResolveSettingsMethod "setCursiveFontFamily" o = SettingsSetCursiveFontFamilyMethodInfo
ResolveSettingsMethod "setData" o = GObject.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.ObjectSetPropertyMethodInfo
ResolveSettingsMethod "setSansSerifFontFamily" o = SettingsSetSansSerifFontFamilyMethodInfo
ResolveSettingsMethod "setSerifFontFamily" o = SettingsSetSerifFontFamilyMethodInfo
ResolveSettingsMethod "setUserAgent" o = SettingsSetUserAgentMethodInfo
ResolveSettingsMethod "setUserAgentWithApplicationDetails" o = SettingsSetUserAgentWithApplicationDetailsMethodInfo
ResolveSettingsMethod "setZoomTextOnly" o = SettingsSetZoomTextOnlyMethodInfo
ResolveSettingsMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- VVV Prop "allow-file-access-from-file-urls"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsAllowFileAccessFromFileUrls obj = liftIO $ getObjectPropertyBool obj "allow-file-access-from-file-urls"
setSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsAllowFileAccessFromFileUrls obj val = liftIO $ setObjectPropertyBool obj "allow-file-access-from-file-urls" val
constructSettingsAllowFileAccessFromFileUrls :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool
type AttrLabel SettingsAllowFileAccessFromFileUrlsPropertyInfo = "allow-file-access-from-file-urls"
attrGet _ = getSettingsAllowFileAccessFromFileUrls
attrSet _ = setSettingsAllowFileAccessFromFileUrls
attrConstruct _ = constructSettingsAllowFileAccessFromFileUrls
-- VVV Prop "allow-modal-dialogs"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsAllowModalDialogs obj = liftIO $ getObjectPropertyBool obj "allow-modal-dialogs"
setSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsAllowModalDialogs obj val = liftIO $ setObjectPropertyBool obj "allow-modal-dialogs" val
constructSettingsAllowModalDialogs :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsAllowModalDialogsPropertyInfo = Bool
type AttrLabel SettingsAllowModalDialogsPropertyInfo = "allow-modal-dialogs"
attrGet _ = getSettingsAllowModalDialogs
attrSet _ = setSettingsAllowModalDialogs
attrConstruct _ = constructSettingsAllowModalDialogs
-- VVV Prop "auto-load-images"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsAutoLoadImages obj = liftIO $ getObjectPropertyBool obj "auto-load-images"
setSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsAutoLoadImages obj val = liftIO $ setObjectPropertyBool obj "auto-load-images" val
constructSettingsAutoLoadImages :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsAutoLoadImagesPropertyInfo = Bool
type AttrLabel SettingsAutoLoadImagesPropertyInfo = "auto-load-images"
attrGet _ = getSettingsAutoLoadImages
attrSet _ = setSettingsAutoLoadImages
attrConstruct _ = constructSettingsAutoLoadImages
-- VVV Prop "cursive-font-family"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsCursiveFontFamily obj = liftIO $ getObjectPropertyString obj "cursive-font-family"
setSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()
setSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" val
constructSettingsCursiveFontFamily :: T.Text -> IO ([Char], GValue)
constructSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" val
data SettingsCursiveFontFamilyPropertyInfo
instance AttrInfo SettingsCursiveFontFamilyPropertyInfo where
type AttrAllowedOps SettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsCursiveFontFamilyPropertyInfo = SettingsK
type AttrGetType SettingsCursiveFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsCursiveFontFamilyPropertyInfo = "cursive-font-family"
attrGet _ = getSettingsCursiveFontFamily
attrSet _ = setSettingsCursiveFontFamily
attrConstruct _ = constructSettingsCursiveFontFamily
-- VVV Prop "default-charset"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsDefaultCharset obj = liftIO $ getObjectPropertyString obj "default-charset"
setSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()
setSettingsDefaultCharset obj val = liftIO $ setObjectPropertyString obj "default-charset" val
constructSettingsDefaultCharset :: T.Text -> IO ([Char], GValue)
constructSettingsDefaultCharset val = constructObjectPropertyString "default-charset" val
data SettingsDefaultCharsetPropertyInfo
instance AttrInfo SettingsDefaultCharsetPropertyInfo where
type AttrAllowedOps SettingsDefaultCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsDefaultCharsetPropertyInfo = SettingsK
type AttrGetType SettingsDefaultCharsetPropertyInfo = T.Text
type AttrLabel SettingsDefaultCharsetPropertyInfo = "default-charset"
attrGet _ = getSettingsDefaultCharset
attrSet _ = setSettingsDefaultCharset
attrConstruct _ = constructSettingsDefaultCharset
-- VVV Prop "default-font-family"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsDefaultFontFamily obj = liftIO $ getObjectPropertyString obj "default-font-family"
setSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()
setSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" val
constructSettingsDefaultFontFamily :: T.Text -> IO ([Char], GValue)
constructSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" val
data SettingsDefaultFontFamilyPropertyInfo
instance AttrInfo SettingsDefaultFontFamilyPropertyInfo where
type AttrAllowedOps SettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsDefaultFontFamilyPropertyInfo = SettingsK
type AttrGetType SettingsDefaultFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsDefaultFontFamilyPropertyInfo = "default-font-family"
attrGet _ = getSettingsDefaultFontFamily
attrSet _ = setSettingsDefaultFontFamily
attrConstruct _ = constructSettingsDefaultFontFamily
-- VVV Prop "default-font-size"
-- Type: TBasicType TUInt32
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> m Word32
getSettingsDefaultFontSize obj = liftIO $ getObjectPropertyCUInt obj "default-font-size"
setSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m ()
setSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyCUInt obj "default-font-size" val
constructSettingsDefaultFontSize :: Word32 -> IO ([Char], GValue)
constructSettingsDefaultFontSize val = constructObjectPropertyCUInt "default-font-size" val
data SettingsDefaultFontSizePropertyInfo
instance AttrInfo SettingsDefaultFontSizePropertyInfo where
type AttrAllowedOps SettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint SettingsDefaultFontSizePropertyInfo = SettingsK
type AttrGetType SettingsDefaultFontSizePropertyInfo = Word32
type AttrLabel SettingsDefaultFontSizePropertyInfo = "default-font-size"
attrGet _ = getSettingsDefaultFontSize
attrSet _ = setSettingsDefaultFontSize
attrConstruct _ = constructSettingsDefaultFontSize
-- VVV Prop "default-monospace-font-size"
-- Type: TBasicType TUInt32
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> m Word32
getSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyCUInt obj "default-monospace-font-size"
setSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m ()
setSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyCUInt obj "default-monospace-font-size" val
constructSettingsDefaultMonospaceFontSize :: Word32 -> IO ([Char], GValue)
constructSettingsDefaultMonospaceFontSize val = constructObjectPropertyCUInt "default-monospace-font-size" val
data SettingsDefaultMonospaceFontSizePropertyInfo
instance AttrInfo SettingsDefaultMonospaceFontSizePropertyInfo where
type AttrAllowedOps SettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = SettingsK
type AttrGetType SettingsDefaultMonospaceFontSizePropertyInfo = Word32
type AttrLabel SettingsDefaultMonospaceFontSizePropertyInfo = "default-monospace-font-size"
attrGet _ = getSettingsDefaultMonospaceFontSize
attrSet _ = setSettingsDefaultMonospaceFontSize
attrConstruct _ = constructSettingsDefaultMonospaceFontSize
-- VVV Prop "draw-compositing-indicators"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsDrawCompositingIndicators obj = liftIO $ getObjectPropertyBool obj "draw-compositing-indicators"
setSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsDrawCompositingIndicators obj val = liftIO $ setObjectPropertyBool obj "draw-compositing-indicators" val
constructSettingsDrawCompositingIndicators :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsDrawCompositingIndicatorsPropertyInfo = Bool
type AttrLabel SettingsDrawCompositingIndicatorsPropertyInfo = "draw-compositing-indicators"
attrGet _ = getSettingsDrawCompositingIndicators
attrSet _ = setSettingsDrawCompositingIndicators
attrConstruct _ = constructSettingsDrawCompositingIndicators
-- VVV Prop "enable-accelerated-2d-canvas"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableAccelerated2dCanvas obj = liftIO $ getObjectPropertyBool obj "enable-accelerated-2d-canvas"
setSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableAccelerated2dCanvas obj val = liftIO $ setObjectPropertyBool obj "enable-accelerated-2d-canvas" val
constructSettingsEnableAccelerated2dCanvas :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool
type AttrLabel SettingsEnableAccelerated2dCanvasPropertyInfo = "enable-accelerated-2d-canvas"
attrGet _ = getSettingsEnableAccelerated2dCanvas
attrSet _ = setSettingsEnableAccelerated2dCanvas
attrConstruct _ = constructSettingsEnableAccelerated2dCanvas
-- VVV Prop "enable-caret-browsing"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableCaretBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-caret-browsing"
setSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableCaretBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-caret-browsing" val
constructSettingsEnableCaretBrowsing :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableCaretBrowsingPropertyInfo = Bool
type AttrLabel SettingsEnableCaretBrowsingPropertyInfo = "enable-caret-browsing"
attrGet _ = getSettingsEnableCaretBrowsing
attrSet _ = setSettingsEnableCaretBrowsing
attrConstruct _ = constructSettingsEnableCaretBrowsing
-- VVV Prop "enable-developer-extras"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableDeveloperExtras obj = liftIO $ getObjectPropertyBool obj "enable-developer-extras"
setSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableDeveloperExtras obj val = liftIO $ setObjectPropertyBool obj "enable-developer-extras" val
constructSettingsEnableDeveloperExtras :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableDeveloperExtrasPropertyInfo = Bool
type AttrLabel SettingsEnableDeveloperExtrasPropertyInfo = "enable-developer-extras"
attrGet _ = getSettingsEnableDeveloperExtras
attrSet _ = setSettingsEnableDeveloperExtras
attrConstruct _ = constructSettingsEnableDeveloperExtras
-- VVV Prop "enable-dns-prefetching"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableDnsPrefetching obj = liftIO $ getObjectPropertyBool obj "enable-dns-prefetching"
setSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableDnsPrefetching obj val = liftIO $ setObjectPropertyBool obj "enable-dns-prefetching" val
constructSettingsEnableDnsPrefetching :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableDnsPrefetchingPropertyInfo = Bool
type AttrLabel SettingsEnableDnsPrefetchingPropertyInfo = "enable-dns-prefetching"
attrGet _ = getSettingsEnableDnsPrefetching
attrSet _ = setSettingsEnableDnsPrefetching
attrConstruct _ = constructSettingsEnableDnsPrefetching
-- VVV Prop "enable-frame-flattening"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableFrameFlattening obj = liftIO $ getObjectPropertyBool obj "enable-frame-flattening"
setSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableFrameFlattening obj val = liftIO $ setObjectPropertyBool obj "enable-frame-flattening" val
constructSettingsEnableFrameFlattening :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableFrameFlatteningPropertyInfo = Bool
type AttrLabel SettingsEnableFrameFlatteningPropertyInfo = "enable-frame-flattening"
attrGet _ = getSettingsEnableFrameFlattening
attrSet _ = setSettingsEnableFrameFlattening
attrConstruct _ = constructSettingsEnableFrameFlattening
-- VVV Prop "enable-fullscreen"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableFullscreen obj = liftIO $ getObjectPropertyBool obj "enable-fullscreen"
setSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableFullscreen obj val = liftIO $ setObjectPropertyBool obj "enable-fullscreen" val
constructSettingsEnableFullscreen :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableFullscreenPropertyInfo = Bool
type AttrLabel SettingsEnableFullscreenPropertyInfo = "enable-fullscreen"
attrGet _ = getSettingsEnableFullscreen
attrSet _ = setSettingsEnableFullscreen
attrConstruct _ = constructSettingsEnableFullscreen
-- VVV Prop "enable-html5-database"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableHtml5Database obj = liftIO $ getObjectPropertyBool obj "enable-html5-database"
setSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableHtml5Database obj val = liftIO $ setObjectPropertyBool obj "enable-html5-database" val
constructSettingsEnableHtml5Database :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableHtml5DatabasePropertyInfo = Bool
type AttrLabel SettingsEnableHtml5DatabasePropertyInfo = "enable-html5-database"
attrGet _ = getSettingsEnableHtml5Database
attrSet _ = setSettingsEnableHtml5Database
attrConstruct _ = constructSettingsEnableHtml5Database
-- VVV Prop "enable-html5-local-storage"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableHtml5LocalStorage obj = liftIO $ getObjectPropertyBool obj "enable-html5-local-storage"
setSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableHtml5LocalStorage obj val = liftIO $ setObjectPropertyBool obj "enable-html5-local-storage" val
constructSettingsEnableHtml5LocalStorage :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableHtml5LocalStoragePropertyInfo = Bool
type AttrLabel SettingsEnableHtml5LocalStoragePropertyInfo = "enable-html5-local-storage"
attrGet _ = getSettingsEnableHtml5LocalStorage
attrSet _ = setSettingsEnableHtml5LocalStorage
attrConstruct _ = constructSettingsEnableHtml5LocalStorage
-- VVV Prop "enable-hyperlink-auditing"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableHyperlinkAuditing obj = liftIO $ getObjectPropertyBool obj "enable-hyperlink-auditing"
setSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableHyperlinkAuditing obj val = liftIO $ setObjectPropertyBool obj "enable-hyperlink-auditing" val
constructSettingsEnableHyperlinkAuditing :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableHyperlinkAuditingPropertyInfo = Bool
type AttrLabel SettingsEnableHyperlinkAuditingPropertyInfo = "enable-hyperlink-auditing"
attrGet _ = getSettingsEnableHyperlinkAuditing
attrSet _ = setSettingsEnableHyperlinkAuditing
attrConstruct _ = constructSettingsEnableHyperlinkAuditing
-- VVV Prop "enable-java"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableJava obj = liftIO $ getObjectPropertyBool obj "enable-java"
setSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableJava obj val = liftIO $ setObjectPropertyBool obj "enable-java" val
constructSettingsEnableJava :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableJavaPropertyInfo = Bool
type AttrLabel SettingsEnableJavaPropertyInfo = "enable-java"
attrGet _ = getSettingsEnableJava
attrSet _ = setSettingsEnableJava
attrConstruct _ = constructSettingsEnableJava
-- VVV Prop "enable-javascript"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableJavascript obj = liftIO $ getObjectPropertyBool obj "enable-javascript"
setSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableJavascript obj val = liftIO $ setObjectPropertyBool obj "enable-javascript" val
constructSettingsEnableJavascript :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableJavascriptPropertyInfo = Bool
type AttrLabel SettingsEnableJavascriptPropertyInfo = "enable-javascript"
attrGet _ = getSettingsEnableJavascript
attrSet _ = setSettingsEnableJavascript
attrConstruct _ = constructSettingsEnableJavascript
-- VVV Prop "enable-media-stream"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableMediaStream obj = liftIO $ getObjectPropertyBool obj "enable-media-stream"
setSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableMediaStream obj val = liftIO $ setObjectPropertyBool obj "enable-media-stream" val
constructSettingsEnableMediaStream :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableMediaStreamPropertyInfo = Bool
type AttrLabel SettingsEnableMediaStreamPropertyInfo = "enable-media-stream"
attrGet _ = getSettingsEnableMediaStream
attrSet _ = setSettingsEnableMediaStream
attrConstruct _ = constructSettingsEnableMediaStream
-- VVV Prop "enable-mediasource"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableMediasource obj = liftIO $ getObjectPropertyBool obj "enable-mediasource"
setSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableMediasource obj val = liftIO $ setObjectPropertyBool obj "enable-mediasource" val
constructSettingsEnableMediasource :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableMediasourcePropertyInfo = Bool
type AttrLabel SettingsEnableMediasourcePropertyInfo = "enable-mediasource"
attrGet _ = getSettingsEnableMediasource
attrSet _ = setSettingsEnableMediasource
attrConstruct _ = constructSettingsEnableMediasource
-- VVV Prop "enable-offline-web-application-cache"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableOfflineWebApplicationCache obj = liftIO $ getObjectPropertyBool obj "enable-offline-web-application-cache"
setSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableOfflineWebApplicationCache obj val = liftIO $ setObjectPropertyBool obj "enable-offline-web-application-cache" val
constructSettingsEnableOfflineWebApplicationCache :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool
type AttrLabel SettingsEnableOfflineWebApplicationCachePropertyInfo = "enable-offline-web-application-cache"
attrGet _ = getSettingsEnableOfflineWebApplicationCache
attrSet _ = setSettingsEnableOfflineWebApplicationCache
attrConstruct _ = constructSettingsEnableOfflineWebApplicationCache
-- VVV Prop "enable-page-cache"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnablePageCache obj = liftIO $ getObjectPropertyBool obj "enable-page-cache"
setSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnablePageCache obj val = liftIO $ setObjectPropertyBool obj "enable-page-cache" val
constructSettingsEnablePageCache :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnablePageCachePropertyInfo = Bool
type AttrLabel SettingsEnablePageCachePropertyInfo = "enable-page-cache"
attrGet _ = getSettingsEnablePageCache
attrSet _ = setSettingsEnablePageCache
attrConstruct _ = constructSettingsEnablePageCache
-- VVV Prop "enable-plugins"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnablePlugins obj = liftIO $ getObjectPropertyBool obj "enable-plugins"
setSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnablePlugins obj val = liftIO $ setObjectPropertyBool obj "enable-plugins" val
constructSettingsEnablePlugins :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnablePluginsPropertyInfo = Bool
type AttrLabel SettingsEnablePluginsPropertyInfo = "enable-plugins"
attrGet _ = getSettingsEnablePlugins
attrSet _ = setSettingsEnablePlugins
attrConstruct _ = constructSettingsEnablePlugins
-- VVV Prop "enable-private-browsing"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnablePrivateBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-private-browsing"
setSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnablePrivateBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-private-browsing" val
constructSettingsEnablePrivateBrowsing :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnablePrivateBrowsingPropertyInfo = Bool
type AttrLabel SettingsEnablePrivateBrowsingPropertyInfo = "enable-private-browsing"
attrGet _ = getSettingsEnablePrivateBrowsing
attrSet _ = setSettingsEnablePrivateBrowsing
attrConstruct _ = constructSettingsEnablePrivateBrowsing
-- VVV Prop "enable-resizable-text-areas"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableResizableTextAreas obj = liftIO $ getObjectPropertyBool obj "enable-resizable-text-areas"
setSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableResizableTextAreas obj val = liftIO $ setObjectPropertyBool obj "enable-resizable-text-areas" val
constructSettingsEnableResizableTextAreas :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableResizableTextAreasPropertyInfo = Bool
type AttrLabel SettingsEnableResizableTextAreasPropertyInfo = "enable-resizable-text-areas"
attrGet _ = getSettingsEnableResizableTextAreas
attrSet _ = setSettingsEnableResizableTextAreas
attrConstruct _ = constructSettingsEnableResizableTextAreas
-- VVV Prop "enable-site-specific-quirks"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableSiteSpecificQuirks obj = liftIO $ getObjectPropertyBool obj "enable-site-specific-quirks"
setSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableSiteSpecificQuirks obj val = liftIO $ setObjectPropertyBool obj "enable-site-specific-quirks" val
constructSettingsEnableSiteSpecificQuirks :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool
type AttrLabel SettingsEnableSiteSpecificQuirksPropertyInfo = "enable-site-specific-quirks"
attrGet _ = getSettingsEnableSiteSpecificQuirks
attrSet _ = setSettingsEnableSiteSpecificQuirks
attrConstruct _ = constructSettingsEnableSiteSpecificQuirks
-- VVV Prop "enable-smooth-scrolling"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableSmoothScrolling obj = liftIO $ getObjectPropertyBool obj "enable-smooth-scrolling"
setSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableSmoothScrolling obj val = liftIO $ setObjectPropertyBool obj "enable-smooth-scrolling" val
constructSettingsEnableSmoothScrolling :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableSmoothScrollingPropertyInfo = Bool
type AttrLabel SettingsEnableSmoothScrollingPropertyInfo = "enable-smooth-scrolling"
attrGet _ = getSettingsEnableSmoothScrolling
attrSet _ = setSettingsEnableSmoothScrolling
attrConstruct _ = constructSettingsEnableSmoothScrolling
-- VVV Prop "enable-spatial-navigation"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableSpatialNavigation obj = liftIO $ getObjectPropertyBool obj "enable-spatial-navigation"
setSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableSpatialNavigation obj val = liftIO $ setObjectPropertyBool obj "enable-spatial-navigation" val
constructSettingsEnableSpatialNavigation :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableSpatialNavigationPropertyInfo = Bool
type AttrLabel SettingsEnableSpatialNavigationPropertyInfo = "enable-spatial-navigation"
attrGet _ = getSettingsEnableSpatialNavigation
attrSet _ = setSettingsEnableSpatialNavigation
attrConstruct _ = constructSettingsEnableSpatialNavigation
-- VVV Prop "enable-tabs-to-links"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableTabsToLinks obj = liftIO $ getObjectPropertyBool obj "enable-tabs-to-links"
setSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableTabsToLinks obj val = liftIO $ setObjectPropertyBool obj "enable-tabs-to-links" val
constructSettingsEnableTabsToLinks :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableTabsToLinksPropertyInfo = Bool
type AttrLabel SettingsEnableTabsToLinksPropertyInfo = "enable-tabs-to-links"
attrGet _ = getSettingsEnableTabsToLinks
attrSet _ = setSettingsEnableTabsToLinks
attrConstruct _ = constructSettingsEnableTabsToLinks
-- VVV Prop "enable-webaudio"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableWebaudio obj = liftIO $ getObjectPropertyBool obj "enable-webaudio"
setSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableWebaudio obj val = liftIO $ setObjectPropertyBool obj "enable-webaudio" val
constructSettingsEnableWebaudio :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableWebaudioPropertyInfo = Bool
type AttrLabel SettingsEnableWebaudioPropertyInfo = "enable-webaudio"
attrGet _ = getSettingsEnableWebaudio
attrSet _ = setSettingsEnableWebaudio
attrConstruct _ = constructSettingsEnableWebaudio
-- VVV Prop "enable-webgl"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableWebgl obj = liftIO $ getObjectPropertyBool obj "enable-webgl"
setSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableWebgl obj val = liftIO $ setObjectPropertyBool obj "enable-webgl" val
constructSettingsEnableWebgl :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableWebglPropertyInfo = Bool
type AttrLabel SettingsEnableWebglPropertyInfo = "enable-webgl"
attrGet _ = getSettingsEnableWebgl
attrSet _ = setSettingsEnableWebgl
attrConstruct _ = constructSettingsEnableWebgl
-- VVV Prop "enable-write-console-messages-to-stdout"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableWriteConsoleMessagesToStdout obj = liftIO $ getObjectPropertyBool obj "enable-write-console-messages-to-stdout"
setSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableWriteConsoleMessagesToStdout obj val = liftIO $ setObjectPropertyBool obj "enable-write-console-messages-to-stdout" val
constructSettingsEnableWriteConsoleMessagesToStdout :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool
type AttrLabel SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = "enable-write-console-messages-to-stdout"
attrGet _ = getSettingsEnableWriteConsoleMessagesToStdout
attrSet _ = setSettingsEnableWriteConsoleMessagesToStdout
attrConstruct _ = constructSettingsEnableWriteConsoleMessagesToStdout
-- VVV Prop "enable-xss-auditor"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsEnableXssAuditor obj = liftIO $ getObjectPropertyBool obj "enable-xss-auditor"
setSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsEnableXssAuditor obj val = liftIO $ setObjectPropertyBool obj "enable-xss-auditor" val
constructSettingsEnableXssAuditor :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsEnableXssAuditorPropertyInfo = Bool
type AttrLabel SettingsEnableXssAuditorPropertyInfo = "enable-xss-auditor"
attrGet _ = getSettingsEnableXssAuditor
attrSet _ = setSettingsEnableXssAuditor
attrConstruct _ = constructSettingsEnableXssAuditor
-- VVV Prop "fantasy-font-family"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsFantasyFontFamily obj = liftIO $ getObjectPropertyString obj "fantasy-font-family"
setSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()
setSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" val
constructSettingsFantasyFontFamily :: T.Text -> IO ([Char], GValue)
constructSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" val
data SettingsFantasyFontFamilyPropertyInfo
instance AttrInfo SettingsFantasyFontFamilyPropertyInfo where
type AttrAllowedOps SettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsFantasyFontFamilyPropertyInfo = SettingsK
type AttrGetType SettingsFantasyFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsFantasyFontFamilyPropertyInfo = "fantasy-font-family"
attrGet _ = getSettingsFantasyFontFamily
attrSet _ = setSettingsFantasyFontFamily
attrConstruct _ = constructSettingsFantasyFontFamily
-- VVV Prop "javascript-can-access-clipboard"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsJavascriptCanAccessClipboard obj = liftIO $ getObjectPropertyBool obj "javascript-can-access-clipboard"
setSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsJavascriptCanAccessClipboard obj val = liftIO $ setObjectPropertyBool obj "javascript-can-access-clipboard" val
constructSettingsJavascriptCanAccessClipboard :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool
type AttrLabel SettingsJavascriptCanAccessClipboardPropertyInfo = "javascript-can-access-clipboard"
attrGet _ = getSettingsJavascriptCanAccessClipboard
attrSet _ = setSettingsJavascriptCanAccessClipboard
attrConstruct _ = constructSettingsJavascriptCanAccessClipboard
-- VVV Prop "javascript-can-open-windows-automatically"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ getObjectPropertyBool obj "javascript-can-open-windows-automatically"
setSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ setObjectPropertyBool obj "javascript-can-open-windows-automatically" val
constructSettingsJavascriptCanOpenWindowsAutomatically :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool
type AttrLabel SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "javascript-can-open-windows-automatically"
attrGet _ = getSettingsJavascriptCanOpenWindowsAutomatically
attrSet _ = setSettingsJavascriptCanOpenWindowsAutomatically
attrConstruct _ = constructSettingsJavascriptCanOpenWindowsAutomatically
-- VVV Prop "load-icons-ignoring-image-load-setting"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsLoadIconsIgnoringImageLoadSetting obj = liftIO $ getObjectPropertyBool obj "load-icons-ignoring-image-load-setting"
setSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsLoadIconsIgnoringImageLoadSetting obj val = liftIO $ setObjectPropertyBool obj "load-icons-ignoring-image-load-setting" val
constructSettingsLoadIconsIgnoringImageLoadSetting :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool
type AttrLabel SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = "load-icons-ignoring-image-load-setting"
attrGet _ = getSettingsLoadIconsIgnoringImageLoadSetting
attrSet _ = setSettingsLoadIconsIgnoringImageLoadSetting
attrConstruct _ = constructSettingsLoadIconsIgnoringImageLoadSetting
-- VVV Prop "media-playback-allows-inline"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsMediaPlaybackAllowsInline obj = liftIO $ getObjectPropertyBool obj "media-playback-allows-inline"
setSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsMediaPlaybackAllowsInline obj val = liftIO $ setObjectPropertyBool obj "media-playback-allows-inline" val
constructSettingsMediaPlaybackAllowsInline :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool
type AttrLabel SettingsMediaPlaybackAllowsInlinePropertyInfo = "media-playback-allows-inline"
attrGet _ = getSettingsMediaPlaybackAllowsInline
attrSet _ = setSettingsMediaPlaybackAllowsInline
attrConstruct _ = constructSettingsMediaPlaybackAllowsInline
-- VVV Prop "media-playback-requires-user-gesture"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ getObjectPropertyBool obj "media-playback-requires-user-gesture"
setSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ setObjectPropertyBool obj "media-playback-requires-user-gesture" val
constructSettingsMediaPlaybackRequiresUserGesture :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool
type AttrLabel SettingsMediaPlaybackRequiresUserGesturePropertyInfo = "media-playback-requires-user-gesture"
attrGet _ = getSettingsMediaPlaybackRequiresUserGesture
attrSet _ = setSettingsMediaPlaybackRequiresUserGesture
attrConstruct _ = constructSettingsMediaPlaybackRequiresUserGesture
-- VVV Prop "minimum-font-size"
-- Type: TBasicType TUInt32
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> m Word32
getSettingsMinimumFontSize obj = liftIO $ getObjectPropertyCUInt obj "minimum-font-size"
setSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m ()
setSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyCUInt obj "minimum-font-size" val
constructSettingsMinimumFontSize :: Word32 -> IO ([Char], GValue)
constructSettingsMinimumFontSize val = constructObjectPropertyCUInt "minimum-font-size" val
data SettingsMinimumFontSizePropertyInfo
instance AttrInfo SettingsMinimumFontSizePropertyInfo where
type AttrAllowedOps SettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint SettingsMinimumFontSizePropertyInfo = SettingsK
type AttrGetType SettingsMinimumFontSizePropertyInfo = Word32
type AttrLabel SettingsMinimumFontSizePropertyInfo = "minimum-font-size"
attrGet _ = getSettingsMinimumFontSize
attrSet _ = setSettingsMinimumFontSize
attrConstruct _ = constructSettingsMinimumFontSize
-- VVV Prop "monospace-font-family"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsMonospaceFontFamily obj = liftIO $ getObjectPropertyString obj "monospace-font-family"
setSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()
setSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" val
constructSettingsMonospaceFontFamily :: T.Text -> IO ([Char], GValue)
constructSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" val
data SettingsMonospaceFontFamilyPropertyInfo
instance AttrInfo SettingsMonospaceFontFamilyPropertyInfo where
type AttrAllowedOps SettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = SettingsK
type AttrGetType SettingsMonospaceFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsMonospaceFontFamilyPropertyInfo = "monospace-font-family"
attrGet _ = getSettingsMonospaceFontFamily
attrSet _ = setSettingsMonospaceFontFamily
attrConstruct _ = constructSettingsMonospaceFontFamily
-- VVV Prop "pictograph-font-family"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsPictographFontFamily obj = liftIO $ getObjectPropertyString obj "pictograph-font-family"
setSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()
setSettingsPictographFontFamily obj val = liftIO $ setObjectPropertyString obj "pictograph-font-family" val
constructSettingsPictographFontFamily :: T.Text -> IO ([Char], GValue)
constructSettingsPictographFontFamily val = constructObjectPropertyString "pictograph-font-family" val
data SettingsPictographFontFamilyPropertyInfo
instance AttrInfo SettingsPictographFontFamilyPropertyInfo where
type AttrAllowedOps SettingsPictographFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsPictographFontFamilyPropertyInfo = SettingsK
type AttrGetType SettingsPictographFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsPictographFontFamilyPropertyInfo = "pictograph-font-family"
attrGet _ = getSettingsPictographFontFamily
attrSet _ = setSettingsPictographFontFamily
attrConstruct _ = constructSettingsPictographFontFamily
-- VVV Prop "print-backgrounds"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsPrintBackgrounds obj = liftIO $ getObjectPropertyBool obj "print-backgrounds"
setSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsPrintBackgrounds obj val = liftIO $ setObjectPropertyBool obj "print-backgrounds" val
constructSettingsPrintBackgrounds :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsPrintBackgroundsPropertyInfo = Bool
type AttrLabel SettingsPrintBackgroundsPropertyInfo = "print-backgrounds"
attrGet _ = getSettingsPrintBackgrounds
attrSet _ = setSettingsPrintBackgrounds
attrConstruct _ = constructSettingsPrintBackgrounds
-- VVV Prop "sans-serif-font-family"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsSansSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsSansSerifFontFamily obj = liftIO $ getObjectPropertyString obj "sans-serif-font-family"
setSettingsSansSerifFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()
setSettingsSansSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "sans-serif-font-family" val
constructSettingsSansSerifFontFamily :: T.Text -> IO ([Char], GValue)
constructSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" val
data SettingsSansSerifFontFamilyPropertyInfo
instance AttrInfo SettingsSansSerifFontFamilyPropertyInfo where
type AttrAllowedOps SettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = SettingsK
type AttrGetType SettingsSansSerifFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsSansSerifFontFamilyPropertyInfo = "sans-serif-font-family"
attrGet _ = getSettingsSansSerifFontFamily
attrSet _ = setSettingsSansSerifFontFamily
attrConstruct _ = constructSettingsSansSerifFontFamily
-- VVV Prop "serif-font-family"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsSerifFontFamily obj = liftIO $ getObjectPropertyString obj "serif-font-family"
setSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()
setSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" val
constructSettingsSerifFontFamily :: T.Text -> IO ([Char], GValue)
constructSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" val
data SettingsSerifFontFamilyPropertyInfo
instance AttrInfo SettingsSerifFontFamilyPropertyInfo where
type AttrAllowedOps SettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsSerifFontFamilyPropertyInfo = SettingsK
type AttrGetType SettingsSerifFontFamilyPropertyInfo = T.Text
type AttrLabel SettingsSerifFontFamilyPropertyInfo = "serif-font-family"
attrGet _ = getSettingsSerifFontFamily
attrSet _ = setSettingsSerifFontFamily
attrConstruct _ = constructSettingsSerifFontFamily
-- VVV Prop "user-agent"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent"
setSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()
setSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val
constructSettingsUserAgent :: T.Text -> IO ([Char], GValue)
constructSettingsUserAgent val = constructObjectPropertyString "user-agent" val
data SettingsUserAgentPropertyInfo
instance AttrInfo SettingsUserAgentPropertyInfo where
type AttrAllowedOps SettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsUserAgentPropertyInfo = SettingsK
type AttrGetType SettingsUserAgentPropertyInfo = T.Text
type AttrLabel SettingsUserAgentPropertyInfo = "user-agent"
attrGet _ = getSettingsUserAgent
attrSet _ = setSettingsUserAgent
attrConstruct _ = constructSettingsUserAgent
-- VVV Prop "zoom-text-only"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsZoomTextOnly obj = liftIO $ getObjectPropertyBool obj "zoom-text-only"
setSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> Bool -> m ()
setSettingsZoomTextOnly obj val = liftIO $ setObjectPropertyBool obj "zoom-text-only" val
constructSettingsZoomTextOnly :: Bool -> IO ([Char], GValue)
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 = SettingsK
type AttrGetType SettingsZoomTextOnlyPropertyInfo = Bool
type AttrLabel SettingsZoomTextOnlyPropertyInfo = "zoom-text-only"
attrGet _ = getSettingsZoomTextOnly
attrSet _ = setSettingsZoomTextOnly
attrConstruct _ = constructSettingsZoomTextOnly
type instance AttributeList Settings = SettingsAttributeList
type SettingsAttributeList = ('[ '("allowFileAccessFromFileUrls", SettingsAllowFileAccessFromFileUrlsPropertyInfo), '("allowModalDialogs", SettingsAllowModalDialogsPropertyInfo), '("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, *)])
type instance SignalList Settings = SettingsSignalList
type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method Settings::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "WebKit2" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_new" webkit_settings_new ::
IO (Ptr Settings)
settingsNew ::
(MonadIO m) =>
m Settings -- result
settingsNew = liftIO $ do
result <- webkit_settings_new
checkUnexpectedReturnNULL "webkit_settings_new" result
result' <- (wrapObject Settings) result
return result'
-- method Settings::get_allow_file_access_from_file_urls
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_allow_file_access_from_file_urls" webkit_settings_get_allow_file_access_from_file_urls ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetAllowFileAccessFromFileUrls ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetAllowFileAccessFromFileUrls _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_allow_file_access_from_file_urls _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetAllowFileAccessFromFileUrlsMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAllowFileAccessFromFileUrlsMethodInfo a signature where
overloadedMethod _ = settingsGetAllowFileAccessFromFileUrls
-- method Settings::get_allow_modal_dialogs
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_allow_modal_dialogs" webkit_settings_get_allow_modal_dialogs ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetAllowModalDialogs ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetAllowModalDialogs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_allow_modal_dialogs _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetAllowModalDialogsMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAllowModalDialogsMethodInfo a signature where
overloadedMethod _ = settingsGetAllowModalDialogs
-- method Settings::get_auto_load_images
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_auto_load_images" webkit_settings_get_auto_load_images ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetAutoLoadImages ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetAutoLoadImages _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_auto_load_images _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetAutoLoadImagesMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAutoLoadImagesMethodInfo a signature where
overloadedMethod _ = settingsGetAutoLoadImages
-- method Settings::get_cursive_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_cursive_font_family" webkit_settings_get_cursive_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CString
settingsGetCursiveFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m T.Text -- result
settingsGetCursiveFontFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_cursive_font_family _obj'
checkUnexpectedReturnNULL "webkit_settings_get_cursive_font_family" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data SettingsGetCursiveFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetCursiveFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetCursiveFontFamily
-- method Settings::get_default_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_default_charset" webkit_settings_get_default_charset ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CString
settingsGetDefaultCharset ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m T.Text -- result
settingsGetDefaultCharset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_default_charset _obj'
checkUnexpectedReturnNULL "webkit_settings_get_default_charset" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data SettingsGetDefaultCharsetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultCharsetMethodInfo a signature where
overloadedMethod _ = settingsGetDefaultCharset
-- method Settings::get_default_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_default_font_family" webkit_settings_get_default_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CString
settingsGetDefaultFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m T.Text -- result
settingsGetDefaultFontFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_default_font_family _obj'
checkUnexpectedReturnNULL "webkit_settings_get_default_font_family" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data SettingsGetDefaultFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetDefaultFontFamily
-- method Settings::get_default_font_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_default_font_size" webkit_settings_get_default_font_size ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO Word32
settingsGetDefaultFontSize ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Word32 -- result
settingsGetDefaultFontSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_default_font_size _obj'
touchManagedPtr _obj
return result
data SettingsGetDefaultFontSizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultFontSizeMethodInfo a signature where
overloadedMethod _ = settingsGetDefaultFontSize
-- method Settings::get_default_monospace_font_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_default_monospace_font_size" webkit_settings_get_default_monospace_font_size ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO Word32
settingsGetDefaultMonospaceFontSize ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Word32 -- result
settingsGetDefaultMonospaceFontSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_default_monospace_font_size _obj'
touchManagedPtr _obj
return result
data SettingsGetDefaultMonospaceFontSizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultMonospaceFontSizeMethodInfo a signature where
overloadedMethod _ = settingsGetDefaultMonospaceFontSize
-- method Settings::get_draw_compositing_indicators
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_draw_compositing_indicators" webkit_settings_get_draw_compositing_indicators ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetDrawCompositingIndicators ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetDrawCompositingIndicators _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_draw_compositing_indicators _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetDrawCompositingIndicatorsMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetDrawCompositingIndicatorsMethodInfo a signature where
overloadedMethod _ = settingsGetDrawCompositingIndicators
-- method Settings::get_enable_accelerated_2d_canvas
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_accelerated_2d_canvas" webkit_settings_get_enable_accelerated_2d_canvas ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableAccelerated2dCanvas ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableAccelerated2dCanvas _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_accelerated_2d_canvas _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableAccelerated2dCanvasMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableAccelerated2dCanvasMethodInfo a signature where
overloadedMethod _ = settingsGetEnableAccelerated2dCanvas
-- method Settings::get_enable_caret_browsing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_caret_browsing" webkit_settings_get_enable_caret_browsing ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableCaretBrowsing ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableCaretBrowsing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_caret_browsing _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableCaretBrowsingMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableCaretBrowsingMethodInfo a signature where
overloadedMethod _ = settingsGetEnableCaretBrowsing
-- method Settings::get_enable_developer_extras
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_developer_extras" webkit_settings_get_enable_developer_extras ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableDeveloperExtras ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableDeveloperExtras _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_developer_extras _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableDeveloperExtrasMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableDeveloperExtrasMethodInfo a signature where
overloadedMethod _ = settingsGetEnableDeveloperExtras
-- method Settings::get_enable_dns_prefetching
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_dns_prefetching" webkit_settings_get_enable_dns_prefetching ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableDnsPrefetching ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableDnsPrefetching _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_dns_prefetching _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableDnsPrefetchingMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableDnsPrefetchingMethodInfo a signature where
overloadedMethod _ = settingsGetEnableDnsPrefetching
-- method Settings::get_enable_frame_flattening
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_frame_flattening" webkit_settings_get_enable_frame_flattening ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableFrameFlattening ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableFrameFlattening _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_frame_flattening _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableFrameFlatteningMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableFrameFlatteningMethodInfo a signature where
overloadedMethod _ = settingsGetEnableFrameFlattening
-- method Settings::get_enable_fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_fullscreen" webkit_settings_get_enable_fullscreen ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableFullscreen ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableFullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_fullscreen _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableFullscreenMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableFullscreenMethodInfo a signature where
overloadedMethod _ = settingsGetEnableFullscreen
-- method Settings::get_enable_html5_database
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_html5_database" webkit_settings_get_enable_html5_database ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableHtml5Database ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableHtml5Database _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_html5_database _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableHtml5DatabaseMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHtml5DatabaseMethodInfo a signature where
overloadedMethod _ = settingsGetEnableHtml5Database
-- method Settings::get_enable_html5_local_storage
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_html5_local_storage" webkit_settings_get_enable_html5_local_storage ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableHtml5LocalStorage ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableHtml5LocalStorage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_html5_local_storage _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableHtml5LocalStorageMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHtml5LocalStorageMethodInfo a signature where
overloadedMethod _ = settingsGetEnableHtml5LocalStorage
-- method Settings::get_enable_hyperlink_auditing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_hyperlink_auditing" webkit_settings_get_enable_hyperlink_auditing ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableHyperlinkAuditing ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableHyperlinkAuditing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_hyperlink_auditing _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableHyperlinkAuditingMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHyperlinkAuditingMethodInfo a signature where
overloadedMethod _ = settingsGetEnableHyperlinkAuditing
-- method Settings::get_enable_java
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_java" webkit_settings_get_enable_java ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableJava ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableJava _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_java _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableJavaMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableJavaMethodInfo a signature where
overloadedMethod _ = settingsGetEnableJava
-- method Settings::get_enable_javascript
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_javascript" webkit_settings_get_enable_javascript ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableJavascript ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableJavascript _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_javascript _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableJavascriptMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableJavascriptMethodInfo a signature where
overloadedMethod _ = settingsGetEnableJavascript
-- method Settings::get_enable_media_stream
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_media_stream" webkit_settings_get_enable_media_stream ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableMediaStream ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableMediaStream _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_media_stream _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableMediaStreamMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableMediaStreamMethodInfo a signature where
overloadedMethod _ = settingsGetEnableMediaStream
-- method Settings::get_enable_mediasource
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_mediasource" webkit_settings_get_enable_mediasource ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableMediasource ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableMediasource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_mediasource _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableMediasourceMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableMediasourceMethodInfo a signature where
overloadedMethod _ = settingsGetEnableMediasource
-- method Settings::get_enable_offline_web_application_cache
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_offline_web_application_cache" webkit_settings_get_enable_offline_web_application_cache ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableOfflineWebApplicationCache ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableOfflineWebApplicationCache _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_offline_web_application_cache _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableOfflineWebApplicationCacheMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableOfflineWebApplicationCacheMethodInfo a signature where
overloadedMethod _ = settingsGetEnableOfflineWebApplicationCache
-- method Settings::get_enable_page_cache
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_page_cache" webkit_settings_get_enable_page_cache ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnablePageCache ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnablePageCache _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_page_cache _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnablePageCacheMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePageCacheMethodInfo a signature where
overloadedMethod _ = settingsGetEnablePageCache
-- method Settings::get_enable_plugins
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_plugins" webkit_settings_get_enable_plugins ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnablePlugins ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnablePlugins _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_plugins _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnablePluginsMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePluginsMethodInfo a signature where
overloadedMethod _ = settingsGetEnablePlugins
-- method Settings::get_enable_private_browsing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_private_browsing" webkit_settings_get_enable_private_browsing ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnablePrivateBrowsing ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnablePrivateBrowsing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_private_browsing _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnablePrivateBrowsingMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePrivateBrowsingMethodInfo a signature where
overloadedMethod _ = settingsGetEnablePrivateBrowsing
-- method Settings::get_enable_resizable_text_areas
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_resizable_text_areas" webkit_settings_get_enable_resizable_text_areas ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableResizableTextAreas ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableResizableTextAreas _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_resizable_text_areas _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableResizableTextAreasMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableResizableTextAreasMethodInfo a signature where
overloadedMethod _ = settingsGetEnableResizableTextAreas
-- method Settings::get_enable_site_specific_quirks
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_site_specific_quirks" webkit_settings_get_enable_site_specific_quirks ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableSiteSpecificQuirks ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableSiteSpecificQuirks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_site_specific_quirks _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableSiteSpecificQuirksMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSiteSpecificQuirksMethodInfo a signature where
overloadedMethod _ = settingsGetEnableSiteSpecificQuirks
-- method Settings::get_enable_smooth_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_smooth_scrolling" webkit_settings_get_enable_smooth_scrolling ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableSmoothScrolling ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableSmoothScrolling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_smooth_scrolling _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableSmoothScrollingMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSmoothScrollingMethodInfo a signature where
overloadedMethod _ = settingsGetEnableSmoothScrolling
-- method Settings::get_enable_spatial_navigation
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_spatial_navigation" webkit_settings_get_enable_spatial_navigation ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableSpatialNavigation ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableSpatialNavigation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_spatial_navigation _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableSpatialNavigationMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSpatialNavigationMethodInfo a signature where
overloadedMethod _ = settingsGetEnableSpatialNavigation
-- method Settings::get_enable_tabs_to_links
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_tabs_to_links" webkit_settings_get_enable_tabs_to_links ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableTabsToLinks ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableTabsToLinks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_tabs_to_links _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableTabsToLinksMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableTabsToLinksMethodInfo a signature where
overloadedMethod _ = settingsGetEnableTabsToLinks
-- method Settings::get_enable_webaudio
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_webaudio" webkit_settings_get_enable_webaudio ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableWebaudio ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableWebaudio _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_webaudio _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableWebaudioMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWebaudioMethodInfo a signature where
overloadedMethod _ = settingsGetEnableWebaudio
-- method Settings::get_enable_webgl
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_webgl" webkit_settings_get_enable_webgl ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableWebgl ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableWebgl _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_webgl _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableWebglMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWebglMethodInfo a signature where
overloadedMethod _ = settingsGetEnableWebgl
-- method Settings::get_enable_write_console_messages_to_stdout
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_write_console_messages_to_stdout" webkit_settings_get_enable_write_console_messages_to_stdout ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableWriteConsoleMessagesToStdout ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableWriteConsoleMessagesToStdout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_write_console_messages_to_stdout _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where
overloadedMethod _ = settingsGetEnableWriteConsoleMessagesToStdout
-- method Settings::get_enable_xss_auditor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_enable_xss_auditor" webkit_settings_get_enable_xss_auditor ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetEnableXssAuditor ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetEnableXssAuditor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_enable_xss_auditor _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetEnableXssAuditorMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableXssAuditorMethodInfo a signature where
overloadedMethod _ = settingsGetEnableXssAuditor
-- method Settings::get_fantasy_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_fantasy_font_family" webkit_settings_get_fantasy_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CString
settingsGetFantasyFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m T.Text -- result
settingsGetFantasyFontFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_fantasy_font_family _obj'
checkUnexpectedReturnNULL "webkit_settings_get_fantasy_font_family" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data SettingsGetFantasyFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetFantasyFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetFantasyFontFamily
-- method Settings::get_javascript_can_access_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_javascript_can_access_clipboard" webkit_settings_get_javascript_can_access_clipboard ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetJavascriptCanAccessClipboard ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetJavascriptCanAccessClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_javascript_can_access_clipboard _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetJavascriptCanAccessClipboardMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetJavascriptCanAccessClipboardMethodInfo a signature where
overloadedMethod _ = settingsGetJavascriptCanAccessClipboard
-- method Settings::get_javascript_can_open_windows_automatically
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_javascript_can_open_windows_automatically" webkit_settings_get_javascript_can_open_windows_automatically ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetJavascriptCanOpenWindowsAutomatically ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetJavascriptCanOpenWindowsAutomatically _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_javascript_can_open_windows_automatically _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where
overloadedMethod _ = settingsGetJavascriptCanOpenWindowsAutomatically
-- method Settings::get_load_icons_ignoring_image_load_setting
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_load_icons_ignoring_image_load_setting" webkit_settings_get_load_icons_ignoring_image_load_setting ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetLoadIconsIgnoringImageLoadSetting ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetLoadIconsIgnoringImageLoadSetting _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_load_icons_ignoring_image_load_setting _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where
overloadedMethod _ = settingsGetLoadIconsIgnoringImageLoadSetting
-- method Settings::get_media_playback_allows_inline
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_media_playback_allows_inline" webkit_settings_get_media_playback_allows_inline ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetMediaPlaybackAllowsInline ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetMediaPlaybackAllowsInline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_media_playback_allows_inline _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetMediaPlaybackAllowsInlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetMediaPlaybackAllowsInlineMethodInfo a signature where
overloadedMethod _ = settingsGetMediaPlaybackAllowsInline
-- method Settings::get_media_playback_requires_user_gesture
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_media_playback_requires_user_gesture" webkit_settings_get_media_playback_requires_user_gesture ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetMediaPlaybackRequiresUserGesture ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetMediaPlaybackRequiresUserGesture _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_media_playback_requires_user_gesture _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetMediaPlaybackRequiresUserGestureMethodInfo a signature where
overloadedMethod _ = settingsGetMediaPlaybackRequiresUserGesture
-- method Settings::get_minimum_font_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_minimum_font_size" webkit_settings_get_minimum_font_size ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO Word32
settingsGetMinimumFontSize ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Word32 -- result
settingsGetMinimumFontSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_minimum_font_size _obj'
touchManagedPtr _obj
return result
data SettingsGetMinimumFontSizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetMinimumFontSizeMethodInfo a signature where
overloadedMethod _ = settingsGetMinimumFontSize
-- method Settings::get_monospace_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_monospace_font_family" webkit_settings_get_monospace_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CString
settingsGetMonospaceFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m T.Text -- result
settingsGetMonospaceFontFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_monospace_font_family _obj'
checkUnexpectedReturnNULL "webkit_settings_get_monospace_font_family" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data SettingsGetMonospaceFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetMonospaceFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetMonospaceFontFamily
-- method Settings::get_pictograph_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_pictograph_font_family" webkit_settings_get_pictograph_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CString
settingsGetPictographFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m T.Text -- result
settingsGetPictographFontFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_pictograph_font_family _obj'
checkUnexpectedReturnNULL "webkit_settings_get_pictograph_font_family" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data SettingsGetPictographFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetPictographFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetPictographFontFamily
-- method Settings::get_print_backgrounds
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_print_backgrounds" webkit_settings_get_print_backgrounds ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetPrintBackgrounds ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetPrintBackgrounds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_print_backgrounds _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetPrintBackgroundsMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetPrintBackgroundsMethodInfo a signature where
overloadedMethod _ = settingsGetPrintBackgrounds
-- method Settings::get_sans_serif_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_sans_serif_font_family" webkit_settings_get_sans_serif_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CString
settingsGetSansSerifFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m T.Text -- result
settingsGetSansSerifFontFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_sans_serif_font_family _obj'
checkUnexpectedReturnNULL "webkit_settings_get_sans_serif_font_family" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data SettingsGetSansSerifFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetSansSerifFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetSansSerifFontFamily
-- method Settings::get_serif_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_serif_font_family" webkit_settings_get_serif_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CString
settingsGetSerifFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m T.Text -- result
settingsGetSerifFontFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_serif_font_family _obj'
checkUnexpectedReturnNULL "webkit_settings_get_serif_font_family" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data SettingsGetSerifFontFamilyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetSerifFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsGetSerifFontFamily
-- method Settings::get_user_agent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_user_agent" webkit_settings_get_user_agent ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CString
settingsGetUserAgent ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m T.Text -- result
settingsGetUserAgent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_user_agent _obj'
checkUnexpectedReturnNULL "webkit_settings_get_user_agent" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data SettingsGetUserAgentMethodInfo
instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetUserAgentMethodInfo a signature where
overloadedMethod _ = settingsGetUserAgent
-- method Settings::get_zoom_text_only
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_get_zoom_text_only" webkit_settings_get_zoom_text_only ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
IO CInt
settingsGetZoomTextOnly ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> m Bool -- result
settingsGetZoomTextOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_settings_get_zoom_text_only _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SettingsGetZoomTextOnlyMethodInfo
instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetZoomTextOnlyMethodInfo a signature where
overloadedMethod _ = settingsGetZoomTextOnly
-- method Settings::set_allow_file_access_from_file_urls
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_allow_file_access_from_file_urls" webkit_settings_set_allow_file_access_from_file_urls ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- allowed : TBasicType TBoolean
IO ()
settingsSetAllowFileAccessFromFileUrls ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- allowed
-> m () -- result
settingsSetAllowFileAccessFromFileUrls _obj allowed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allowed' = (fromIntegral . fromEnum) allowed
webkit_settings_set_allow_file_access_from_file_urls _obj' allowed'
touchManagedPtr _obj
return ()
data SettingsSetAllowFileAccessFromFileUrlsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAllowFileAccessFromFileUrlsMethodInfo a signature where
overloadedMethod _ = settingsSetAllowFileAccessFromFileUrls
-- method Settings::set_allow_modal_dialogs
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_allow_modal_dialogs" webkit_settings_set_allow_modal_dialogs ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- allowed : TBasicType TBoolean
IO ()
settingsSetAllowModalDialogs ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- allowed
-> m () -- result
settingsSetAllowModalDialogs _obj allowed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allowed' = (fromIntegral . fromEnum) allowed
webkit_settings_set_allow_modal_dialogs _obj' allowed'
touchManagedPtr _obj
return ()
data SettingsSetAllowModalDialogsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAllowModalDialogsMethodInfo a signature where
overloadedMethod _ = settingsSetAllowModalDialogs
-- method Settings::set_auto_load_images
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_auto_load_images" webkit_settings_set_auto_load_images ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetAutoLoadImages ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetAutoLoadImages _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_auto_load_images _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetAutoLoadImagesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAutoLoadImagesMethodInfo a signature where
overloadedMethod _ = settingsSetAutoLoadImages
-- method Settings::set_cursive_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursive_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_cursive_font_family" webkit_settings_set_cursive_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- cursive_font_family : TBasicType TUTF8
IO ()
settingsSetCursiveFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> T.Text -- cursiveFontFamily
-> m () -- result
settingsSetCursiveFontFamily _obj cursiveFontFamily = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
cursiveFontFamily' <- textToCString cursiveFontFamily
webkit_settings_set_cursive_font_family _obj' cursiveFontFamily'
touchManagedPtr _obj
freeMem cursiveFontFamily'
return ()
data SettingsSetCursiveFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetCursiveFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetCursiveFontFamily
-- method Settings::set_default_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_default_charset" webkit_settings_set_default_charset ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- default_charset : TBasicType TUTF8
IO ()
settingsSetDefaultCharset ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> T.Text -- defaultCharset
-> m () -- result
settingsSetDefaultCharset _obj defaultCharset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
defaultCharset' <- textToCString defaultCharset
webkit_settings_set_default_charset _obj' defaultCharset'
touchManagedPtr _obj
freeMem defaultCharset'
return ()
data SettingsSetDefaultCharsetMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultCharsetMethodInfo a signature where
overloadedMethod _ = settingsSetDefaultCharset
-- method Settings::set_default_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_default_font_family" webkit_settings_set_default_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- default_font_family : TBasicType TUTF8
IO ()
settingsSetDefaultFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> T.Text -- defaultFontFamily
-> m () -- result
settingsSetDefaultFontFamily _obj defaultFontFamily = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
defaultFontFamily' <- textToCString defaultFontFamily
webkit_settings_set_default_font_family _obj' defaultFontFamily'
touchManagedPtr _obj
freeMem defaultFontFamily'
return ()
data SettingsSetDefaultFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetDefaultFontFamily
-- method Settings::set_default_font_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_default_font_size" webkit_settings_set_default_font_size ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
Word32 -> -- font_size : TBasicType TUInt32
IO ()
settingsSetDefaultFontSize ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Word32 -- fontSize
-> m () -- result
settingsSetDefaultFontSize _obj fontSize = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_settings_set_default_font_size _obj' fontSize
touchManagedPtr _obj
return ()
data SettingsSetDefaultFontSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultFontSizeMethodInfo a signature where
overloadedMethod _ = settingsSetDefaultFontSize
-- method Settings::set_default_monospace_font_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_default_monospace_font_size" webkit_settings_set_default_monospace_font_size ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
Word32 -> -- font_size : TBasicType TUInt32
IO ()
settingsSetDefaultMonospaceFontSize ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Word32 -- fontSize
-> m () -- result
settingsSetDefaultMonospaceFontSize _obj fontSize = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_settings_set_default_monospace_font_size _obj' fontSize
touchManagedPtr _obj
return ()
data SettingsSetDefaultMonospaceFontSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultMonospaceFontSizeMethodInfo a signature where
overloadedMethod _ = settingsSetDefaultMonospaceFontSize
-- method Settings::set_draw_compositing_indicators
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_draw_compositing_indicators" webkit_settings_set_draw_compositing_indicators ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetDrawCompositingIndicators ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetDrawCompositingIndicators _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_draw_compositing_indicators _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetDrawCompositingIndicatorsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDrawCompositingIndicatorsMethodInfo a signature where
overloadedMethod _ = settingsSetDrawCompositingIndicators
-- method Settings::set_enable_accelerated_2d_canvas
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_accelerated_2d_canvas" webkit_settings_set_enable_accelerated_2d_canvas ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableAccelerated2dCanvas ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableAccelerated2dCanvas _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_accelerated_2d_canvas _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableAccelerated2dCanvasMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableAccelerated2dCanvasMethodInfo a signature where
overloadedMethod _ = settingsSetEnableAccelerated2dCanvas
-- method Settings::set_enable_caret_browsing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_caret_browsing" webkit_settings_set_enable_caret_browsing ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableCaretBrowsing ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableCaretBrowsing _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_caret_browsing _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableCaretBrowsingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableCaretBrowsingMethodInfo a signature where
overloadedMethod _ = settingsSetEnableCaretBrowsing
-- method Settings::set_enable_developer_extras
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_developer_extras" webkit_settings_set_enable_developer_extras ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableDeveloperExtras ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableDeveloperExtras _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_developer_extras _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableDeveloperExtrasMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableDeveloperExtrasMethodInfo a signature where
overloadedMethod _ = settingsSetEnableDeveloperExtras
-- method Settings::set_enable_dns_prefetching
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_dns_prefetching" webkit_settings_set_enable_dns_prefetching ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableDnsPrefetching ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableDnsPrefetching _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_dns_prefetching _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableDnsPrefetchingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableDnsPrefetchingMethodInfo a signature where
overloadedMethod _ = settingsSetEnableDnsPrefetching
-- method Settings::set_enable_frame_flattening
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_frame_flattening" webkit_settings_set_enable_frame_flattening ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableFrameFlattening ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableFrameFlattening _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_frame_flattening _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableFrameFlatteningMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableFrameFlatteningMethodInfo a signature where
overloadedMethod _ = settingsSetEnableFrameFlattening
-- method Settings::set_enable_fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_fullscreen" webkit_settings_set_enable_fullscreen ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableFullscreen ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableFullscreen _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_fullscreen _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableFullscreenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableFullscreenMethodInfo a signature where
overloadedMethod _ = settingsSetEnableFullscreen
-- method Settings::set_enable_html5_database
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_html5_database" webkit_settings_set_enable_html5_database ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableHtml5Database ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableHtml5Database _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_html5_database _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableHtml5DatabaseMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHtml5DatabaseMethodInfo a signature where
overloadedMethod _ = settingsSetEnableHtml5Database
-- method Settings::set_enable_html5_local_storage
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_html5_local_storage" webkit_settings_set_enable_html5_local_storage ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableHtml5LocalStorage ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableHtml5LocalStorage _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_html5_local_storage _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableHtml5LocalStorageMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHtml5LocalStorageMethodInfo a signature where
overloadedMethod _ = settingsSetEnableHtml5LocalStorage
-- method Settings::set_enable_hyperlink_auditing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_hyperlink_auditing" webkit_settings_set_enable_hyperlink_auditing ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableHyperlinkAuditing ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableHyperlinkAuditing _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_hyperlink_auditing _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableHyperlinkAuditingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHyperlinkAuditingMethodInfo a signature where
overloadedMethod _ = settingsSetEnableHyperlinkAuditing
-- method Settings::set_enable_java
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_java" webkit_settings_set_enable_java ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableJava ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableJava _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_java _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableJavaMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableJavaMethodInfo a signature where
overloadedMethod _ = settingsSetEnableJava
-- method Settings::set_enable_javascript
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_javascript" webkit_settings_set_enable_javascript ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableJavascript ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableJavascript _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_javascript _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableJavascriptMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableJavascriptMethodInfo a signature where
overloadedMethod _ = settingsSetEnableJavascript
-- method Settings::set_enable_media_stream
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_media_stream" webkit_settings_set_enable_media_stream ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableMediaStream ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableMediaStream _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_media_stream _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableMediaStreamMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableMediaStreamMethodInfo a signature where
overloadedMethod _ = settingsSetEnableMediaStream
-- method Settings::set_enable_mediasource
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_mediasource" webkit_settings_set_enable_mediasource ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableMediasource ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableMediasource _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_mediasource _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableMediasourceMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableMediasourceMethodInfo a signature where
overloadedMethod _ = settingsSetEnableMediasource
-- method Settings::set_enable_offline_web_application_cache
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_offline_web_application_cache" webkit_settings_set_enable_offline_web_application_cache ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableOfflineWebApplicationCache ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableOfflineWebApplicationCache _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_offline_web_application_cache _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableOfflineWebApplicationCacheMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableOfflineWebApplicationCacheMethodInfo a signature where
overloadedMethod _ = settingsSetEnableOfflineWebApplicationCache
-- method Settings::set_enable_page_cache
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_page_cache" webkit_settings_set_enable_page_cache ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnablePageCache ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnablePageCache _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_page_cache _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnablePageCacheMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePageCacheMethodInfo a signature where
overloadedMethod _ = settingsSetEnablePageCache
-- method Settings::set_enable_plugins
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_plugins" webkit_settings_set_enable_plugins ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnablePlugins ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnablePlugins _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_plugins _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnablePluginsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePluginsMethodInfo a signature where
overloadedMethod _ = settingsSetEnablePlugins
-- method Settings::set_enable_private_browsing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_private_browsing" webkit_settings_set_enable_private_browsing ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnablePrivateBrowsing ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnablePrivateBrowsing _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_private_browsing _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnablePrivateBrowsingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePrivateBrowsingMethodInfo a signature where
overloadedMethod _ = settingsSetEnablePrivateBrowsing
-- method Settings::set_enable_resizable_text_areas
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_resizable_text_areas" webkit_settings_set_enable_resizable_text_areas ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableResizableTextAreas ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableResizableTextAreas _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_resizable_text_areas _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableResizableTextAreasMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableResizableTextAreasMethodInfo a signature where
overloadedMethod _ = settingsSetEnableResizableTextAreas
-- method Settings::set_enable_site_specific_quirks
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_site_specific_quirks" webkit_settings_set_enable_site_specific_quirks ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableSiteSpecificQuirks ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableSiteSpecificQuirks _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_site_specific_quirks _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableSiteSpecificQuirksMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSiteSpecificQuirksMethodInfo a signature where
overloadedMethod _ = settingsSetEnableSiteSpecificQuirks
-- method Settings::set_enable_smooth_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_smooth_scrolling" webkit_settings_set_enable_smooth_scrolling ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableSmoothScrolling ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableSmoothScrolling _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_smooth_scrolling _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableSmoothScrollingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSmoothScrollingMethodInfo a signature where
overloadedMethod _ = settingsSetEnableSmoothScrolling
-- method Settings::set_enable_spatial_navigation
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_spatial_navigation" webkit_settings_set_enable_spatial_navigation ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableSpatialNavigation ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableSpatialNavigation _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_spatial_navigation _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableSpatialNavigationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSpatialNavigationMethodInfo a signature where
overloadedMethod _ = settingsSetEnableSpatialNavigation
-- method Settings::set_enable_tabs_to_links
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_tabs_to_links" webkit_settings_set_enable_tabs_to_links ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableTabsToLinks ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableTabsToLinks _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_tabs_to_links _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableTabsToLinksMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableTabsToLinksMethodInfo a signature where
overloadedMethod _ = settingsSetEnableTabsToLinks
-- method Settings::set_enable_webaudio
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_webaudio" webkit_settings_set_enable_webaudio ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableWebaudio ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableWebaudio _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_webaudio _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableWebaudioMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWebaudioMethodInfo a signature where
overloadedMethod _ = settingsSetEnableWebaudio
-- method Settings::set_enable_webgl
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_webgl" webkit_settings_set_enable_webgl ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableWebgl ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableWebgl _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_webgl _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableWebglMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWebglMethodInfo a signature where
overloadedMethod _ = settingsSetEnableWebgl
-- method Settings::set_enable_write_console_messages_to_stdout
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_write_console_messages_to_stdout" webkit_settings_set_enable_write_console_messages_to_stdout ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableWriteConsoleMessagesToStdout ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableWriteConsoleMessagesToStdout _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_write_console_messages_to_stdout _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where
overloadedMethod _ = settingsSetEnableWriteConsoleMessagesToStdout
-- method Settings::set_enable_xss_auditor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_enable_xss_auditor" webkit_settings_set_enable_xss_auditor ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetEnableXssAuditor ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetEnableXssAuditor _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_enable_xss_auditor _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetEnableXssAuditorMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableXssAuditorMethodInfo a signature where
overloadedMethod _ = settingsSetEnableXssAuditor
-- method Settings::set_fantasy_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fantasy_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_fantasy_font_family" webkit_settings_set_fantasy_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- fantasy_font_family : TBasicType TUTF8
IO ()
settingsSetFantasyFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> T.Text -- fantasyFontFamily
-> m () -- result
settingsSetFantasyFontFamily _obj fantasyFontFamily = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
fantasyFontFamily' <- textToCString fantasyFontFamily
webkit_settings_set_fantasy_font_family _obj' fantasyFontFamily'
touchManagedPtr _obj
freeMem fantasyFontFamily'
return ()
data SettingsSetFantasyFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetFantasyFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetFantasyFontFamily
-- method Settings::set_javascript_can_access_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_javascript_can_access_clipboard" webkit_settings_set_javascript_can_access_clipboard ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetJavascriptCanAccessClipboard ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetJavascriptCanAccessClipboard _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_javascript_can_access_clipboard _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetJavascriptCanAccessClipboardMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetJavascriptCanAccessClipboardMethodInfo a signature where
overloadedMethod _ = settingsSetJavascriptCanAccessClipboard
-- method Settings::set_javascript_can_open_windows_automatically
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_javascript_can_open_windows_automatically" webkit_settings_set_javascript_can_open_windows_automatically ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetJavascriptCanOpenWindowsAutomatically ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetJavascriptCanOpenWindowsAutomatically _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_javascript_can_open_windows_automatically _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where
overloadedMethod _ = settingsSetJavascriptCanOpenWindowsAutomatically
-- method Settings::set_load_icons_ignoring_image_load_setting
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_load_icons_ignoring_image_load_setting" webkit_settings_set_load_icons_ignoring_image_load_setting ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetLoadIconsIgnoringImageLoadSetting ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetLoadIconsIgnoringImageLoadSetting _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_load_icons_ignoring_image_load_setting _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where
overloadedMethod _ = settingsSetLoadIconsIgnoringImageLoadSetting
-- method Settings::set_media_playback_allows_inline
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_media_playback_allows_inline" webkit_settings_set_media_playback_allows_inline ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetMediaPlaybackAllowsInline ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetMediaPlaybackAllowsInline _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_media_playback_allows_inline _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetMediaPlaybackAllowsInlineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMediaPlaybackAllowsInlineMethodInfo a signature where
overloadedMethod _ = settingsSetMediaPlaybackAllowsInline
-- method Settings::set_media_playback_requires_user_gesture
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_media_playback_requires_user_gesture" webkit_settings_set_media_playback_requires_user_gesture ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- enabled : TBasicType TBoolean
IO ()
settingsSetMediaPlaybackRequiresUserGesture ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- enabled
-> m () -- result
settingsSetMediaPlaybackRequiresUserGesture _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_settings_set_media_playback_requires_user_gesture _obj' enabled'
touchManagedPtr _obj
return ()
data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMediaPlaybackRequiresUserGestureMethodInfo a signature where
overloadedMethod _ = settingsSetMediaPlaybackRequiresUserGesture
-- method Settings::set_minimum_font_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_minimum_font_size" webkit_settings_set_minimum_font_size ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
Word32 -> -- font_size : TBasicType TUInt32
IO ()
settingsSetMinimumFontSize ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Word32 -- fontSize
-> m () -- result
settingsSetMinimumFontSize _obj fontSize = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_settings_set_minimum_font_size _obj' fontSize
touchManagedPtr _obj
return ()
data SettingsSetMinimumFontSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMinimumFontSizeMethodInfo a signature where
overloadedMethod _ = settingsSetMinimumFontSize
-- method Settings::set_monospace_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monospace_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_monospace_font_family" webkit_settings_set_monospace_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- monospace_font_family : TBasicType TUTF8
IO ()
settingsSetMonospaceFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> T.Text -- monospaceFontFamily
-> m () -- result
settingsSetMonospaceFontFamily _obj monospaceFontFamily = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
monospaceFontFamily' <- textToCString monospaceFontFamily
webkit_settings_set_monospace_font_family _obj' monospaceFontFamily'
touchManagedPtr _obj
freeMem monospaceFontFamily'
return ()
data SettingsSetMonospaceFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMonospaceFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetMonospaceFontFamily
-- method Settings::set_pictograph_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pictograph_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_pictograph_font_family" webkit_settings_set_pictograph_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- pictograph_font_family : TBasicType TUTF8
IO ()
settingsSetPictographFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> T.Text -- pictographFontFamily
-> m () -- result
settingsSetPictographFontFamily _obj pictographFontFamily = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
pictographFontFamily' <- textToCString pictographFontFamily
webkit_settings_set_pictograph_font_family _obj' pictographFontFamily'
touchManagedPtr _obj
freeMem pictographFontFamily'
return ()
data SettingsSetPictographFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPictographFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetPictographFontFamily
-- method Settings::set_print_backgrounds
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_backgrounds", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_print_backgrounds" webkit_settings_set_print_backgrounds ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- print_backgrounds : TBasicType TBoolean
IO ()
settingsSetPrintBackgrounds ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- printBackgrounds
-> m () -- result
settingsSetPrintBackgrounds _obj printBackgrounds = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let printBackgrounds' = (fromIntegral . fromEnum) printBackgrounds
webkit_settings_set_print_backgrounds _obj' printBackgrounds'
touchManagedPtr _obj
return ()
data SettingsSetPrintBackgroundsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPrintBackgroundsMethodInfo a signature where
overloadedMethod _ = settingsSetPrintBackgrounds
-- method Settings::set_sans_serif_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sans_serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_sans_serif_font_family" webkit_settings_set_sans_serif_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- sans_serif_font_family : TBasicType TUTF8
IO ()
settingsSetSansSerifFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> T.Text -- sansSerifFontFamily
-> m () -- result
settingsSetSansSerifFontFamily _obj sansSerifFontFamily = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
sansSerifFontFamily' <- textToCString sansSerifFontFamily
webkit_settings_set_sans_serif_font_family _obj' sansSerifFontFamily'
touchManagedPtr _obj
freeMem sansSerifFontFamily'
return ()
data SettingsSetSansSerifFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetSansSerifFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetSansSerifFontFamily
-- method Settings::set_serif_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_serif_font_family" webkit_settings_set_serif_font_family ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- serif_font_family : TBasicType TUTF8
IO ()
settingsSetSerifFontFamily ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> T.Text -- serifFontFamily
-> m () -- result
settingsSetSerifFontFamily _obj serifFontFamily = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
serifFontFamily' <- textToCString serifFontFamily
webkit_settings_set_serif_font_family _obj' serifFontFamily'
touchManagedPtr _obj
freeMem serifFontFamily'
return ()
data SettingsSetSerifFontFamilyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetSerifFontFamilyMethodInfo a signature where
overloadedMethod _ = settingsSetSerifFontFamily
-- method Settings::set_user_agent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_agent", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_user_agent" webkit_settings_set_user_agent ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- user_agent : TBasicType TUTF8
IO ()
settingsSetUserAgent ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Maybe (T.Text) -- userAgent
-> m () -- result
settingsSetUserAgent _obj userAgent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeUserAgent <- case userAgent of
Nothing -> return nullPtr
Just jUserAgent -> do
jUserAgent' <- textToCString jUserAgent
return jUserAgent'
webkit_settings_set_user_agent _obj' maybeUserAgent
touchManagedPtr _obj
freeMem maybeUserAgent
return ()
data SettingsSetUserAgentMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetUserAgentMethodInfo a signature where
overloadedMethod _ = settingsSetUserAgent
-- method Settings::set_user_agent_with_application_details
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_user_agent_with_application_details" webkit_settings_set_user_agent_with_application_details ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CString -> -- application_name : TBasicType TUTF8
CString -> -- application_version : TBasicType TUTF8
IO ()
settingsSetUserAgentWithApplicationDetails ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Maybe (T.Text) -- applicationName
-> Maybe (T.Text) -- applicationVersion
-> m () -- result
settingsSetUserAgentWithApplicationDetails _obj applicationName applicationVersion = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
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 _obj' maybeApplicationName maybeApplicationVersion
touchManagedPtr _obj
freeMem maybeApplicationName
freeMem maybeApplicationVersion
return ()
data SettingsSetUserAgentWithApplicationDetailsMethodInfo
instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetUserAgentWithApplicationDetailsMethodInfo a signature where
overloadedMethod _ = settingsSetUserAgentWithApplicationDetails
-- method Settings::set_zoom_text_only
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_text_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_settings_set_zoom_text_only" webkit_settings_set_zoom_text_only ::
Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings"
CInt -> -- zoom_text_only : TBasicType TBoolean
IO ()
settingsSetZoomTextOnly ::
(MonadIO m, SettingsK a) =>
a -- _obj
-> Bool -- zoomTextOnly
-> m () -- result
settingsSetZoomTextOnly _obj zoomTextOnly = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let zoomTextOnly' = (fromIntegral . fromEnum) zoomTextOnly
webkit_settings_set_zoom_text_only _obj' zoomTextOnly'
touchManagedPtr _obj
return ()
data SettingsSetZoomTextOnlyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetZoomTextOnlyMethodInfo a signature where
overloadedMethod _ = settingsSetZoomTextOnly