module GI.WebKit.Objects.DOMDOMApplicationCache
(
DOMDOMApplicationCache(..) ,
DOMDOMApplicationCacheK ,
toDOMDOMApplicationCache ,
noDOMDOMApplicationCache ,
dOMDOMApplicationCacheAbort ,
dOMDOMApplicationCacheDispatchEvent ,
dOMDOMApplicationCacheGetStatus ,
dOMDOMApplicationCacheSwapCache ,
dOMDOMApplicationCacheUpdate ,
DOMDOMApplicationCacheStatusPropertyInfo,
getDOMDOMApplicationCacheStatus ,
) 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.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMDOMApplicationCache = DOMDOMApplicationCache (ForeignPtr DOMDOMApplicationCache)
foreign import ccall "webkit_dom_dom_application_cache_get_type"
c_webkit_dom_dom_application_cache_get_type :: IO GType
type instance ParentTypes DOMDOMApplicationCache = DOMDOMApplicationCacheParentTypes
type DOMDOMApplicationCacheParentTypes = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMDOMApplicationCache where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_application_cache_get_type
class GObject o => DOMDOMApplicationCacheK o
instance (GObject o, IsDescendantOf DOMDOMApplicationCache o) => DOMDOMApplicationCacheK o
toDOMDOMApplicationCache :: DOMDOMApplicationCacheK o => o -> IO DOMDOMApplicationCache
toDOMDOMApplicationCache = unsafeCastTo DOMDOMApplicationCache
noDOMDOMApplicationCache :: Maybe DOMDOMApplicationCache
noDOMDOMApplicationCache = Nothing
getDOMDOMApplicationCacheStatus :: (MonadIO m, DOMDOMApplicationCacheK o) => o -> m Word32
getDOMDOMApplicationCacheStatus obj = liftIO $ getObjectPropertyCUInt obj "status"
data DOMDOMApplicationCacheStatusPropertyInfo
instance AttrInfo DOMDOMApplicationCacheStatusPropertyInfo where
type AttrAllowedOps DOMDOMApplicationCacheStatusPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMApplicationCacheStatusPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMApplicationCacheStatusPropertyInfo = DOMDOMApplicationCacheK
type AttrGetType DOMDOMApplicationCacheStatusPropertyInfo = Word32
type AttrLabel DOMDOMApplicationCacheStatusPropertyInfo = "DOMDOMApplicationCache::status"
attrGet _ = getDOMDOMApplicationCacheStatus
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMDOMApplicationCache = DOMDOMApplicationCacheAttributeList
type DOMDOMApplicationCacheAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("status", DOMDOMApplicationCacheStatusPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMDOMApplicationCache = DOMDOMApplicationCacheSignalList
type DOMDOMApplicationCacheSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_dom_application_cache_abort" webkit_dom_dom_application_cache_abort ::
Ptr DOMDOMApplicationCache ->
IO ()
dOMDOMApplicationCacheAbort ::
(MonadIO m, DOMDOMApplicationCacheK a) =>
a ->
m ()
dOMDOMApplicationCacheAbort _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_application_cache_abort _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_application_cache_dispatch_event" webkit_dom_dom_application_cache_dispatch_event ::
Ptr DOMDOMApplicationCache ->
Ptr DOMEvent ->
Ptr (Ptr GError) ->
IO CInt
dOMDOMApplicationCacheDispatchEvent ::
(MonadIO m, DOMDOMApplicationCacheK a, DOMEventK b) =>
a ->
b ->
m ()
dOMDOMApplicationCacheDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_dom_application_cache_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_dom_application_cache_get_status" webkit_dom_dom_application_cache_get_status ::
Ptr DOMDOMApplicationCache ->
IO Word16
dOMDOMApplicationCacheGetStatus ::
(MonadIO m, DOMDOMApplicationCacheK a) =>
a ->
m Word16
dOMDOMApplicationCacheGetStatus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_application_cache_get_status _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_application_cache_swap_cache" webkit_dom_dom_application_cache_swap_cache ::
Ptr DOMDOMApplicationCache ->
Ptr (Ptr GError) ->
IO ()
dOMDOMApplicationCacheSwapCache ::
(MonadIO m, DOMDOMApplicationCacheK a) =>
a ->
m ()
dOMDOMApplicationCacheSwapCache _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_dom_application_cache_swap_cache _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_dom_application_cache_update" webkit_dom_dom_application_cache_update ::
Ptr DOMDOMApplicationCache ->
Ptr (Ptr GError) ->
IO ()
dOMDOMApplicationCacheUpdate ::
(MonadIO m, DOMDOMApplicationCacheK a) =>
a ->
m ()
dOMDOMApplicationCacheUpdate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_dom_application_cache_update _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)