module GI.WebKit.Objects.DOMNavigator
(
DOMNavigator(..) ,
IsDOMNavigator ,
toDOMNavigator ,
noDOMNavigator ,
DOMNavigatorGetAppCodeNameMethodInfo ,
dOMNavigatorGetAppCodeName ,
DOMNavigatorGetAppNameMethodInfo ,
dOMNavigatorGetAppName ,
DOMNavigatorGetAppVersionMethodInfo ,
dOMNavigatorGetAppVersion ,
DOMNavigatorGetCookieEnabledMethodInfo ,
dOMNavigatorGetCookieEnabled ,
DOMNavigatorGetGeolocationMethodInfo ,
dOMNavigatorGetGeolocation ,
DOMNavigatorGetLanguageMethodInfo ,
dOMNavigatorGetLanguage ,
DOMNavigatorGetMimeTypesMethodInfo ,
dOMNavigatorGetMimeTypes ,
DOMNavigatorGetOnLineMethodInfo ,
dOMNavigatorGetOnLine ,
DOMNavigatorGetPlatformMethodInfo ,
dOMNavigatorGetPlatform ,
DOMNavigatorGetPluginsMethodInfo ,
dOMNavigatorGetPlugins ,
DOMNavigatorGetProductMethodInfo ,
dOMNavigatorGetProduct ,
DOMNavigatorGetProductSubMethodInfo ,
dOMNavigatorGetProductSub ,
DOMNavigatorGetStorageUpdatesMethodInfo ,
dOMNavigatorGetStorageUpdates ,
DOMNavigatorGetUserAgentMethodInfo ,
dOMNavigatorGetUserAgent ,
DOMNavigatorGetVendorMethodInfo ,
dOMNavigatorGetVendor ,
DOMNavigatorGetVendorSubMethodInfo ,
dOMNavigatorGetVendorSub ,
DOMNavigatorGetWebkitBatteryMethodInfo ,
dOMNavigatorGetWebkitBattery ,
DOMNavigatorGetWebkitPersistentStorageMethodInfo,
dOMNavigatorGetWebkitPersistentStorage ,
DOMNavigatorGetWebkitTemporaryStorageMethodInfo,
dOMNavigatorGetWebkitTemporaryStorage ,
DOMNavigatorIsProtocolHandlerRegisteredMethodInfo,
dOMNavigatorIsProtocolHandlerRegistered ,
DOMNavigatorJavaEnabledMethodInfo ,
dOMNavigatorJavaEnabled ,
DOMNavigatorRegisterProtocolHandlerMethodInfo,
dOMNavigatorRegisterProtocolHandler ,
DOMNavigatorUnregisterProtocolHandlerMethodInfo,
dOMNavigatorUnregisterProtocolHandler ,
DOMNavigatorWebkitGetGamepadsMethodInfo ,
dOMNavigatorWebkitGetGamepads ,
DOMNavigatorAppCodeNamePropertyInfo ,
dOMNavigatorAppCodeName ,
getDOMNavigatorAppCodeName ,
DOMNavigatorAppNamePropertyInfo ,
dOMNavigatorAppName ,
getDOMNavigatorAppName ,
DOMNavigatorAppVersionPropertyInfo ,
dOMNavigatorAppVersion ,
getDOMNavigatorAppVersion ,
DOMNavigatorCookieEnabledPropertyInfo ,
dOMNavigatorCookieEnabled ,
getDOMNavigatorCookieEnabled ,
DOMNavigatorGeolocationPropertyInfo ,
dOMNavigatorGeolocation ,
getDOMNavigatorGeolocation ,
DOMNavigatorLanguagePropertyInfo ,
dOMNavigatorLanguage ,
getDOMNavigatorLanguage ,
DOMNavigatorMimeTypesPropertyInfo ,
dOMNavigatorMimeTypes ,
getDOMNavigatorMimeTypes ,
DOMNavigatorOnLinePropertyInfo ,
dOMNavigatorOnLine ,
getDOMNavigatorOnLine ,
DOMNavigatorPlatformPropertyInfo ,
dOMNavigatorPlatform ,
getDOMNavigatorPlatform ,
DOMNavigatorPluginsPropertyInfo ,
dOMNavigatorPlugins ,
getDOMNavigatorPlugins ,
DOMNavigatorProductPropertyInfo ,
dOMNavigatorProduct ,
getDOMNavigatorProduct ,
DOMNavigatorProductSubPropertyInfo ,
dOMNavigatorProductSub ,
getDOMNavigatorProductSub ,
DOMNavigatorUserAgentPropertyInfo ,
dOMNavigatorUserAgent ,
getDOMNavigatorUserAgent ,
DOMNavigatorVendorPropertyInfo ,
dOMNavigatorVendor ,
getDOMNavigatorVendor ,
DOMNavigatorVendorSubPropertyInfo ,
dOMNavigatorVendorSub ,
getDOMNavigatorVendorSub ,
DOMNavigatorWebkitBatteryPropertyInfo ,
dOMNavigatorWebkitBattery ,
getDOMNavigatorWebkitBattery ,
DOMNavigatorWebkitPersistentStoragePropertyInfo,
dOMNavigatorWebkitPersistentStorage ,
getDOMNavigatorWebkitPersistentStorage ,
DOMNavigatorWebkitTemporaryStoragePropertyInfo,
dOMNavigatorWebkitTemporaryStorage ,
getDOMNavigatorWebkitTemporaryStorage ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.WebKit.Objects.DOMBatteryManager as WebKit.DOMBatteryManager
import qualified GI.WebKit.Objects.DOMDOMMimeTypeArray as WebKit.DOMDOMMimeTypeArray
import qualified GI.WebKit.Objects.DOMDOMPluginArray as WebKit.DOMDOMPluginArray
import qualified GI.WebKit.Objects.DOMGamepadList as WebKit.DOMGamepadList
import qualified GI.WebKit.Objects.DOMGeolocation as WebKit.DOMGeolocation
import qualified GI.WebKit.Objects.DOMObject as WebKit.DOMObject
import qualified GI.WebKit.Objects.DOMStorageQuota as WebKit.DOMStorageQuota
newtype DOMNavigator = DOMNavigator (ManagedPtr DOMNavigator)
foreign import ccall "webkit_dom_navigator_get_type"
c_webkit_dom_navigator_get_type :: IO GType
instance GObject DOMNavigator where
gobjectType _ = c_webkit_dom_navigator_get_type
class GObject o => IsDOMNavigator o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMNavigator a) =>
IsDOMNavigator a
#endif
instance IsDOMNavigator DOMNavigator
instance WebKit.DOMObject.IsDOMObject DOMNavigator
instance GObject.Object.IsObject DOMNavigator
toDOMNavigator :: IsDOMNavigator o => o -> IO DOMNavigator
toDOMNavigator = unsafeCastTo DOMNavigator
noDOMNavigator :: Maybe DOMNavigator
noDOMNavigator = Nothing
type family ResolveDOMNavigatorMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMNavigatorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMNavigatorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMNavigatorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMNavigatorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMNavigatorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMNavigatorMethod "isProtocolHandlerRegistered" o = DOMNavigatorIsProtocolHandlerRegisteredMethodInfo
ResolveDOMNavigatorMethod "javaEnabled" o = DOMNavigatorJavaEnabledMethodInfo
ResolveDOMNavigatorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMNavigatorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMNavigatorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMNavigatorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMNavigatorMethod "registerProtocolHandler" o = DOMNavigatorRegisterProtocolHandlerMethodInfo
ResolveDOMNavigatorMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMNavigatorMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDOMNavigatorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMNavigatorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMNavigatorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMNavigatorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMNavigatorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMNavigatorMethod "unregisterProtocolHandler" o = DOMNavigatorUnregisterProtocolHandlerMethodInfo
ResolveDOMNavigatorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMNavigatorMethod "webkitGetGamepads" o = DOMNavigatorWebkitGetGamepadsMethodInfo
ResolveDOMNavigatorMethod "getAppCodeName" o = DOMNavigatorGetAppCodeNameMethodInfo
ResolveDOMNavigatorMethod "getAppName" o = DOMNavigatorGetAppNameMethodInfo
ResolveDOMNavigatorMethod "getAppVersion" o = DOMNavigatorGetAppVersionMethodInfo
ResolveDOMNavigatorMethod "getCookieEnabled" o = DOMNavigatorGetCookieEnabledMethodInfo
ResolveDOMNavigatorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMNavigatorMethod "getGeolocation" o = DOMNavigatorGetGeolocationMethodInfo
ResolveDOMNavigatorMethod "getLanguage" o = DOMNavigatorGetLanguageMethodInfo
ResolveDOMNavigatorMethod "getMimeTypes" o = DOMNavigatorGetMimeTypesMethodInfo
ResolveDOMNavigatorMethod "getOnLine" o = DOMNavigatorGetOnLineMethodInfo
ResolveDOMNavigatorMethod "getPlatform" o = DOMNavigatorGetPlatformMethodInfo
ResolveDOMNavigatorMethod "getPlugins" o = DOMNavigatorGetPluginsMethodInfo
ResolveDOMNavigatorMethod "getProduct" o = DOMNavigatorGetProductMethodInfo
ResolveDOMNavigatorMethod "getProductSub" o = DOMNavigatorGetProductSubMethodInfo
ResolveDOMNavigatorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMNavigatorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMNavigatorMethod "getStorageUpdates" o = DOMNavigatorGetStorageUpdatesMethodInfo
ResolveDOMNavigatorMethod "getUserAgent" o = DOMNavigatorGetUserAgentMethodInfo
ResolveDOMNavigatorMethod "getVendor" o = DOMNavigatorGetVendorMethodInfo
ResolveDOMNavigatorMethod "getVendorSub" o = DOMNavigatorGetVendorSubMethodInfo
ResolveDOMNavigatorMethod "getWebkitBattery" o = DOMNavigatorGetWebkitBatteryMethodInfo
ResolveDOMNavigatorMethod "getWebkitPersistentStorage" o = DOMNavigatorGetWebkitPersistentStorageMethodInfo
ResolveDOMNavigatorMethod "getWebkitTemporaryStorage" o = DOMNavigatorGetWebkitTemporaryStorageMethodInfo
ResolveDOMNavigatorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMNavigatorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMNavigatorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMNavigatorMethod t DOMNavigator, O.MethodInfo info DOMNavigator p) => O.IsLabelProxy t (DOMNavigator -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMNavigatorMethod t DOMNavigator, O.MethodInfo info DOMNavigator p) => O.IsLabel t (DOMNavigator -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getDOMNavigatorAppCodeName :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorAppCodeName obj = liftIO $ getObjectPropertyString obj "app-code-name"
data DOMNavigatorAppCodeNamePropertyInfo
instance AttrInfo DOMNavigatorAppCodeNamePropertyInfo where
type AttrAllowedOps DOMNavigatorAppCodeNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorAppCodeNamePropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorAppCodeNamePropertyInfo = "app-code-name"
type AttrOrigin DOMNavigatorAppCodeNamePropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorAppCodeName
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorAppName :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorAppName obj = liftIO $ getObjectPropertyString obj "app-name"
data DOMNavigatorAppNamePropertyInfo
instance AttrInfo DOMNavigatorAppNamePropertyInfo where
type AttrAllowedOps DOMNavigatorAppNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorAppNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorAppNamePropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorAppNamePropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorAppNamePropertyInfo = "app-name"
type AttrOrigin DOMNavigatorAppNamePropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorAppName
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorAppVersion :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorAppVersion obj = liftIO $ getObjectPropertyString obj "app-version"
data DOMNavigatorAppVersionPropertyInfo
instance AttrInfo DOMNavigatorAppVersionPropertyInfo where
type AttrAllowedOps DOMNavigatorAppVersionPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorAppVersionPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorAppVersionPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorAppVersionPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorAppVersionPropertyInfo = "app-version"
type AttrOrigin DOMNavigatorAppVersionPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorAppVersion
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorCookieEnabled :: (MonadIO m, IsDOMNavigator o) => o -> m Bool
getDOMNavigatorCookieEnabled obj = liftIO $ getObjectPropertyBool obj "cookie-enabled"
data DOMNavigatorCookieEnabledPropertyInfo
instance AttrInfo DOMNavigatorCookieEnabledPropertyInfo where
type AttrAllowedOps DOMNavigatorCookieEnabledPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNavigatorCookieEnabledPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorCookieEnabledPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorCookieEnabledPropertyInfo = Bool
type AttrLabel DOMNavigatorCookieEnabledPropertyInfo = "cookie-enabled"
type AttrOrigin DOMNavigatorCookieEnabledPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorCookieEnabled
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorGeolocation :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe WebKit.DOMGeolocation.DOMGeolocation)
getDOMNavigatorGeolocation obj = liftIO $ getObjectPropertyObject obj "geolocation" WebKit.DOMGeolocation.DOMGeolocation
data DOMNavigatorGeolocationPropertyInfo
instance AttrInfo DOMNavigatorGeolocationPropertyInfo where
type AttrAllowedOps DOMNavigatorGeolocationPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorGeolocationPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorGeolocationPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorGeolocationPropertyInfo = (Maybe WebKit.DOMGeolocation.DOMGeolocation)
type AttrLabel DOMNavigatorGeolocationPropertyInfo = "geolocation"
type AttrOrigin DOMNavigatorGeolocationPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorGeolocation
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorLanguage :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorLanguage obj = liftIO $ getObjectPropertyString obj "language"
data DOMNavigatorLanguagePropertyInfo
instance AttrInfo DOMNavigatorLanguagePropertyInfo where
type AttrAllowedOps DOMNavigatorLanguagePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorLanguagePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorLanguagePropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorLanguagePropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorLanguagePropertyInfo = "language"
type AttrOrigin DOMNavigatorLanguagePropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorLanguage
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorMimeTypes :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe WebKit.DOMDOMMimeTypeArray.DOMDOMMimeTypeArray)
getDOMNavigatorMimeTypes obj = liftIO $ getObjectPropertyObject obj "mime-types" WebKit.DOMDOMMimeTypeArray.DOMDOMMimeTypeArray
data DOMNavigatorMimeTypesPropertyInfo
instance AttrInfo DOMNavigatorMimeTypesPropertyInfo where
type AttrAllowedOps DOMNavigatorMimeTypesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorMimeTypesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorMimeTypesPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorMimeTypesPropertyInfo = (Maybe WebKit.DOMDOMMimeTypeArray.DOMDOMMimeTypeArray)
type AttrLabel DOMNavigatorMimeTypesPropertyInfo = "mime-types"
type AttrOrigin DOMNavigatorMimeTypesPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorMimeTypes
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorOnLine :: (MonadIO m, IsDOMNavigator o) => o -> m Bool
getDOMNavigatorOnLine obj = liftIO $ getObjectPropertyBool obj "on-line"
data DOMNavigatorOnLinePropertyInfo
instance AttrInfo DOMNavigatorOnLinePropertyInfo where
type AttrAllowedOps DOMNavigatorOnLinePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNavigatorOnLinePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorOnLinePropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorOnLinePropertyInfo = Bool
type AttrLabel DOMNavigatorOnLinePropertyInfo = "on-line"
type AttrOrigin DOMNavigatorOnLinePropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorOnLine
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorPlatform :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorPlatform obj = liftIO $ getObjectPropertyString obj "platform"
data DOMNavigatorPlatformPropertyInfo
instance AttrInfo DOMNavigatorPlatformPropertyInfo where
type AttrAllowedOps DOMNavigatorPlatformPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorPlatformPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorPlatformPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorPlatformPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorPlatformPropertyInfo = "platform"
type AttrOrigin DOMNavigatorPlatformPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorPlatform
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorPlugins :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe WebKit.DOMDOMPluginArray.DOMDOMPluginArray)
getDOMNavigatorPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" WebKit.DOMDOMPluginArray.DOMDOMPluginArray
data DOMNavigatorPluginsPropertyInfo
instance AttrInfo DOMNavigatorPluginsPropertyInfo where
type AttrAllowedOps DOMNavigatorPluginsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorPluginsPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorPluginsPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorPluginsPropertyInfo = (Maybe WebKit.DOMDOMPluginArray.DOMDOMPluginArray)
type AttrLabel DOMNavigatorPluginsPropertyInfo = "plugins"
type AttrOrigin DOMNavigatorPluginsPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorPlugins
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorProduct :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorProduct obj = liftIO $ getObjectPropertyString obj "product"
data DOMNavigatorProductPropertyInfo
instance AttrInfo DOMNavigatorProductPropertyInfo where
type AttrAllowedOps DOMNavigatorProductPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorProductPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorProductPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorProductPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorProductPropertyInfo = "product"
type AttrOrigin DOMNavigatorProductPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorProduct
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorProductSub :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorProductSub obj = liftIO $ getObjectPropertyString obj "product-sub"
data DOMNavigatorProductSubPropertyInfo
instance AttrInfo DOMNavigatorProductSubPropertyInfo where
type AttrAllowedOps DOMNavigatorProductSubPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorProductSubPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorProductSubPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorProductSubPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorProductSubPropertyInfo = "product-sub"
type AttrOrigin DOMNavigatorProductSubPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorProductSub
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorUserAgent :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent"
data DOMNavigatorUserAgentPropertyInfo
instance AttrInfo DOMNavigatorUserAgentPropertyInfo where
type AttrAllowedOps DOMNavigatorUserAgentPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorUserAgentPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorUserAgentPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorUserAgentPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorUserAgentPropertyInfo = "user-agent"
type AttrOrigin DOMNavigatorUserAgentPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorUserAgent
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorVendor :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorVendor obj = liftIO $ getObjectPropertyString obj "vendor"
data DOMNavigatorVendorPropertyInfo
instance AttrInfo DOMNavigatorVendorPropertyInfo where
type AttrAllowedOps DOMNavigatorVendorPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorVendorPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorVendorPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorVendorPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorVendorPropertyInfo = "vendor"
type AttrOrigin DOMNavigatorVendorPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorVendor
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorVendorSub :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe T.Text)
getDOMNavigatorVendorSub obj = liftIO $ getObjectPropertyString obj "vendor-sub"
data DOMNavigatorVendorSubPropertyInfo
instance AttrInfo DOMNavigatorVendorSubPropertyInfo where
type AttrAllowedOps DOMNavigatorVendorSubPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorVendorSubPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorVendorSubPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorVendorSubPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNavigatorVendorSubPropertyInfo = "vendor-sub"
type AttrOrigin DOMNavigatorVendorSubPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorVendorSub
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorWebkitBattery :: (MonadIO m, IsDOMNavigator o) => o -> m (Maybe WebKit.DOMBatteryManager.DOMBatteryManager)
getDOMNavigatorWebkitBattery obj = liftIO $ getObjectPropertyObject obj "webkit-battery" WebKit.DOMBatteryManager.DOMBatteryManager
data DOMNavigatorWebkitBatteryPropertyInfo
instance AttrInfo DOMNavigatorWebkitBatteryPropertyInfo where
type AttrAllowedOps DOMNavigatorWebkitBatteryPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorWebkitBatteryPropertyInfo = (Maybe WebKit.DOMBatteryManager.DOMBatteryManager)
type AttrLabel DOMNavigatorWebkitBatteryPropertyInfo = "webkit-battery"
type AttrOrigin DOMNavigatorWebkitBatteryPropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorWebkitBattery
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorWebkitPersistentStorage :: (MonadIO m, IsDOMNavigator o) => o -> m WebKit.DOMStorageQuota.DOMStorageQuota
getDOMNavigatorWebkitPersistentStorage obj = liftIO $ checkUnexpectedNothing "getDOMNavigatorWebkitPersistentStorage" $ getObjectPropertyObject obj "webkit-persistent-storage" WebKit.DOMStorageQuota.DOMStorageQuota
data DOMNavigatorWebkitPersistentStoragePropertyInfo
instance AttrInfo DOMNavigatorWebkitPersistentStoragePropertyInfo where
type AttrAllowedOps DOMNavigatorWebkitPersistentStoragePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorWebkitPersistentStoragePropertyInfo = WebKit.DOMStorageQuota.DOMStorageQuota
type AttrLabel DOMNavigatorWebkitPersistentStoragePropertyInfo = "webkit-persistent-storage"
type AttrOrigin DOMNavigatorWebkitPersistentStoragePropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorWebkitPersistentStorage
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNavigatorWebkitTemporaryStorage :: (MonadIO m, IsDOMNavigator o) => o -> m WebKit.DOMStorageQuota.DOMStorageQuota
getDOMNavigatorWebkitTemporaryStorage obj = liftIO $ checkUnexpectedNothing "getDOMNavigatorWebkitTemporaryStorage" $ getObjectPropertyObject obj "webkit-temporary-storage" WebKit.DOMStorageQuota.DOMStorageQuota
data DOMNavigatorWebkitTemporaryStoragePropertyInfo
instance AttrInfo DOMNavigatorWebkitTemporaryStoragePropertyInfo where
type AttrAllowedOps DOMNavigatorWebkitTemporaryStoragePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = IsDOMNavigator
type AttrGetType DOMNavigatorWebkitTemporaryStoragePropertyInfo = WebKit.DOMStorageQuota.DOMStorageQuota
type AttrLabel DOMNavigatorWebkitTemporaryStoragePropertyInfo = "webkit-temporary-storage"
type AttrOrigin DOMNavigatorWebkitTemporaryStoragePropertyInfo = DOMNavigator
attrGet _ = getDOMNavigatorWebkitTemporaryStorage
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
instance O.HasAttributeList DOMNavigator
type instance O.AttributeList DOMNavigator = DOMNavigatorAttributeList
type DOMNavigatorAttributeList = ('[ '("appCodeName", DOMNavigatorAppCodeNamePropertyInfo), '("appName", DOMNavigatorAppNamePropertyInfo), '("appVersion", DOMNavigatorAppVersionPropertyInfo), '("cookieEnabled", DOMNavigatorCookieEnabledPropertyInfo), '("coreObject", WebKit.DOMObject.DOMObjectCoreObjectPropertyInfo), '("geolocation", DOMNavigatorGeolocationPropertyInfo), '("language", DOMNavigatorLanguagePropertyInfo), '("mimeTypes", DOMNavigatorMimeTypesPropertyInfo), '("onLine", DOMNavigatorOnLinePropertyInfo), '("platform", DOMNavigatorPlatformPropertyInfo), '("plugins", DOMNavigatorPluginsPropertyInfo), '("product", DOMNavigatorProductPropertyInfo), '("productSub", DOMNavigatorProductSubPropertyInfo), '("userAgent", DOMNavigatorUserAgentPropertyInfo), '("vendor", DOMNavigatorVendorPropertyInfo), '("vendorSub", DOMNavigatorVendorSubPropertyInfo), '("webkitBattery", DOMNavigatorWebkitBatteryPropertyInfo), '("webkitPersistentStorage", DOMNavigatorWebkitPersistentStoragePropertyInfo), '("webkitTemporaryStorage", DOMNavigatorWebkitTemporaryStoragePropertyInfo)] :: [(Symbol, *)])
dOMNavigatorAppCodeName :: AttrLabelProxy "appCodeName"
dOMNavigatorAppCodeName = AttrLabelProxy
dOMNavigatorAppName :: AttrLabelProxy "appName"
dOMNavigatorAppName = AttrLabelProxy
dOMNavigatorAppVersion :: AttrLabelProxy "appVersion"
dOMNavigatorAppVersion = AttrLabelProxy
dOMNavigatorCookieEnabled :: AttrLabelProxy "cookieEnabled"
dOMNavigatorCookieEnabled = AttrLabelProxy
dOMNavigatorGeolocation :: AttrLabelProxy "geolocation"
dOMNavigatorGeolocation = AttrLabelProxy
dOMNavigatorLanguage :: AttrLabelProxy "language"
dOMNavigatorLanguage = AttrLabelProxy
dOMNavigatorMimeTypes :: AttrLabelProxy "mimeTypes"
dOMNavigatorMimeTypes = AttrLabelProxy
dOMNavigatorOnLine :: AttrLabelProxy "onLine"
dOMNavigatorOnLine = AttrLabelProxy
dOMNavigatorPlatform :: AttrLabelProxy "platform"
dOMNavigatorPlatform = AttrLabelProxy
dOMNavigatorPlugins :: AttrLabelProxy "plugins"
dOMNavigatorPlugins = AttrLabelProxy
dOMNavigatorProduct :: AttrLabelProxy "product"
dOMNavigatorProduct = AttrLabelProxy
dOMNavigatorProductSub :: AttrLabelProxy "productSub"
dOMNavigatorProductSub = AttrLabelProxy
dOMNavigatorUserAgent :: AttrLabelProxy "userAgent"
dOMNavigatorUserAgent = AttrLabelProxy
dOMNavigatorVendor :: AttrLabelProxy "vendor"
dOMNavigatorVendor = AttrLabelProxy
dOMNavigatorVendorSub :: AttrLabelProxy "vendorSub"
dOMNavigatorVendorSub = AttrLabelProxy
dOMNavigatorWebkitBattery :: AttrLabelProxy "webkitBattery"
dOMNavigatorWebkitBattery = AttrLabelProxy
dOMNavigatorWebkitPersistentStorage :: AttrLabelProxy "webkitPersistentStorage"
dOMNavigatorWebkitPersistentStorage = AttrLabelProxy
dOMNavigatorWebkitTemporaryStorage :: AttrLabelProxy "webkitTemporaryStorage"
dOMNavigatorWebkitTemporaryStorage = AttrLabelProxy
type instance O.SignalList DOMNavigator = DOMNavigatorSignalList
type DOMNavigatorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_navigator_get_app_code_name" webkit_dom_navigator_get_app_code_name ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetAppCodeName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetAppCodeName self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_app_code_name self'
checkUnexpectedReturnNULL "dOMNavigatorGetAppCodeName" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetAppCodeNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetAppCodeNameMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetAppCodeName
foreign import ccall "webkit_dom_navigator_get_app_name" webkit_dom_navigator_get_app_name ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetAppName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetAppName self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_app_name self'
checkUnexpectedReturnNULL "dOMNavigatorGetAppName" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetAppNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetAppNameMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetAppName
foreign import ccall "webkit_dom_navigator_get_app_version" webkit_dom_navigator_get_app_version ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetAppVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetAppVersion self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_app_version self'
checkUnexpectedReturnNULL "dOMNavigatorGetAppVersion" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetAppVersionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetAppVersionMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetAppVersion
foreign import ccall "webkit_dom_navigator_get_cookie_enabled" webkit_dom_navigator_get_cookie_enabled ::
Ptr DOMNavigator ->
IO CInt
dOMNavigatorGetCookieEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m Bool
dOMNavigatorGetCookieEnabled self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_cookie_enabled self'
let result' = (/= 0) result
touchManagedPtr self
return result'
data DOMNavigatorGetCookieEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetCookieEnabledMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetCookieEnabled
foreign import ccall "webkit_dom_navigator_get_geolocation" webkit_dom_navigator_get_geolocation ::
Ptr DOMNavigator ->
IO (Ptr WebKit.DOMGeolocation.DOMGeolocation)
dOMNavigatorGetGeolocation ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m WebKit.DOMGeolocation.DOMGeolocation
dOMNavigatorGetGeolocation self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_geolocation self'
checkUnexpectedReturnNULL "dOMNavigatorGetGeolocation" result
result' <- (wrapObject WebKit.DOMGeolocation.DOMGeolocation) result
touchManagedPtr self
return result'
data DOMNavigatorGetGeolocationMethodInfo
instance (signature ~ (m WebKit.DOMGeolocation.DOMGeolocation), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetGeolocationMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetGeolocation
foreign import ccall "webkit_dom_navigator_get_language" webkit_dom_navigator_get_language ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetLanguage ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetLanguage self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_language self'
checkUnexpectedReturnNULL "dOMNavigatorGetLanguage" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetLanguageMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetLanguageMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetLanguage
foreign import ccall "webkit_dom_navigator_get_mime_types" webkit_dom_navigator_get_mime_types ::
Ptr DOMNavigator ->
IO (Ptr WebKit.DOMDOMMimeTypeArray.DOMDOMMimeTypeArray)
dOMNavigatorGetMimeTypes ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m WebKit.DOMDOMMimeTypeArray.DOMDOMMimeTypeArray
dOMNavigatorGetMimeTypes self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_mime_types self'
checkUnexpectedReturnNULL "dOMNavigatorGetMimeTypes" result
result' <- (wrapObject WebKit.DOMDOMMimeTypeArray.DOMDOMMimeTypeArray) result
touchManagedPtr self
return result'
data DOMNavigatorGetMimeTypesMethodInfo
instance (signature ~ (m WebKit.DOMDOMMimeTypeArray.DOMDOMMimeTypeArray), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetMimeTypesMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetMimeTypes
foreign import ccall "webkit_dom_navigator_get_on_line" webkit_dom_navigator_get_on_line ::
Ptr DOMNavigator ->
IO CInt
dOMNavigatorGetOnLine ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m Bool
dOMNavigatorGetOnLine self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_on_line self'
let result' = (/= 0) result
touchManagedPtr self
return result'
data DOMNavigatorGetOnLineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetOnLineMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetOnLine
foreign import ccall "webkit_dom_navigator_get_platform" webkit_dom_navigator_get_platform ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetPlatform ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetPlatform self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_platform self'
checkUnexpectedReturnNULL "dOMNavigatorGetPlatform" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetPlatformMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetPlatformMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetPlatform
foreign import ccall "webkit_dom_navigator_get_plugins" webkit_dom_navigator_get_plugins ::
Ptr DOMNavigator ->
IO (Ptr WebKit.DOMDOMPluginArray.DOMDOMPluginArray)
dOMNavigatorGetPlugins ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m WebKit.DOMDOMPluginArray.DOMDOMPluginArray
dOMNavigatorGetPlugins self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_plugins self'
checkUnexpectedReturnNULL "dOMNavigatorGetPlugins" result
result' <- (wrapObject WebKit.DOMDOMPluginArray.DOMDOMPluginArray) result
touchManagedPtr self
return result'
data DOMNavigatorGetPluginsMethodInfo
instance (signature ~ (m WebKit.DOMDOMPluginArray.DOMDOMPluginArray), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetPluginsMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetPlugins
foreign import ccall "webkit_dom_navigator_get_product" webkit_dom_navigator_get_product ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetProduct ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetProduct self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_product self'
checkUnexpectedReturnNULL "dOMNavigatorGetProduct" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetProductMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetProductMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetProduct
foreign import ccall "webkit_dom_navigator_get_product_sub" webkit_dom_navigator_get_product_sub ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetProductSub ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetProductSub self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_product_sub self'
checkUnexpectedReturnNULL "dOMNavigatorGetProductSub" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetProductSubMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetProductSubMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetProductSub
foreign import ccall "webkit_dom_navigator_get_storage_updates" webkit_dom_navigator_get_storage_updates ::
Ptr DOMNavigator ->
IO ()
dOMNavigatorGetStorageUpdates ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m ()
dOMNavigatorGetStorageUpdates self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_navigator_get_storage_updates self'
touchManagedPtr self
return ()
data DOMNavigatorGetStorageUpdatesMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetStorageUpdatesMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetStorageUpdates
foreign import ccall "webkit_dom_navigator_get_user_agent" webkit_dom_navigator_get_user_agent ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetUserAgent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetUserAgent self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_user_agent self'
checkUnexpectedReturnNULL "dOMNavigatorGetUserAgent" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetUserAgentMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetUserAgentMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetUserAgent
foreign import ccall "webkit_dom_navigator_get_vendor" webkit_dom_navigator_get_vendor ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetVendor ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetVendor self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_vendor self'
checkUnexpectedReturnNULL "dOMNavigatorGetVendor" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetVendorMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetVendorMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetVendor
foreign import ccall "webkit_dom_navigator_get_vendor_sub" webkit_dom_navigator_get_vendor_sub ::
Ptr DOMNavigator ->
IO CString
dOMNavigatorGetVendorSub ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m T.Text
dOMNavigatorGetVendorSub self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_vendor_sub self'
checkUnexpectedReturnNULL "dOMNavigatorGetVendorSub" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNavigatorGetVendorSubMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetVendorSubMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetVendorSub
foreign import ccall "webkit_dom_navigator_get_webkit_battery" webkit_dom_navigator_get_webkit_battery ::
Ptr DOMNavigator ->
IO (Ptr WebKit.DOMBatteryManager.DOMBatteryManager)
dOMNavigatorGetWebkitBattery ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m WebKit.DOMBatteryManager.DOMBatteryManager
dOMNavigatorGetWebkitBattery self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_webkit_battery self'
checkUnexpectedReturnNULL "dOMNavigatorGetWebkitBattery" result
result' <- (wrapObject WebKit.DOMBatteryManager.DOMBatteryManager) result
touchManagedPtr self
return result'
data DOMNavigatorGetWebkitBatteryMethodInfo
instance (signature ~ (m WebKit.DOMBatteryManager.DOMBatteryManager), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetWebkitBatteryMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetWebkitBattery
foreign import ccall "webkit_dom_navigator_get_webkit_persistent_storage" webkit_dom_navigator_get_webkit_persistent_storage ::
Ptr DOMNavigator ->
IO (Ptr WebKit.DOMStorageQuota.DOMStorageQuota)
dOMNavigatorGetWebkitPersistentStorage ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m WebKit.DOMStorageQuota.DOMStorageQuota
dOMNavigatorGetWebkitPersistentStorage self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_webkit_persistent_storage self'
checkUnexpectedReturnNULL "dOMNavigatorGetWebkitPersistentStorage" result
result' <- (newObject WebKit.DOMStorageQuota.DOMStorageQuota) result
touchManagedPtr self
return result'
data DOMNavigatorGetWebkitPersistentStorageMethodInfo
instance (signature ~ (m WebKit.DOMStorageQuota.DOMStorageQuota), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetWebkitPersistentStorageMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetWebkitPersistentStorage
foreign import ccall "webkit_dom_navigator_get_webkit_temporary_storage" webkit_dom_navigator_get_webkit_temporary_storage ::
Ptr DOMNavigator ->
IO (Ptr WebKit.DOMStorageQuota.DOMStorageQuota)
dOMNavigatorGetWebkitTemporaryStorage ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m WebKit.DOMStorageQuota.DOMStorageQuota
dOMNavigatorGetWebkitTemporaryStorage self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_get_webkit_temporary_storage self'
checkUnexpectedReturnNULL "dOMNavigatorGetWebkitTemporaryStorage" result
result' <- (newObject WebKit.DOMStorageQuota.DOMStorageQuota) result
touchManagedPtr self
return result'
data DOMNavigatorGetWebkitTemporaryStorageMethodInfo
instance (signature ~ (m WebKit.DOMStorageQuota.DOMStorageQuota), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorGetWebkitTemporaryStorageMethodInfo a signature where
overloadedMethod _ = dOMNavigatorGetWebkitTemporaryStorage
foreign import ccall "webkit_dom_navigator_is_protocol_handler_registered" webkit_dom_navigator_is_protocol_handler_registered ::
Ptr DOMNavigator ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO CString
dOMNavigatorIsProtocolHandlerRegistered ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> T.Text
-> T.Text
-> m T.Text
dOMNavigatorIsProtocolHandlerRegistered self scheme url = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
scheme' <- textToCString scheme
url' <- textToCString url
onException (do
result <- propagateGError $ webkit_dom_navigator_is_protocol_handler_registered self' scheme' url'
checkUnexpectedReturnNULL "dOMNavigatorIsProtocolHandlerRegistered" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
freeMem scheme'
freeMem url'
return result'
) (do
freeMem scheme'
freeMem url'
)
data DOMNavigatorIsProtocolHandlerRegisteredMethodInfo
instance (signature ~ (T.Text -> T.Text -> m T.Text), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorIsProtocolHandlerRegisteredMethodInfo a signature where
overloadedMethod _ = dOMNavigatorIsProtocolHandlerRegistered
foreign import ccall "webkit_dom_navigator_java_enabled" webkit_dom_navigator_java_enabled ::
Ptr DOMNavigator ->
IO CInt
dOMNavigatorJavaEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m Bool
dOMNavigatorJavaEnabled self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_java_enabled self'
let result' = (/= 0) result
touchManagedPtr self
return result'
data DOMNavigatorJavaEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorJavaEnabledMethodInfo a signature where
overloadedMethod _ = dOMNavigatorJavaEnabled
foreign import ccall "webkit_dom_navigator_register_protocol_handler" webkit_dom_navigator_register_protocol_handler ::
Ptr DOMNavigator ->
CString ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMNavigatorRegisterProtocolHandler ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> T.Text
-> T.Text
-> T.Text
-> m ()
dOMNavigatorRegisterProtocolHandler self scheme url title = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
scheme' <- textToCString scheme
url' <- textToCString url
title' <- textToCString title
onException (do
propagateGError $ webkit_dom_navigator_register_protocol_handler self' scheme' url' title'
touchManagedPtr self
freeMem scheme'
freeMem url'
freeMem title'
return ()
) (do
freeMem scheme'
freeMem url'
freeMem title'
)
data DOMNavigatorRegisterProtocolHandlerMethodInfo
instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorRegisterProtocolHandlerMethodInfo a signature where
overloadedMethod _ = dOMNavigatorRegisterProtocolHandler
foreign import ccall "webkit_dom_navigator_unregister_protocol_handler" webkit_dom_navigator_unregister_protocol_handler ::
Ptr DOMNavigator ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMNavigatorUnregisterProtocolHandler ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> T.Text
-> T.Text
-> m ()
dOMNavigatorUnregisterProtocolHandler self scheme url = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
scheme' <- textToCString scheme
url' <- textToCString url
onException (do
propagateGError $ webkit_dom_navigator_unregister_protocol_handler self' scheme' url'
touchManagedPtr self
freeMem scheme'
freeMem url'
return ()
) (do
freeMem scheme'
freeMem url'
)
data DOMNavigatorUnregisterProtocolHandlerMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorUnregisterProtocolHandlerMethodInfo a signature where
overloadedMethod _ = dOMNavigatorUnregisterProtocolHandler
foreign import ccall "webkit_dom_navigator_webkit_get_gamepads" webkit_dom_navigator_webkit_get_gamepads ::
Ptr DOMNavigator ->
IO (Ptr WebKit.DOMGamepadList.DOMGamepadList)
dOMNavigatorWebkitGetGamepads ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNavigator a) =>
a
-> m WebKit.DOMGamepadList.DOMGamepadList
dOMNavigatorWebkitGetGamepads self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_navigator_webkit_get_gamepads self'
checkUnexpectedReturnNULL "dOMNavigatorWebkitGetGamepads" result
result' <- (wrapObject WebKit.DOMGamepadList.DOMGamepadList) result
touchManagedPtr self
return result'
data DOMNavigatorWebkitGetGamepadsMethodInfo
instance (signature ~ (m WebKit.DOMGamepadList.DOMGamepadList), MonadIO m, IsDOMNavigator a) => O.MethodInfo DOMNavigatorWebkitGetGamepadsMethodInfo a signature where
overloadedMethod _ = dOMNavigatorWebkitGetGamepads