module GI.WebKit.Objects.DOMHistory
(
DOMHistory(..) ,
DOMHistoryK ,
toDOMHistory ,
noDOMHistory ,
dOMHistoryBack ,
dOMHistoryForward ,
dOMHistoryGetLength ,
dOMHistoryGo ,
DOMHistoryLengthPropertyInfo ,
getDOMHistoryLength ,
) 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 DOMHistory = DOMHistory (ForeignPtr DOMHistory)
foreign import ccall "webkit_dom_history_get_type"
c_webkit_dom_history_get_type :: IO GType
type instance ParentTypes DOMHistory = DOMHistoryParentTypes
type DOMHistoryParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMHistory where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_history_get_type
class GObject o => DOMHistoryK o
instance (GObject o, IsDescendantOf DOMHistory o) => DOMHistoryK o
toDOMHistory :: DOMHistoryK o => o -> IO DOMHistory
toDOMHistory = unsafeCastTo DOMHistory
noDOMHistory :: Maybe DOMHistory
noDOMHistory = Nothing
getDOMHistoryLength :: (MonadIO m, DOMHistoryK o) => o -> m Word64
getDOMHistoryLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMHistoryLengthPropertyInfo
instance AttrInfo DOMHistoryLengthPropertyInfo where
type AttrAllowedOps DOMHistoryLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHistoryLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHistoryLengthPropertyInfo = DOMHistoryK
type AttrGetType DOMHistoryLengthPropertyInfo = Word64
type AttrLabel DOMHistoryLengthPropertyInfo = "DOMHistory::length"
attrGet _ = getDOMHistoryLength
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMHistory = DOMHistoryAttributeList
type DOMHistoryAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHistoryLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMHistory = DOMHistorySignalList
type DOMHistorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_history_back" webkit_dom_history_back ::
Ptr DOMHistory ->
IO ()
dOMHistoryBack ::
(MonadIO m, DOMHistoryK a) =>
a ->
m ()
dOMHistoryBack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_history_back _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_history_forward" webkit_dom_history_forward ::
Ptr DOMHistory ->
IO ()
dOMHistoryForward ::
(MonadIO m, DOMHistoryK a) =>
a ->
m ()
dOMHistoryForward _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_history_forward _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_history_get_length" webkit_dom_history_get_length ::
Ptr DOMHistory ->
IO Word64
dOMHistoryGetLength ::
(MonadIO m, DOMHistoryK a) =>
a ->
m Word64
dOMHistoryGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_history_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_history_go" webkit_dom_history_go ::
Ptr DOMHistory ->
Int64 ->
IO ()
dOMHistoryGo ::
(MonadIO m, DOMHistoryK a) =>
a ->
Int64 ->
m ()
dOMHistoryGo _obj distance = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_history_go _obj' distance
touchManagedPtr _obj
return ()