#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.BackForwardListItem
(
BackForwardListItem(..) ,
IsBackForwardListItem ,
toBackForwardListItem ,
noBackForwardListItem ,
#if ENABLE_OVERLOADING
BackForwardListItemGetOriginalUriMethodInfo,
#endif
backForwardListItemGetOriginalUri ,
#if ENABLE_OVERLOADING
BackForwardListItemGetTitleMethodInfo ,
#endif
backForwardListItemGetTitle ,
#if ENABLE_OVERLOADING
BackForwardListItemGetUriMethodInfo ,
#endif
backForwardListItemGetUri ,
) 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
newtype BackForwardListItem = BackForwardListItem (ManagedPtr BackForwardListItem)
foreign import ccall "webkit_back_forward_list_item_get_type"
c_webkit_back_forward_list_item_get_type :: IO GType
instance GObject BackForwardListItem where
gobjectType = c_webkit_back_forward_list_item_get_type
class (GObject o, O.IsDescendantOf BackForwardListItem o) => IsBackForwardListItem o
instance (GObject o, O.IsDescendantOf BackForwardListItem o) => IsBackForwardListItem o
instance O.HasParentTypes BackForwardListItem
type instance O.ParentTypes BackForwardListItem = '[GObject.Object.Object]
toBackForwardListItem :: (MonadIO m, IsBackForwardListItem o) => o -> m BackForwardListItem
toBackForwardListItem = liftIO . unsafeCastTo BackForwardListItem
noBackForwardListItem :: Maybe BackForwardListItem
noBackForwardListItem = Nothing
#if ENABLE_OVERLOADING
type family ResolveBackForwardListItemMethod (t :: Symbol) (o :: *) :: * where
ResolveBackForwardListItemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBackForwardListItemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBackForwardListItemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBackForwardListItemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBackForwardListItemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBackForwardListItemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBackForwardListItemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBackForwardListItemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBackForwardListItemMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveBackForwardListItemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBackForwardListItemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBackForwardListItemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBackForwardListItemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBackForwardListItemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBackForwardListItemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveBackForwardListItemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBackForwardListItemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBackForwardListItemMethod "getOriginalUri" o = BackForwardListItemGetOriginalUriMethodInfo
ResolveBackForwardListItemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBackForwardListItemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBackForwardListItemMethod "getTitle" o = BackForwardListItemGetTitleMethodInfo
ResolveBackForwardListItemMethod "getUri" o = BackForwardListItemGetUriMethodInfo
ResolveBackForwardListItemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBackForwardListItemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBackForwardListItemMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBackForwardListItemMethod t BackForwardListItem, O.MethodInfo info BackForwardListItem p) => OL.IsLabel t (BackForwardListItem -> 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
#if ENABLE_OVERLOADING
instance O.HasAttributeList BackForwardListItem
type instance O.AttributeList BackForwardListItem = BackForwardListItemAttributeList
type BackForwardListItemAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList BackForwardListItem = BackForwardListItemSignalList
type BackForwardListItemSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_back_forward_list_item_get_original_uri" webkit_back_forward_list_item_get_original_uri ::
Ptr BackForwardListItem ->
IO CString
backForwardListItemGetOriginalUri ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardListItem a) =>
a
-> m (Maybe T.Text)
backForwardListItemGetOriginalUri listItem = liftIO $ do
listItem' <- unsafeManagedPtrCastPtr listItem
result <- webkit_back_forward_list_item_get_original_uri listItem'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr listItem
return maybeResult
#if ENABLE_OVERLOADING
data BackForwardListItemGetOriginalUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsBackForwardListItem a) => O.MethodInfo BackForwardListItemGetOriginalUriMethodInfo a signature where
overloadedMethod _ = backForwardListItemGetOriginalUri
#endif
foreign import ccall "webkit_back_forward_list_item_get_title" webkit_back_forward_list_item_get_title ::
Ptr BackForwardListItem ->
IO CString
backForwardListItemGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardListItem a) =>
a
-> m (Maybe T.Text)
backForwardListItemGetTitle listItem = liftIO $ do
listItem' <- unsafeManagedPtrCastPtr listItem
result <- webkit_back_forward_list_item_get_title listItem'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr listItem
return maybeResult
#if ENABLE_OVERLOADING
data BackForwardListItemGetTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsBackForwardListItem a) => O.MethodInfo BackForwardListItemGetTitleMethodInfo a signature where
overloadedMethod _ = backForwardListItemGetTitle
#endif
foreign import ccall "webkit_back_forward_list_item_get_uri" webkit_back_forward_list_item_get_uri ::
Ptr BackForwardListItem ->
IO CString
backForwardListItemGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsBackForwardListItem a) =>
a
-> m (Maybe T.Text)
backForwardListItemGetUri listItem = liftIO $ do
listItem' <- unsafeManagedPtrCastPtr listItem
result <- webkit_back_forward_list_item_get_uri listItem'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr listItem
return maybeResult
#if ENABLE_OVERLOADING
data BackForwardListItemGetUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsBackForwardListItem a) => O.MethodInfo BackForwardListItemGetUriMethodInfo a signature where
overloadedMethod _ = backForwardListItemGetUri
#endif