{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.RecentManager
(
RecentManager(..) ,
IsRecentManager ,
toRecentManager ,
#if defined(ENABLE_OVERLOADING)
ResolveRecentManagerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
RecentManagerAddFullMethodInfo ,
#endif
recentManagerAddFull ,
#if defined(ENABLE_OVERLOADING)
RecentManagerAddItemMethodInfo ,
#endif
recentManagerAddItem ,
recentManagerGetDefault ,
#if defined(ENABLE_OVERLOADING)
RecentManagerGetItemsMethodInfo ,
#endif
recentManagerGetItems ,
#if defined(ENABLE_OVERLOADING)
RecentManagerHasItemMethodInfo ,
#endif
recentManagerHasItem ,
#if defined(ENABLE_OVERLOADING)
RecentManagerLookupItemMethodInfo ,
#endif
recentManagerLookupItem ,
#if defined(ENABLE_OVERLOADING)
RecentManagerMoveItemMethodInfo ,
#endif
recentManagerMoveItem ,
recentManagerNew ,
#if defined(ENABLE_OVERLOADING)
RecentManagerPurgeItemsMethodInfo ,
#endif
recentManagerPurgeItems ,
#if defined(ENABLE_OVERLOADING)
RecentManagerRemoveItemMethodInfo ,
#endif
recentManagerRemoveItem ,
#if defined(ENABLE_OVERLOADING)
RecentManagerFilenamePropertyInfo ,
#endif
constructRecentManagerFilename ,
getRecentManagerFilename ,
#if defined(ENABLE_OVERLOADING)
recentManagerFilename ,
#endif
#if defined(ENABLE_OVERLOADING)
RecentManagerSizePropertyInfo ,
#endif
getRecentManagerSize ,
#if defined(ENABLE_OVERLOADING)
recentManagerSize ,
#endif
RecentManagerChangedCallback ,
#if defined(ENABLE_OVERLOADING)
RecentManagerChangedSignalInfo ,
#endif
afterRecentManagerChanged ,
onRecentManagerChanged ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Structs.RecentData as Gtk.RecentData
import {-# SOURCE #-} qualified GI.Gtk.Structs.RecentInfo as Gtk.RecentInfo
newtype RecentManager = RecentManager (SP.ManagedPtr RecentManager)
deriving (RecentManager -> RecentManager -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RecentManager -> RecentManager -> Bool
$c/= :: RecentManager -> RecentManager -> Bool
== :: RecentManager -> RecentManager -> Bool
$c== :: RecentManager -> RecentManager -> Bool
Eq)
instance SP.ManagedPtrNewtype RecentManager where
toManagedPtr :: RecentManager -> ManagedPtr RecentManager
toManagedPtr (RecentManager ManagedPtr RecentManager
p) = ManagedPtr RecentManager
p
foreign import ccall "gtk_recent_manager_get_type"
c_gtk_recent_manager_get_type :: IO B.Types.GType
instance B.Types.TypedObject RecentManager where
glibType :: IO GType
glibType = IO GType
c_gtk_recent_manager_get_type
instance B.Types.GObject RecentManager
class (SP.GObject o, O.IsDescendantOf RecentManager o) => IsRecentManager o
instance (SP.GObject o, O.IsDescendantOf RecentManager o) => IsRecentManager o
instance O.HasParentTypes RecentManager
type instance O.ParentTypes RecentManager = '[GObject.Object.Object]
toRecentManager :: (MIO.MonadIO m, IsRecentManager o) => o -> m RecentManager
toRecentManager :: forall (m :: * -> *) o.
(MonadIO m, IsRecentManager o) =>
o -> m RecentManager
toRecentManager = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr RecentManager -> RecentManager
RecentManager
instance B.GValue.IsGValue (Maybe RecentManager) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_recent_manager_get_type
gvalueSet_ :: Ptr GValue -> Maybe RecentManager -> IO ()
gvalueSet_ Ptr GValue
gv Maybe RecentManager
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr RecentManager)
gvalueSet_ Ptr GValue
gv (P.Just RecentManager
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr RecentManager
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe RecentManager)
gvalueGet_ Ptr GValue
gv = do
Ptr RecentManager
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr RecentManager)
if Ptr RecentManager
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr RecentManager -> RecentManager
RecentManager Ptr RecentManager
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveRecentManagerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveRecentManagerMethod "addFull" o = RecentManagerAddFullMethodInfo
ResolveRecentManagerMethod "addItem" o = RecentManagerAddItemMethodInfo
ResolveRecentManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveRecentManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveRecentManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRecentManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRecentManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRecentManagerMethod "hasItem" o = RecentManagerHasItemMethodInfo
ResolveRecentManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveRecentManagerMethod "lookupItem" o = RecentManagerLookupItemMethodInfo
ResolveRecentManagerMethod "moveItem" o = RecentManagerMoveItemMethodInfo
ResolveRecentManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveRecentManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveRecentManagerMethod "purgeItems" o = RecentManagerPurgeItemsMethodInfo
ResolveRecentManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRecentManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRecentManagerMethod "removeItem" o = RecentManagerRemoveItemMethodInfo
ResolveRecentManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveRecentManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveRecentManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveRecentManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveRecentManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveRecentManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRecentManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveRecentManagerMethod "getItems" o = RecentManagerGetItemsMethodInfo
ResolveRecentManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveRecentManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveRecentManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveRecentManagerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveRecentManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveRecentManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRecentManagerMethod t RecentManager, O.OverloadedMethod info RecentManager p) => OL.IsLabel t (RecentManager -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveRecentManagerMethod t RecentManager, O.OverloadedMethod info RecentManager p, R.HasField t RecentManager p) => R.HasField t RecentManager p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRecentManagerMethod t RecentManager, O.OverloadedMethodInfo info RecentManager) => OL.IsLabel t (O.MethodProxy info RecentManager) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type RecentManagerChangedCallback =
IO ()
type C_RecentManagerChangedCallback =
Ptr RecentManager ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RecentManagerChangedCallback :: C_RecentManagerChangedCallback -> IO (FunPtr C_RecentManagerChangedCallback)
wrap_RecentManagerChangedCallback ::
GObject a => (a -> RecentManagerChangedCallback) ->
C_RecentManagerChangedCallback
wrap_RecentManagerChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_RecentManagerChangedCallback
wrap_RecentManagerChangedCallback a -> IO ()
gi'cb Ptr RecentManager
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr RecentManager
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \RecentManager
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce RecentManager
gi'self)
onRecentManagerChanged :: (IsRecentManager a, MonadIO m) => a -> ((?self :: a) => RecentManagerChangedCallback) -> m SignalHandlerId
onRecentManagerChanged :: forall a (m :: * -> *).
(IsRecentManager a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onRecentManagerChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_RecentManagerChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_RecentManagerChangedCallback
wrap_RecentManagerChangedCallback a -> IO ()
wrapped
FunPtr C_RecentManagerChangedCallback
wrapped'' <- C_RecentManagerChangedCallback
-> IO (FunPtr C_RecentManagerChangedCallback)
mk_RecentManagerChangedCallback C_RecentManagerChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_RecentManagerChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterRecentManagerChanged :: (IsRecentManager a, MonadIO m) => a -> ((?self :: a) => RecentManagerChangedCallback) -> m SignalHandlerId
afterRecentManagerChanged :: forall a (m :: * -> *).
(IsRecentManager a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterRecentManagerChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_RecentManagerChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_RecentManagerChangedCallback
wrap_RecentManagerChangedCallback a -> IO ()
wrapped
FunPtr C_RecentManagerChangedCallback
wrapped'' <- C_RecentManagerChangedCallback
-> IO (FunPtr C_RecentManagerChangedCallback)
mk_RecentManagerChangedCallback C_RecentManagerChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_RecentManagerChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RecentManagerChangedSignalInfo
instance SignalInfo RecentManagerChangedSignalInfo where
type HaskellCallbackType RecentManagerChangedSignalInfo = RecentManagerChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RecentManagerChangedCallback cb
cb'' <- mk_RecentManagerChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager::changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#g:signal:changed"})
#endif
getRecentManagerFilename :: (MonadIO m, IsRecentManager o) => o -> m (Maybe T.Text)
getRecentManagerFilename :: forall (m :: * -> *) o.
(MonadIO m, IsRecentManager o) =>
o -> m (Maybe Text)
getRecentManagerFilename o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"filename"
constructRecentManagerFilename :: (IsRecentManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructRecentManagerFilename :: forall o (m :: * -> *).
(IsRecentManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructRecentManagerFilename Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"filename" (forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data RecentManagerFilenamePropertyInfo
instance AttrInfo RecentManagerFilenamePropertyInfo where
type AttrAllowedOps RecentManagerFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint RecentManagerFilenamePropertyInfo = IsRecentManager
type AttrSetTypeConstraint RecentManagerFilenamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint RecentManagerFilenamePropertyInfo = (~) T.Text
type AttrTransferType RecentManagerFilenamePropertyInfo = T.Text
type AttrGetType RecentManagerFilenamePropertyInfo = (Maybe T.Text)
type AttrLabel RecentManagerFilenamePropertyInfo = "filename"
type AttrOrigin RecentManagerFilenamePropertyInfo = RecentManager
attrGet = getRecentManagerFilename
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructRecentManagerFilename
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.filename"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#g:attr:filename"
})
#endif
getRecentManagerSize :: (MonadIO m, IsRecentManager o) => o -> m Int32
getRecentManagerSize :: forall (m :: * -> *) o.
(MonadIO m, IsRecentManager o) =>
o -> m Int32
getRecentManagerSize o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"size"
#if defined(ENABLE_OVERLOADING)
data RecentManagerSizePropertyInfo
instance AttrInfo RecentManagerSizePropertyInfo where
type AttrAllowedOps RecentManagerSizePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint RecentManagerSizePropertyInfo = IsRecentManager
type AttrSetTypeConstraint RecentManagerSizePropertyInfo = (~) ()
type AttrTransferTypeConstraint RecentManagerSizePropertyInfo = (~) ()
type AttrTransferType RecentManagerSizePropertyInfo = ()
type AttrGetType RecentManagerSizePropertyInfo = Int32
type AttrLabel RecentManagerSizePropertyInfo = "size"
type AttrOrigin RecentManagerSizePropertyInfo = RecentManager
attrGet = getRecentManagerSize
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.size"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#g:attr:size"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RecentManager
type instance O.AttributeList RecentManager = RecentManagerAttributeList
type RecentManagerAttributeList = ('[ '("filename", RecentManagerFilenamePropertyInfo), '("size", RecentManagerSizePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
recentManagerFilename :: AttrLabelProxy "filename"
recentManagerFilename = AttrLabelProxy
recentManagerSize :: AttrLabelProxy "size"
recentManagerSize = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList RecentManager = RecentManagerSignalList
type RecentManagerSignalList = ('[ '("changed", RecentManagerChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_recent_manager_new" gtk_recent_manager_new ::
IO (Ptr RecentManager)
recentManagerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m RecentManager
recentManagerNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m RecentManager
recentManagerNew = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
result <- IO (Ptr RecentManager)
gtk_recent_manager_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentManagerNew" Ptr RecentManager
result
RecentManager
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr RecentManager -> RecentManager
RecentManager) Ptr RecentManager
result
forall (m :: * -> *) a. Monad m => a -> m a
return RecentManager
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_recent_manager_add_full" gtk_recent_manager_add_full ::
Ptr RecentManager ->
CString ->
Ptr Gtk.RecentData.RecentData ->
IO CInt
recentManagerAddFull ::
(B.CallStack.HasCallStack, MonadIO m, IsRecentManager a) =>
a
-> T.Text
-> Gtk.RecentData.RecentData
-> m Bool
recentManagerAddFull :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRecentManager a) =>
a -> Text -> RecentData -> m Bool
recentManagerAddFull a
manager Text
uri RecentData
recentData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
manager' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
uri' <- Text -> IO CString
textToCString Text
uri
Ptr RecentData
recentData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentData
recentData
CInt
result <- Ptr RecentManager -> CString -> Ptr RecentData -> IO CInt
gtk_recent_manager_add_full Ptr RecentManager
manager' CString
uri' Ptr RecentData
recentData'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentData
recentData
forall a. Ptr a -> IO ()
freeMem CString
uri'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RecentManagerAddFullMethodInfo
instance (signature ~ (T.Text -> Gtk.RecentData.RecentData -> m Bool), MonadIO m, IsRecentManager a) => O.OverloadedMethod RecentManagerAddFullMethodInfo a signature where
overloadedMethod = recentManagerAddFull
instance O.OverloadedMethodInfo RecentManagerAddFullMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.recentManagerAddFull",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#v:recentManagerAddFull"
})
#endif
foreign import ccall "gtk_recent_manager_add_item" gtk_recent_manager_add_item ::
Ptr RecentManager ->
CString ->
IO CInt
recentManagerAddItem ::
(B.CallStack.HasCallStack, MonadIO m, IsRecentManager a) =>
a
-> T.Text
-> m Bool
recentManagerAddItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRecentManager a) =>
a -> Text -> m Bool
recentManagerAddItem a
manager Text
uri = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
manager' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
uri' <- Text -> IO CString
textToCString Text
uri
CInt
result <- Ptr RecentManager -> CString -> IO CInt
gtk_recent_manager_add_item Ptr RecentManager
manager' CString
uri'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
forall a. Ptr a -> IO ()
freeMem CString
uri'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RecentManagerAddItemMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsRecentManager a) => O.OverloadedMethod RecentManagerAddItemMethodInfo a signature where
overloadedMethod = recentManagerAddItem
instance O.OverloadedMethodInfo RecentManagerAddItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.recentManagerAddItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#v:recentManagerAddItem"
})
#endif
foreign import ccall "gtk_recent_manager_get_items" gtk_recent_manager_get_items ::
Ptr RecentManager ->
IO (Ptr (GList (Ptr Gtk.RecentInfo.RecentInfo)))
recentManagerGetItems ::
(B.CallStack.HasCallStack, MonadIO m, IsRecentManager a) =>
a
-> m [Gtk.RecentInfo.RecentInfo]
recentManagerGetItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRecentManager a) =>
a -> m [RecentInfo]
recentManagerGetItems a
manager = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
manager' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr (GList (Ptr RecentInfo))
result <- Ptr RecentManager -> IO (Ptr (GList (Ptr RecentInfo)))
gtk_recent_manager_get_items Ptr RecentManager
manager'
[Ptr RecentInfo]
result' <- forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr RecentInfo))
result
[RecentInfo]
result'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RecentInfo -> RecentInfo
Gtk.RecentInfo.RecentInfo) [Ptr RecentInfo]
result'
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr RecentInfo))
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
forall (m :: * -> *) a. Monad m => a -> m a
return [RecentInfo]
result''
#if defined(ENABLE_OVERLOADING)
data RecentManagerGetItemsMethodInfo
instance (signature ~ (m [Gtk.RecentInfo.RecentInfo]), MonadIO m, IsRecentManager a) => O.OverloadedMethod RecentManagerGetItemsMethodInfo a signature where
overloadedMethod = recentManagerGetItems
instance O.OverloadedMethodInfo RecentManagerGetItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.recentManagerGetItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#v:recentManagerGetItems"
})
#endif
foreign import ccall "gtk_recent_manager_has_item" gtk_recent_manager_has_item ::
Ptr RecentManager ->
CString ->
IO CInt
recentManagerHasItem ::
(B.CallStack.HasCallStack, MonadIO m, IsRecentManager a) =>
a
-> T.Text
-> m Bool
recentManagerHasItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRecentManager a) =>
a -> Text -> m Bool
recentManagerHasItem a
manager Text
uri = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
manager' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
uri' <- Text -> IO CString
textToCString Text
uri
CInt
result <- Ptr RecentManager -> CString -> IO CInt
gtk_recent_manager_has_item Ptr RecentManager
manager' CString
uri'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
forall a. Ptr a -> IO ()
freeMem CString
uri'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RecentManagerHasItemMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsRecentManager a) => O.OverloadedMethod RecentManagerHasItemMethodInfo a signature where
overloadedMethod = recentManagerHasItem
instance O.OverloadedMethodInfo RecentManagerHasItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.recentManagerHasItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#v:recentManagerHasItem"
})
#endif
foreign import ccall "gtk_recent_manager_lookup_item" gtk_recent_manager_lookup_item ::
Ptr RecentManager ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr Gtk.RecentInfo.RecentInfo)
recentManagerLookupItem ::
(B.CallStack.HasCallStack, MonadIO m, IsRecentManager a) =>
a
-> T.Text
-> m (Maybe Gtk.RecentInfo.RecentInfo)
recentManagerLookupItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRecentManager a) =>
a -> Text -> m (Maybe RecentInfo)
recentManagerLookupItem a
manager Text
uri = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
manager' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
uri' <- Text -> IO CString
textToCString Text
uri
forall a b. IO a -> IO b -> IO a
onException (do
Ptr RecentInfo
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr RecentManager
-> CString -> Ptr (Ptr GError) -> IO (Ptr RecentInfo)
gtk_recent_manager_lookup_item Ptr RecentManager
manager' CString
uri'
Maybe RecentInfo
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr RecentInfo
result forall a b. (a -> b) -> a -> b
$ \Ptr RecentInfo
result' -> do
RecentInfo
result'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RecentInfo -> RecentInfo
Gtk.RecentInfo.RecentInfo) Ptr RecentInfo
result'
forall (m :: * -> *) a. Monad m => a -> m a
return RecentInfo
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
forall a. Ptr a -> IO ()
freeMem CString
uri'
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe RecentInfo
maybeResult
) (do
forall a. Ptr a -> IO ()
freeMem CString
uri'
)
#if defined(ENABLE_OVERLOADING)
data RecentManagerLookupItemMethodInfo
instance (signature ~ (T.Text -> m (Maybe Gtk.RecentInfo.RecentInfo)), MonadIO m, IsRecentManager a) => O.OverloadedMethod RecentManagerLookupItemMethodInfo a signature where
overloadedMethod = recentManagerLookupItem
instance O.OverloadedMethodInfo RecentManagerLookupItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.recentManagerLookupItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#v:recentManagerLookupItem"
})
#endif
foreign import ccall "gtk_recent_manager_move_item" gtk_recent_manager_move_item ::
Ptr RecentManager ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO CInt
recentManagerMoveItem ::
(B.CallStack.HasCallStack, MonadIO m, IsRecentManager a) =>
a
-> T.Text
-> Maybe (T.Text)
-> m ()
recentManagerMoveItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRecentManager a) =>
a -> Text -> Maybe Text -> m ()
recentManagerMoveItem a
manager Text
uri Maybe Text
newUri = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
manager' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
uri' <- Text -> IO CString
textToCString Text
uri
CString
maybeNewUri <- case Maybe Text
newUri of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jNewUri -> do
CString
jNewUri' <- Text -> IO CString
textToCString Text
jNewUri
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jNewUri'
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr RecentManager
-> CString -> CString -> Ptr (Ptr GError) -> IO CInt
gtk_recent_manager_move_item Ptr RecentManager
manager' CString
uri' CString
maybeNewUri
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
forall a. Ptr a -> IO ()
freeMem CString
uri'
forall a. Ptr a -> IO ()
freeMem CString
maybeNewUri
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall a. Ptr a -> IO ()
freeMem CString
uri'
forall a. Ptr a -> IO ()
freeMem CString
maybeNewUri
)
#if defined(ENABLE_OVERLOADING)
data RecentManagerMoveItemMethodInfo
instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, IsRecentManager a) => O.OverloadedMethod RecentManagerMoveItemMethodInfo a signature where
overloadedMethod = recentManagerMoveItem
instance O.OverloadedMethodInfo RecentManagerMoveItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.recentManagerMoveItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#v:recentManagerMoveItem"
})
#endif
foreign import ccall "gtk_recent_manager_purge_items" gtk_recent_manager_purge_items ::
Ptr RecentManager ->
Ptr (Ptr GError) ->
IO Int32
recentManagerPurgeItems ::
(B.CallStack.HasCallStack, MonadIO m, IsRecentManager a) =>
a
-> m Int32
recentManagerPurgeItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRecentManager a) =>
a -> m Int32
recentManagerPurgeItems a
manager = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
manager' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
forall a b. IO a -> IO b -> IO a
onException (do
Int32
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr RecentManager -> Ptr (Ptr GError) -> IO Int32
gtk_recent_manager_purge_items Ptr RecentManager
manager'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
) (do
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data RecentManagerPurgeItemsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsRecentManager a) => O.OverloadedMethod RecentManagerPurgeItemsMethodInfo a signature where
overloadedMethod = recentManagerPurgeItems
instance O.OverloadedMethodInfo RecentManagerPurgeItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.recentManagerPurgeItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#v:recentManagerPurgeItems"
})
#endif
foreign import ccall "gtk_recent_manager_remove_item" gtk_recent_manager_remove_item ::
Ptr RecentManager ->
CString ->
Ptr (Ptr GError) ->
IO CInt
recentManagerRemoveItem ::
(B.CallStack.HasCallStack, MonadIO m, IsRecentManager a) =>
a
-> T.Text
-> m ()
recentManagerRemoveItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRecentManager a) =>
a -> Text -> m ()
recentManagerRemoveItem a
manager Text
uri = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
manager' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
uri' <- Text -> IO CString
textToCString Text
uri
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr RecentManager -> CString -> Ptr (Ptr GError) -> IO CInt
gtk_recent_manager_remove_item Ptr RecentManager
manager' CString
uri'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
forall a. Ptr a -> IO ()
freeMem CString
uri'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall a. Ptr a -> IO ()
freeMem CString
uri'
)
#if defined(ENABLE_OVERLOADING)
data RecentManagerRemoveItemMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsRecentManager a) => O.OverloadedMethod RecentManagerRemoveItemMethodInfo a signature where
overloadedMethod = recentManagerRemoveItem
instance O.OverloadedMethodInfo RecentManagerRemoveItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.RecentManager.recentManagerRemoveItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-RecentManager.html#v:recentManagerRemoveItem"
})
#endif
foreign import ccall "gtk_recent_manager_get_default" gtk_recent_manager_get_default ::
IO (Ptr RecentManager)
recentManagerGetDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m RecentManager
recentManagerGetDefault :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m RecentManager
recentManagerGetDefault = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentManager
result <- IO (Ptr RecentManager)
gtk_recent_manager_get_default
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentManagerGetDefault" Ptr RecentManager
result
RecentManager
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RecentManager -> RecentManager
RecentManager) Ptr RecentManager
result
forall (m :: * -> *) a. Monad m => a -> m a
return RecentManager
result'
#if defined(ENABLE_OVERLOADING)
#endif