module GI.WebKit2.Objects.BackForwardList
(
BackForwardList(..) ,
IsBackForwardList ,
toBackForwardList ,
noBackForwardList ,
BackForwardListGetBackItemMethodInfo ,
backForwardListGetBackItem ,
BackForwardListGetBackListMethodInfo ,
backForwardListGetBackList ,
BackForwardListGetBackListWithLimitMethodInfo,
backForwardListGetBackListWithLimit ,
BackForwardListGetCurrentItemMethodInfo ,
backForwardListGetCurrentItem ,
BackForwardListGetForwardItemMethodInfo ,
backForwardListGetForwardItem ,
BackForwardListGetForwardListMethodInfo ,
backForwardListGetForwardList ,
BackForwardListGetForwardListWithLimitMethodInfo,
backForwardListGetForwardListWithLimit ,
BackForwardListGetLengthMethodInfo ,
backForwardListGetLength ,
BackForwardListGetNthItemMethodInfo ,
backForwardListGetNthItem ,
BackForwardListChangedCallback ,
BackForwardListChangedSignalInfo ,
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.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.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 => IsBackForwardList o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError BackForwardList a) =>
IsBackForwardList a
#endif
instance IsBackForwardList BackForwardList
instance GObject.Object.IsObject BackForwardList
toBackForwardList :: IsBackForwardList o => o -> IO BackForwardList
toBackForwardList = unsafeCastTo BackForwardList
noBackForwardList :: Maybe BackForwardList
noBackForwardList = Nothing
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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveBackForwardListMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
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) => O.IsLabelProxy t (BackForwardList -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveBackForwardListMethod t BackForwardList, O.MethodInfo info BackForwardList p) => O.IsLabel t (BackForwardList -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#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 :: BackForwardListChangedCallback -> IO Closure
genClosure_BackForwardListChanged cb = do
let cb' = wrap_BackForwardListChangedCallback cb
mk_BackForwardListChangedCallback cb' >>= newCClosure
wrap_BackForwardListChangedCallback ::
BackForwardListChangedCallback ->
Ptr () ->
Ptr WebKit2.BackForwardListItem.BackForwardListItem ->
Ptr () ->
Ptr () ->
IO ()
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 :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId
onBackForwardListChanged obj cb = liftIO $ connectBackForwardListChanged obj cb SignalConnectBefore
afterBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId
afterBackForwardListChanged obj cb = connectBackForwardListChanged obj cb SignalConnectAfter
connectBackForwardListChanged :: (GObject a, MonadIO m) =>
a -> BackForwardListChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectBackForwardListChanged obj cb after = liftIO $ do
let cb' = wrap_BackForwardListChangedCallback cb
cb'' <- mk_BackForwardListChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' after
instance O.HasAttributeList BackForwardList
type instance O.AttributeList BackForwardList = BackForwardListAttributeList
type BackForwardListAttributeList = ('[ ] :: [(Symbol, *)])
data BackForwardListChangedSignalInfo
instance SignalInfo BackForwardListChangedSignalInfo where
type HaskellCallbackType BackForwardListChangedSignalInfo = BackForwardListChangedCallback
connectSignal _ = connectBackForwardListChanged
type instance O.SignalList BackForwardList = BackForwardListSignalList
type BackForwardListSignalList = ('[ '("changed", BackForwardListChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
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 WebKit2.BackForwardListItem.BackForwardListItem
backForwardListGetBackItem backForwardList = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_back_item backForwardList'
checkUnexpectedReturnNULL "backForwardListGetBackItem" result
result' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result
touchManagedPtr backForwardList
return result'
data BackForwardListGetBackItemMethodInfo
instance (signature ~ (m WebKit2.BackForwardListItem.BackForwardListItem), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetBackItemMethodInfo a signature where
overloadedMethod _ = backForwardListGetBackItem
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''
data BackForwardListGetBackListMethodInfo
instance (signature ~ (m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetBackListMethodInfo a signature where
overloadedMethod _ = backForwardListGetBackList
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''
data BackForwardListGetBackListWithLimitMethodInfo
instance (signature ~ (Word32 -> m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetBackListWithLimitMethodInfo a signature where
overloadedMethod _ = backForwardListGetBackListWithLimit
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 WebKit2.BackForwardListItem.BackForwardListItem
backForwardListGetCurrentItem backForwardList = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_current_item backForwardList'
checkUnexpectedReturnNULL "backForwardListGetCurrentItem" result
result' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result
touchManagedPtr backForwardList
return result'
data BackForwardListGetCurrentItemMethodInfo
instance (signature ~ (m WebKit2.BackForwardListItem.BackForwardListItem), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetCurrentItemMethodInfo a signature where
overloadedMethod _ = backForwardListGetCurrentItem
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 WebKit2.BackForwardListItem.BackForwardListItem
backForwardListGetForwardItem backForwardList = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_forward_item backForwardList'
checkUnexpectedReturnNULL "backForwardListGetForwardItem" result
result' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result
touchManagedPtr backForwardList
return result'
data BackForwardListGetForwardItemMethodInfo
instance (signature ~ (m WebKit2.BackForwardListItem.BackForwardListItem), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetForwardItemMethodInfo a signature where
overloadedMethod _ = backForwardListGetForwardItem
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''
data BackForwardListGetForwardListMethodInfo
instance (signature ~ (m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetForwardListMethodInfo a signature where
overloadedMethod _ = backForwardListGetForwardList
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''
data BackForwardListGetForwardListWithLimitMethodInfo
instance (signature ~ (Word32 -> m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetForwardListWithLimitMethodInfo a signature where
overloadedMethod _ = backForwardListGetForwardListWithLimit
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
data BackForwardListGetLengthMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetLengthMethodInfo a signature where
overloadedMethod _ = backForwardListGetLength
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 WebKit2.BackForwardListItem.BackForwardListItem
backForwardListGetNthItem backForwardList index = liftIO $ do
backForwardList' <- unsafeManagedPtrCastPtr backForwardList
result <- webkit_back_forward_list_get_nth_item backForwardList' index
checkUnexpectedReturnNULL "backForwardListGetNthItem" result
result' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result
touchManagedPtr backForwardList
return result'
data BackForwardListGetNthItemMethodInfo
instance (signature ~ (Int32 -> m WebKit2.BackForwardListItem.BackForwardListItem), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetNthItemMethodInfo a signature where
overloadedMethod _ = backForwardListGetNthItem