#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.BackForwardList
(
BackForwardList(..) ,
IsBackForwardList ,
toBackForwardList ,
noBackForwardList ,
#if ENABLE_OVERLOADING
BackForwardListGetBackItemMethodInfo ,
#endif
backForwardListGetBackItem ,
#if ENABLE_OVERLOADING
BackForwardListGetBackListMethodInfo ,
#endif
backForwardListGetBackList ,
#if ENABLE_OVERLOADING
BackForwardListGetBackListWithLimitMethodInfo,
#endif
backForwardListGetBackListWithLimit ,
#if ENABLE_OVERLOADING
BackForwardListGetCurrentItemMethodInfo ,
#endif
backForwardListGetCurrentItem ,
#if ENABLE_OVERLOADING
BackForwardListGetForwardItemMethodInfo ,
#endif
backForwardListGetForwardItem ,
#if ENABLE_OVERLOADING
BackForwardListGetForwardListMethodInfo ,
#endif
backForwardListGetForwardList ,
#if ENABLE_OVERLOADING
BackForwardListGetForwardListWithLimitMethodInfo,
#endif
backForwardListGetForwardListWithLimit ,
#if ENABLE_OVERLOADING
BackForwardListGetLengthMethodInfo ,
#endif
backForwardListGetLength ,
#if ENABLE_OVERLOADING
BackForwardListGetNthItemMethodInfo ,
#endif
backForwardListGetNthItem ,
BackForwardListChangedCallback ,
#if ENABLE_OVERLOADING
BackForwardListChangedSignalInfo ,
#endif
C_BackForwardListChangedCallback ,
afterBackForwardListChanged ,
genClosure_BackForwardListChanged ,
mk_BackForwardListChangedCallback ,
noBackForwardListChangedCallback ,
onBackForwardListChanged ,
wrap_BackForwardListChangedCallback ,
) 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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
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 GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2.Objects.BackForwardListItem as WebKit2.BackForwardListItem
newtype BackForwardList = BackForwardList (ManagedPtr BackForwardList)
foreign import ccall "webkit_back_forward_list_get_type"
c_webkit_back_forward_list_get_type :: IO GType
instance GObject BackForwardList where
gobjectType = c_webkit_back_forward_list_get_type
class (GObject o, O.IsDescendantOf BackForwardList o) => IsBackForwardList o
instance (GObject o, O.IsDescendantOf BackForwardList o) => IsBackForwardList o
instance O.HasParentTypes BackForwardList
type instance O.ParentTypes BackForwardList = '[GObject.Object.Object]
toBackForwardList :: (MonadIO m, IsBackForwardList o) => o -> m BackForwardList
toBackForwardList = liftIO . unsafeCastTo BackForwardList
noBackForwardList :: Maybe BackForwardList
noBackForwardList = Nothing
#if ENABLE_OVERLOADING
type family ResolveBackForwardListMethod (t :: Symbol) (o :: *) :: * where
ResolveBackForwardListMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBackForwardListMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBackForwardListMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBackForwardListMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBackForwardListMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBackForwardListMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBackForwardListMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBackForwardListMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBackForwardListMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveBackForwardListMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBackForwardListMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBackForwardListMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBackForwardListMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBackForwardListMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBackForwardListMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveBackForwardListMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBackForwardListMethod "getBackItem" o = BackForwardListGetBackItemMethodInfo
ResolveBackForwardListMethod "getBackList" o = BackForwardListGetBackListMethodInfo
ResolveBackForwardListMethod "getBackListWithLimit" o = BackForwardListGetBackListWithLimitMethodInfo
ResolveBackForwardListMethod "getCurrentItem" o = BackForwardListGetCurrentItemMethodInfo
ResolveBackForwardListMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBackForwardListMethod "getForwardItem" o = BackForwardListGetForwardItemMethodInfo
ResolveBackForwardListMethod "getForwardList" o = BackForwardListGetForwardListMethodInfo
ResolveBackForwardListMethod "getForwardListWithLimit" o = BackForwardListGetForwardListWithLimitMethodInfo
ResolveBackForwardListMethod "getLength" o = BackForwardListGetLengthMethodInfo
ResolveBackForwardListMethod "getNthItem" o = BackForwardListGetNthItemMethodInfo
ResolveBackForwardListMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBackForwardListMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBackForwardListMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBackForwardListMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBackForwardListMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBackForwardListMethod t BackForwardList, O.MethodInfo info BackForwardList p) => OL.IsLabel t (BackForwardList -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type BackForwardListChangedCallback =
Maybe WebKit2.BackForwardListItem.BackForwardListItem
-> Ptr ()
-> IO ()
noBackForwardListChangedCallback :: Maybe BackForwardListChangedCallback
noBackForwardListChangedCallback = Nothing
type C_BackForwardListChangedCallback =
Ptr () ->
Ptr WebKit2.BackForwardListItem.BackForwardListItem ->
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_BackForwardListChangedCallback :: C_BackForwardListChangedCallback -> IO (FunPtr C_BackForwardListChangedCallback)
genClosure_BackForwardListChanged :: MonadIO m => BackForwardListChangedCallback -> m (GClosure C_BackForwardListChangedCallback)
genClosure_BackForwardListChanged cb = liftIO $ do
let cb' = wrap_BackForwardListChangedCallback cb
mk_BackForwardListChangedCallback cb' >>= B.GClosure.newGClosure
wrap_BackForwardListChangedCallback ::
BackForwardListChangedCallback ->
C_BackForwardListChangedCallback
wrap_BackForwardListChangedCallback _cb _ itemAdded itemsRemoved _ = do
maybeItemAdded <-
if itemAdded == nullPtr
then return Nothing
else do
itemAdded' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) itemAdded
return $ Just itemAdded'
_cb maybeItemAdded itemsRemoved
onBackForwardListChanged :: (IsBackForwardList a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId
onBackForwardListChanged obj cb = liftIO $ do
let cb' = wrap_BackForwardListChangedCallback cb
cb'' <- mk_BackForwardListChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' SignalConnectBefore
afterBackForwardListChanged :: (IsBackForwardList a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId
afterBackForwardListChanged obj cb = liftIO $ do
let cb' = wrap_BackForwardListChangedCallback cb
cb'' <- mk_BackForwardListChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' SignalConnectAfter
#if ENABLE_OVERLOADING
instance O.HasAttributeList BackForwardList
type instance O.AttributeList BackForwardList = BackForwardListAttributeList
type BackForwardListAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
data BackForwardListChangedSignalInfo
instance SignalInfo BackForwardListChangedSignalInfo where
type HaskellCallbackType BackForwardListChangedSignalInfo = BackForwardListChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_BackForwardListChangedCallback cb
cb'' <- mk_BackForwardListChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode
type instance O.SignalList BackForwardList = BackForwardListSignalList
type BackForwardListSignalList = ('[ '("changed", BackForwardListChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_back_forward_list_get_back_item" webkit_back_forward_list_get_back_item ::
Ptr BackForwardList ->
IO (Ptr WebKit2.BackForwardListItem.BackForwardListItem)
backForwardListGetBackItem ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>
a
-> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)
backForwardListGetBackItem backForwardList = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_back_item backForwardList'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'
return result''
touchManagedPtr backForwardList
return maybeResult
#if ENABLE_OVERLOADING
data BackForwardListGetBackItemMethodInfo
instance (signature ~ (m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetBackItemMethodInfo a signature where
overloadedMethod _ = backForwardListGetBackItem
#endif
foreign import ccall "webkit_back_forward_list_get_back_list" webkit_back_forward_list_get_back_list ::
Ptr BackForwardList ->
IO (Ptr (GList (Ptr WebKit2.BackForwardListItem.BackForwardListItem)))
backForwardListGetBackList ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>
a
-> m [WebKit2.BackForwardListItem.BackForwardListItem]
backForwardListGetBackList backForwardList = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_back_list backForwardList'
result' <- unpackGList result
result'' <- mapM (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'
g_list_free result
touchManagedPtr backForwardList
return result''
#if ENABLE_OVERLOADING
data BackForwardListGetBackListMethodInfo
instance (signature ~ (m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetBackListMethodInfo a signature where
overloadedMethod _ = backForwardListGetBackList
#endif
foreign import ccall "webkit_back_forward_list_get_back_list_with_limit" webkit_back_forward_list_get_back_list_with_limit ::
Ptr BackForwardList ->
Word32 ->
IO (Ptr (GList (Ptr WebKit2.BackForwardListItem.BackForwardListItem)))
backForwardListGetBackListWithLimit ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>
a
-> Word32
-> m [WebKit2.BackForwardListItem.BackForwardListItem]
backForwardListGetBackListWithLimit backForwardList limit = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_back_list_with_limit backForwardList' limit
result' <- unpackGList result
result'' <- mapM (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'
g_list_free result
touchManagedPtr backForwardList
return result''
#if ENABLE_OVERLOADING
data BackForwardListGetBackListWithLimitMethodInfo
instance (signature ~ (Word32 -> m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetBackListWithLimitMethodInfo a signature where
overloadedMethod _ = backForwardListGetBackListWithLimit
#endif
foreign import ccall "webkit_back_forward_list_get_current_item" webkit_back_forward_list_get_current_item ::
Ptr BackForwardList ->
IO (Ptr WebKit2.BackForwardListItem.BackForwardListItem)
backForwardListGetCurrentItem ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>
a
-> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)
backForwardListGetCurrentItem backForwardList = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_current_item backForwardList'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'
return result''
touchManagedPtr backForwardList
return maybeResult
#if ENABLE_OVERLOADING
data BackForwardListGetCurrentItemMethodInfo
instance (signature ~ (m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetCurrentItemMethodInfo a signature where
overloadedMethod _ = backForwardListGetCurrentItem
#endif
foreign import ccall "webkit_back_forward_list_get_forward_item" webkit_back_forward_list_get_forward_item ::
Ptr BackForwardList ->
IO (Ptr WebKit2.BackForwardListItem.BackForwardListItem)
backForwardListGetForwardItem ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>
a
-> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)
backForwardListGetForwardItem backForwardList = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_forward_item backForwardList'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'
return result''
touchManagedPtr backForwardList
return maybeResult
#if ENABLE_OVERLOADING
data BackForwardListGetForwardItemMethodInfo
instance (signature ~ (m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetForwardItemMethodInfo a signature where
overloadedMethod _ = backForwardListGetForwardItem
#endif
foreign import ccall "webkit_back_forward_list_get_forward_list" webkit_back_forward_list_get_forward_list ::
Ptr BackForwardList ->
IO (Ptr (GList (Ptr WebKit2.BackForwardListItem.BackForwardListItem)))
backForwardListGetForwardList ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>
a
-> m [WebKit2.BackForwardListItem.BackForwardListItem]
backForwardListGetForwardList backForwardList = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_forward_list backForwardList'
result' <- unpackGList result
result'' <- mapM (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'
g_list_free result
touchManagedPtr backForwardList
return result''
#if ENABLE_OVERLOADING
data BackForwardListGetForwardListMethodInfo
instance (signature ~ (m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetForwardListMethodInfo a signature where
overloadedMethod _ = backForwardListGetForwardList
#endif
foreign import ccall "webkit_back_forward_list_get_forward_list_with_limit" webkit_back_forward_list_get_forward_list_with_limit ::
Ptr BackForwardList ->
Word32 ->
IO (Ptr (GList (Ptr WebKit2.BackForwardListItem.BackForwardListItem)))
backForwardListGetForwardListWithLimit ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>
a
-> Word32
-> m [WebKit2.BackForwardListItem.BackForwardListItem]
backForwardListGetForwardListWithLimit backForwardList limit = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_forward_list_with_limit backForwardList' limit
result' <- unpackGList result
result'' <- mapM (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'
g_list_free result
touchManagedPtr backForwardList
return result''
#if ENABLE_OVERLOADING
data BackForwardListGetForwardListWithLimitMethodInfo
instance (signature ~ (Word32 -> m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetForwardListWithLimitMethodInfo a signature where
overloadedMethod _ = backForwardListGetForwardListWithLimit
#endif
foreign import ccall "webkit_back_forward_list_get_length" webkit_back_forward_list_get_length ::
Ptr BackForwardList ->
IO Word32
backForwardListGetLength ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>
a
-> m Word32
backForwardListGetLength backForwardList = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_length backForwardList'
touchManagedPtr backForwardList
return result
#if ENABLE_OVERLOADING
data BackForwardListGetLengthMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetLengthMethodInfo a signature where
overloadedMethod _ = backForwardListGetLength
#endif
foreign import ccall "webkit_back_forward_list_get_nth_item" webkit_back_forward_list_get_nth_item ::
Ptr BackForwardList ->
Int32 ->
IO (Ptr WebKit2.BackForwardListItem.BackForwardListItem)
backForwardListGetNthItem ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>
a
-> Int32
-> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)
backForwardListGetNthItem backForwardList index = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_nth_item backForwardList' index
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'
return result''
touchManagedPtr backForwardList
return maybeResult
#if ENABLE_OVERLOADING
data BackForwardListGetNthItemMethodInfo
instance (signature ~ (Int32 -> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetNthItemMethodInfo a signature where
overloadedMethod _ = backForwardListGetNthItem
#endif