{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.RecentInfo
(
RecentInfo(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveRecentInfoMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
RecentInfoCreateAppInfoMethodInfo ,
#endif
recentInfoCreateAppInfo ,
#if defined(ENABLE_OVERLOADING)
RecentInfoExistsMethodInfo ,
#endif
recentInfoExists ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetAddedMethodInfo ,
#endif
recentInfoGetAdded ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetAgeMethodInfo ,
#endif
recentInfoGetAge ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetApplicationInfoMethodInfo ,
#endif
recentInfoGetApplicationInfo ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetApplicationsMethodInfo ,
#endif
recentInfoGetApplications ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetDescriptionMethodInfo ,
#endif
recentInfoGetDescription ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetDisplayNameMethodInfo ,
#endif
recentInfoGetDisplayName ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetGiconMethodInfo ,
#endif
recentInfoGetGicon ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetGroupsMethodInfo ,
#endif
recentInfoGetGroups ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetIconMethodInfo ,
#endif
recentInfoGetIcon ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetMimeTypeMethodInfo ,
#endif
recentInfoGetMimeType ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetModifiedMethodInfo ,
#endif
recentInfoGetModified ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetPrivateHintMethodInfo ,
#endif
recentInfoGetPrivateHint ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetShortNameMethodInfo ,
#endif
recentInfoGetShortName ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetUriMethodInfo ,
#endif
recentInfoGetUri ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetUriDisplayMethodInfo ,
#endif
recentInfoGetUriDisplay ,
#if defined(ENABLE_OVERLOADING)
RecentInfoGetVisitedMethodInfo ,
#endif
recentInfoGetVisited ,
#if defined(ENABLE_OVERLOADING)
RecentInfoHasApplicationMethodInfo ,
#endif
recentInfoHasApplication ,
#if defined(ENABLE_OVERLOADING)
RecentInfoHasGroupMethodInfo ,
#endif
recentInfoHasGroup ,
#if defined(ENABLE_OVERLOADING)
RecentInfoIsLocalMethodInfo ,
#endif
recentInfoIsLocal ,
#if defined(ENABLE_OVERLOADING)
RecentInfoLastApplicationMethodInfo ,
#endif
recentInfoLastApplication ,
#if defined(ENABLE_OVERLOADING)
RecentInfoMatchMethodInfo ,
#endif
recentInfoMatch ,
#if defined(ENABLE_OVERLOADING)
RecentInfoRefMethodInfo ,
#endif
recentInfoRef ,
#if defined(ENABLE_OVERLOADING)
RecentInfoUnrefMethodInfo ,
#endif
recentInfoUnref ,
) 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.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Interfaces.AppInfo as Gio.AppInfo
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
newtype RecentInfo = RecentInfo (SP.ManagedPtr RecentInfo)
deriving (RecentInfo -> RecentInfo -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RecentInfo -> RecentInfo -> Bool
$c/= :: RecentInfo -> RecentInfo -> Bool
== :: RecentInfo -> RecentInfo -> Bool
$c== :: RecentInfo -> RecentInfo -> Bool
Eq)
instance SP.ManagedPtrNewtype RecentInfo where
toManagedPtr :: RecentInfo -> ManagedPtr RecentInfo
toManagedPtr (RecentInfo ManagedPtr RecentInfo
p) = ManagedPtr RecentInfo
p
foreign import ccall "gtk_recent_info_get_type" c_gtk_recent_info_get_type ::
IO GType
type instance O.ParentTypes RecentInfo = '[]
instance O.HasParentTypes RecentInfo
instance B.Types.TypedObject RecentInfo where
glibType :: IO GType
glibType = IO GType
c_gtk_recent_info_get_type
instance B.Types.GBoxed RecentInfo
instance B.GValue.IsGValue (Maybe RecentInfo) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_recent_info_get_type
gvalueSet_ :: Ptr GValue -> Maybe RecentInfo -> IO ()
gvalueSet_ Ptr GValue
gv Maybe RecentInfo
P.Nothing = forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr RecentInfo)
gvalueSet_ Ptr GValue
gv (P.Just RecentInfo
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr RecentInfo
obj (forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe RecentInfo)
gvalueGet_ Ptr GValue
gv = do
Ptr RecentInfo
ptr <- forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr RecentInfo)
if Ptr RecentInfo
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.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr RecentInfo -> RecentInfo
RecentInfo Ptr RecentInfo
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RecentInfo
type instance O.AttributeList RecentInfo = RecentInfoAttributeList
type RecentInfoAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_recent_info_create_app_info" gtk_recent_info_create_app_info ::
Ptr RecentInfo ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr Gio.AppInfo.AppInfo)
recentInfoCreateAppInfo ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> Maybe (T.Text)
-> m (Maybe Gio.AppInfo.AppInfo)
recentInfoCreateAppInfo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> Maybe Text -> m (Maybe AppInfo)
recentInfoCreateAppInfo RecentInfo
info Maybe Text
appName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
maybeAppName <- case Maybe Text
appName of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jAppName -> do
Ptr CChar
jAppName' <- Text -> IO (Ptr CChar)
textToCString Text
jAppName
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jAppName'
forall a b. IO a -> IO b -> IO a
onException (do
Ptr AppInfo
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr RecentInfo -> Ptr CChar -> Ptr (Ptr GError) -> IO (Ptr AppInfo)
gtk_recent_info_create_app_info Ptr RecentInfo
info' Ptr CChar
maybeAppName
Maybe AppInfo
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr AppInfo
result forall a b. (a -> b) -> a -> b
$ \Ptr AppInfo
result' -> do
AppInfo
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AppInfo -> AppInfo
Gio.AppInfo.AppInfo) Ptr AppInfo
result'
forall (m :: * -> *) a. Monad m => a -> m a
return AppInfo
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeAppName
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AppInfo
maybeResult
) (do
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeAppName
)
#if defined(ENABLE_OVERLOADING)
data RecentInfoCreateAppInfoMethodInfo
instance (signature ~ (Maybe (T.Text) -> m (Maybe Gio.AppInfo.AppInfo)), MonadIO m) => O.OverloadedMethod RecentInfoCreateAppInfoMethodInfo RecentInfo signature where
overloadedMethod = recentInfoCreateAppInfo
instance O.OverloadedMethodInfo RecentInfoCreateAppInfoMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoCreateAppInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoCreateAppInfo"
})
#endif
foreign import ccall "gtk_recent_info_exists" gtk_recent_info_exists ::
Ptr RecentInfo ->
IO CInt
recentInfoExists ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m Bool
recentInfoExists :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Bool
recentInfoExists RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
CInt
result <- Ptr RecentInfo -> IO CInt
gtk_recent_info_exists Ptr RecentInfo
info'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoExistsMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod RecentInfoExistsMethodInfo RecentInfo signature where
overloadedMethod = recentInfoExists
instance O.OverloadedMethodInfo RecentInfoExistsMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoExists",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoExists"
})
#endif
foreign import ccall "gtk_recent_info_get_added" gtk_recent_info_get_added ::
Ptr RecentInfo ->
IO CLong
recentInfoGetAdded ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m CLong
recentInfoGetAdded :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m CLong
recentInfoGetAdded RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
CLong
result <- Ptr RecentInfo -> IO CLong
gtk_recent_info_get_added Ptr RecentInfo
info'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetAddedMethodInfo
instance (signature ~ (m CLong), MonadIO m) => O.OverloadedMethod RecentInfoGetAddedMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetAdded
instance O.OverloadedMethodInfo RecentInfoGetAddedMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetAdded",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetAdded"
})
#endif
foreign import ccall "gtk_recent_info_get_age" gtk_recent_info_get_age ::
Ptr RecentInfo ->
IO Int32
recentInfoGetAge ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m Int32
recentInfoGetAge :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Int32
recentInfoGetAge RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Int32
result <- Ptr RecentInfo -> IO Int32
gtk_recent_info_get_age Ptr RecentInfo
info'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetAgeMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod RecentInfoGetAgeMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetAge
instance O.OverloadedMethodInfo RecentInfoGetAgeMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetAge",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetAge"
})
#endif
foreign import ccall "gtk_recent_info_get_application_info" gtk_recent_info_get_application_info ::
Ptr RecentInfo ->
CString ->
Ptr CString ->
Ptr Word32 ->
Ptr CLong ->
IO CInt
recentInfoGetApplicationInfo ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> T.Text
-> m ((Bool, T.Text, Word32, CLong))
recentInfoGetApplicationInfo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> Text -> m (Bool, Text, Word32, CLong)
recentInfoGetApplicationInfo RecentInfo
info Text
appName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
appName' <- Text -> IO (Ptr CChar)
textToCString Text
appName
Ptr (Ptr CChar)
appExec <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
Ptr Word32
count <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
Ptr CLong
time_ <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CLong)
CInt
result <- Ptr RecentInfo
-> Ptr CChar
-> Ptr (Ptr CChar)
-> Ptr Word32
-> Ptr CLong
-> IO CInt
gtk_recent_info_get_application_info Ptr RecentInfo
info' Ptr CChar
appName' Ptr (Ptr CChar)
appExec Ptr Word32
count Ptr CLong
time_
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr CChar
appExec' <- forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CChar)
appExec
Text
appExec'' <- HasCallStack => Ptr CChar -> IO Text
cstringToText Ptr CChar
appExec'
Word32
count' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
count
CLong
time_' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CLong
time_
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall a. Ptr a -> IO ()
freeMem Ptr CChar
appName'
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
appExec
forall a. Ptr a -> IO ()
freeMem Ptr Word32
count
forall a. Ptr a -> IO ()
freeMem Ptr CLong
time_
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Text
appExec'', Word32
count', CLong
time_')
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetApplicationInfoMethodInfo
instance (signature ~ (T.Text -> m ((Bool, T.Text, Word32, CLong))), MonadIO m) => O.OverloadedMethod RecentInfoGetApplicationInfoMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetApplicationInfo
instance O.OverloadedMethodInfo RecentInfoGetApplicationInfoMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetApplicationInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetApplicationInfo"
})
#endif
foreign import ccall "gtk_recent_info_get_applications" gtk_recent_info_get_applications ::
Ptr RecentInfo ->
Ptr Word64 ->
IO (Ptr CString)
recentInfoGetApplications ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m (([T.Text], Word64))
recentInfoGetApplications :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m ([Text], Word64)
recentInfoGetApplications RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr Word64
length_ <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr (Ptr CChar)
result <- Ptr RecentInfo -> Ptr Word64 -> IO (Ptr (Ptr CChar))
gtk_recent_info_get_applications Ptr RecentInfo
info' Ptr Word64
length_
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentInfoGetApplications" Ptr (Ptr CChar)
result
[Text]
result' <- HasCallStack => Ptr (Ptr CChar) -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr (Ptr CChar)
result
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
Word64
length_' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
length_
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall a. Ptr a -> IO ()
freeMem Ptr Word64
length_
forall (m :: * -> *) a. Monad m => a -> m a
return ([Text]
result', Word64
length_')
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetApplicationsMethodInfo
instance (signature ~ (m (([T.Text], Word64))), MonadIO m) => O.OverloadedMethod RecentInfoGetApplicationsMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetApplications
instance O.OverloadedMethodInfo RecentInfoGetApplicationsMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetApplications",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetApplications"
})
#endif
foreign import ccall "gtk_recent_info_get_description" gtk_recent_info_get_description ::
Ptr RecentInfo ->
IO CString
recentInfoGetDescription ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m T.Text
recentInfoGetDescription :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Text
recentInfoGetDescription RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
result <- Ptr RecentInfo -> IO (Ptr CChar)
gtk_recent_info_get_description Ptr RecentInfo
info'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentInfoGetDescription" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
cstringToText Ptr CChar
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod RecentInfoGetDescriptionMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetDescription
instance O.OverloadedMethodInfo RecentInfoGetDescriptionMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetDescription"
})
#endif
foreign import ccall "gtk_recent_info_get_display_name" gtk_recent_info_get_display_name ::
Ptr RecentInfo ->
IO CString
recentInfoGetDisplayName ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m T.Text
recentInfoGetDisplayName :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Text
recentInfoGetDisplayName RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
result <- Ptr RecentInfo -> IO (Ptr CChar)
gtk_recent_info_get_display_name Ptr RecentInfo
info'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentInfoGetDisplayName" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
cstringToText Ptr CChar
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetDisplayNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod RecentInfoGetDisplayNameMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetDisplayName
instance O.OverloadedMethodInfo RecentInfoGetDisplayNameMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetDisplayName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetDisplayName"
})
#endif
foreign import ccall "gtk_recent_info_get_gicon" gtk_recent_info_get_gicon ::
Ptr RecentInfo ->
IO (Ptr Gio.Icon.Icon)
recentInfoGetGicon ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m (Maybe Gio.Icon.Icon)
recentInfoGetGicon :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m (Maybe Icon)
recentInfoGetGicon RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr Icon
result <- Ptr RecentInfo -> IO (Ptr Icon)
gtk_recent_info_get_gicon Ptr RecentInfo
info'
Maybe Icon
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Icon
result forall a b. (a -> b) -> a -> b
$ \Ptr Icon
result' -> do
Icon
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Icon -> Icon
Gio.Icon.Icon) Ptr Icon
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Icon
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Icon
maybeResult
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetGiconMethodInfo
instance (signature ~ (m (Maybe Gio.Icon.Icon)), MonadIO m) => O.OverloadedMethod RecentInfoGetGiconMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetGicon
instance O.OverloadedMethodInfo RecentInfoGetGiconMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetGicon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetGicon"
})
#endif
foreign import ccall "gtk_recent_info_get_groups" gtk_recent_info_get_groups ::
Ptr RecentInfo ->
Ptr Word64 ->
IO (Ptr CString)
recentInfoGetGroups ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m (([T.Text], Word64))
recentInfoGetGroups :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m ([Text], Word64)
recentInfoGetGroups RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr Word64
length_ <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr (Ptr CChar)
result <- Ptr RecentInfo -> Ptr Word64 -> IO (Ptr (Ptr CChar))
gtk_recent_info_get_groups Ptr RecentInfo
info' Ptr Word64
length_
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentInfoGetGroups" Ptr (Ptr CChar)
result
[Text]
result' <- HasCallStack => Ptr (Ptr CChar) -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr (Ptr CChar)
result
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
Word64
length_' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
length_
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall a. Ptr a -> IO ()
freeMem Ptr Word64
length_
forall (m :: * -> *) a. Monad m => a -> m a
return ([Text]
result', Word64
length_')
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetGroupsMethodInfo
instance (signature ~ (m (([T.Text], Word64))), MonadIO m) => O.OverloadedMethod RecentInfoGetGroupsMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetGroups
instance O.OverloadedMethodInfo RecentInfoGetGroupsMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetGroups",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetGroups"
})
#endif
foreign import ccall "gtk_recent_info_get_icon" gtk_recent_info_get_icon ::
Ptr RecentInfo ->
Int32 ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
recentInfoGetIcon ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> Int32
-> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
recentInfoGetIcon :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> Int32 -> m (Maybe Pixbuf)
recentInfoGetIcon RecentInfo
info Int32
size = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr Pixbuf
result <- Ptr RecentInfo -> Int32 -> IO (Ptr Pixbuf)
gtk_recent_info_get_icon Ptr RecentInfo
info' Int32
size
Maybe Pixbuf
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Pixbuf
result forall a b. (a -> b) -> a -> b
$ \Ptr Pixbuf
result' -> do
Pixbuf
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pixbuf
maybeResult
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetIconMethodInfo
instance (signature ~ (Int32 -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m) => O.OverloadedMethod RecentInfoGetIconMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetIcon
instance O.OverloadedMethodInfo RecentInfoGetIconMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetIcon"
})
#endif
foreign import ccall "gtk_recent_info_get_mime_type" gtk_recent_info_get_mime_type ::
Ptr RecentInfo ->
IO CString
recentInfoGetMimeType ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m T.Text
recentInfoGetMimeType :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Text
recentInfoGetMimeType RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
result <- Ptr RecentInfo -> IO (Ptr CChar)
gtk_recent_info_get_mime_type Ptr RecentInfo
info'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentInfoGetMimeType" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
cstringToText Ptr CChar
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetMimeTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod RecentInfoGetMimeTypeMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetMimeType
instance O.OverloadedMethodInfo RecentInfoGetMimeTypeMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetMimeType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetMimeType"
})
#endif
foreign import ccall "gtk_recent_info_get_modified" gtk_recent_info_get_modified ::
Ptr RecentInfo ->
IO CLong
recentInfoGetModified ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m CLong
recentInfoGetModified :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m CLong
recentInfoGetModified RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
CLong
result <- Ptr RecentInfo -> IO CLong
gtk_recent_info_get_modified Ptr RecentInfo
info'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetModifiedMethodInfo
instance (signature ~ (m CLong), MonadIO m) => O.OverloadedMethod RecentInfoGetModifiedMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetModified
instance O.OverloadedMethodInfo RecentInfoGetModifiedMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetModified",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetModified"
})
#endif
foreign import ccall "gtk_recent_info_get_private_hint" gtk_recent_info_get_private_hint ::
Ptr RecentInfo ->
IO CInt
recentInfoGetPrivateHint ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m Bool
recentInfoGetPrivateHint :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Bool
recentInfoGetPrivateHint RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
CInt
result <- Ptr RecentInfo -> IO CInt
gtk_recent_info_get_private_hint Ptr RecentInfo
info'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetPrivateHintMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod RecentInfoGetPrivateHintMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetPrivateHint
instance O.OverloadedMethodInfo RecentInfoGetPrivateHintMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetPrivateHint",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetPrivateHint"
})
#endif
foreign import ccall "gtk_recent_info_get_short_name" gtk_recent_info_get_short_name ::
Ptr RecentInfo ->
IO CString
recentInfoGetShortName ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m T.Text
recentInfoGetShortName :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Text
recentInfoGetShortName RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
result <- Ptr RecentInfo -> IO (Ptr CChar)
gtk_recent_info_get_short_name Ptr RecentInfo
info'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentInfoGetShortName" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
cstringToText Ptr CChar
result
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetShortNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod RecentInfoGetShortNameMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetShortName
instance O.OverloadedMethodInfo RecentInfoGetShortNameMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetShortName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetShortName"
})
#endif
foreign import ccall "gtk_recent_info_get_uri" gtk_recent_info_get_uri ::
Ptr RecentInfo ->
IO CString
recentInfoGetUri ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m T.Text
recentInfoGetUri :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Text
recentInfoGetUri RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
result <- Ptr RecentInfo -> IO (Ptr CChar)
gtk_recent_info_get_uri Ptr RecentInfo
info'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentInfoGetUri" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
cstringToText Ptr CChar
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod RecentInfoGetUriMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetUri
instance O.OverloadedMethodInfo RecentInfoGetUriMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetUri"
})
#endif
foreign import ccall "gtk_recent_info_get_uri_display" gtk_recent_info_get_uri_display ::
Ptr RecentInfo ->
IO CString
recentInfoGetUriDisplay ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m (Maybe T.Text)
recentInfoGetUriDisplay :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m (Maybe Text)
recentInfoGetUriDisplay RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
result <- Ptr RecentInfo -> IO (Ptr CChar)
gtk_recent_info_get_uri_display Ptr RecentInfo
info'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CChar
result forall a b. (a -> b) -> a -> b
$ \Ptr CChar
result' -> do
Text
result'' <- HasCallStack => Ptr CChar -> IO Text
cstringToText Ptr CChar
result'
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetUriDisplayMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.OverloadedMethod RecentInfoGetUriDisplayMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetUriDisplay
instance O.OverloadedMethodInfo RecentInfoGetUriDisplayMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetUriDisplay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetUriDisplay"
})
#endif
foreign import ccall "gtk_recent_info_get_visited" gtk_recent_info_get_visited ::
Ptr RecentInfo ->
IO CLong
recentInfoGetVisited ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m CLong
recentInfoGetVisited :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m CLong
recentInfoGetVisited RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
CLong
result <- Ptr RecentInfo -> IO CLong
gtk_recent_info_get_visited Ptr RecentInfo
info'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data RecentInfoGetVisitedMethodInfo
instance (signature ~ (m CLong), MonadIO m) => O.OverloadedMethod RecentInfoGetVisitedMethodInfo RecentInfo signature where
overloadedMethod = recentInfoGetVisited
instance O.OverloadedMethodInfo RecentInfoGetVisitedMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoGetVisited",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoGetVisited"
})
#endif
foreign import ccall "gtk_recent_info_has_application" gtk_recent_info_has_application ::
Ptr RecentInfo ->
CString ->
IO CInt
recentInfoHasApplication ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> T.Text
-> m Bool
recentInfoHasApplication :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> Text -> m Bool
recentInfoHasApplication RecentInfo
info Text
appName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
appName' <- Text -> IO (Ptr CChar)
textToCString Text
appName
CInt
result <- Ptr RecentInfo -> Ptr CChar -> IO CInt
gtk_recent_info_has_application Ptr RecentInfo
info' Ptr CChar
appName'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall a. Ptr a -> IO ()
freeMem Ptr CChar
appName'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoHasApplicationMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m) => O.OverloadedMethod RecentInfoHasApplicationMethodInfo RecentInfo signature where
overloadedMethod = recentInfoHasApplication
instance O.OverloadedMethodInfo RecentInfoHasApplicationMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoHasApplication",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoHasApplication"
})
#endif
foreign import ccall "gtk_recent_info_has_group" gtk_recent_info_has_group ::
Ptr RecentInfo ->
CString ->
IO CInt
recentInfoHasGroup ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> T.Text
-> m Bool
recentInfoHasGroup :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> Text -> m Bool
recentInfoHasGroup RecentInfo
info Text
groupName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
groupName' <- Text -> IO (Ptr CChar)
textToCString Text
groupName
CInt
result <- Ptr RecentInfo -> Ptr CChar -> IO CInt
gtk_recent_info_has_group Ptr RecentInfo
info' Ptr CChar
groupName'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall a. Ptr a -> IO ()
freeMem Ptr CChar
groupName'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoHasGroupMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m) => O.OverloadedMethod RecentInfoHasGroupMethodInfo RecentInfo signature where
overloadedMethod = recentInfoHasGroup
instance O.OverloadedMethodInfo RecentInfoHasGroupMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoHasGroup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoHasGroup"
})
#endif
foreign import ccall "gtk_recent_info_is_local" gtk_recent_info_is_local ::
Ptr RecentInfo ->
IO CInt
recentInfoIsLocal ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m Bool
recentInfoIsLocal :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Bool
recentInfoIsLocal RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
CInt
result <- Ptr RecentInfo -> IO CInt
gtk_recent_info_is_local Ptr RecentInfo
info'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoIsLocalMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod RecentInfoIsLocalMethodInfo RecentInfo signature where
overloadedMethod = recentInfoIsLocal
instance O.OverloadedMethodInfo RecentInfoIsLocalMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoIsLocal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoIsLocal"
})
#endif
foreign import ccall "gtk_recent_info_last_application" gtk_recent_info_last_application ::
Ptr RecentInfo ->
IO CString
recentInfoLastApplication ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m T.Text
recentInfoLastApplication :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m Text
recentInfoLastApplication RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr CChar
result <- Ptr RecentInfo -> IO (Ptr CChar)
gtk_recent_info_last_application Ptr RecentInfo
info'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentInfoLastApplication" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
cstringToText Ptr CChar
result
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoLastApplicationMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod RecentInfoLastApplicationMethodInfo RecentInfo signature where
overloadedMethod = recentInfoLastApplication
instance O.OverloadedMethodInfo RecentInfoLastApplicationMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoLastApplication",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoLastApplication"
})
#endif
foreign import ccall "gtk_recent_info_match" gtk_recent_info_match ::
Ptr RecentInfo ->
Ptr RecentInfo ->
IO CInt
recentInfoMatch ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> RecentInfo
-> m Bool
recentInfoMatch :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> RecentInfo -> m Bool
recentInfoMatch RecentInfo
infoA RecentInfo
infoB = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
infoA' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
infoA
Ptr RecentInfo
infoB' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
infoB
CInt
result <- Ptr RecentInfo -> Ptr RecentInfo -> IO CInt
gtk_recent_info_match Ptr RecentInfo
infoA' Ptr RecentInfo
infoB'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
infoA
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
infoB
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoMatchMethodInfo
instance (signature ~ (RecentInfo -> m Bool), MonadIO m) => O.OverloadedMethod RecentInfoMatchMethodInfo RecentInfo signature where
overloadedMethod = recentInfoMatch
instance O.OverloadedMethodInfo RecentInfoMatchMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoMatch",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoMatch"
})
#endif
foreign import ccall "gtk_recent_info_ref" gtk_recent_info_ref ::
Ptr RecentInfo ->
IO (Ptr RecentInfo)
recentInfoRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m RecentInfo
recentInfoRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m RecentInfo
recentInfoRef RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr RecentInfo
result <- Ptr RecentInfo -> IO (Ptr RecentInfo)
gtk_recent_info_ref Ptr RecentInfo
info'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"recentInfoRef" Ptr RecentInfo
result
RecentInfo
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RecentInfo -> RecentInfo
RecentInfo) Ptr RecentInfo
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return RecentInfo
result'
#if defined(ENABLE_OVERLOADING)
data RecentInfoRefMethodInfo
instance (signature ~ (m RecentInfo), MonadIO m) => O.OverloadedMethod RecentInfoRefMethodInfo RecentInfo signature where
overloadedMethod = recentInfoRef
instance O.OverloadedMethodInfo RecentInfoRefMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoRef"
})
#endif
foreign import ccall "gtk_recent_info_unref" gtk_recent_info_unref ::
Ptr RecentInfo ->
IO ()
recentInfoUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
RecentInfo
-> m ()
recentInfoUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RecentInfo -> m ()
recentInfoUnref RecentInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr RecentInfo
info' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RecentInfo
info
Ptr RecentInfo -> IO ()
gtk_recent_info_unref Ptr RecentInfo
info'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RecentInfo
info
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RecentInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod RecentInfoUnrefMethodInfo RecentInfo signature where
overloadedMethod = recentInfoUnref
instance O.OverloadedMethodInfo RecentInfoUnrefMethodInfo RecentInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentInfo.recentInfoUnref",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentInfo.html#v:recentInfoUnref"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveRecentInfoMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveRecentInfoMethod "createAppInfo" o = RecentInfoCreateAppInfoMethodInfo
ResolveRecentInfoMethod "exists" o = RecentInfoExistsMethodInfo
ResolveRecentInfoMethod "hasApplication" o = RecentInfoHasApplicationMethodInfo
ResolveRecentInfoMethod "hasGroup" o = RecentInfoHasGroupMethodInfo
ResolveRecentInfoMethod "isLocal" o = RecentInfoIsLocalMethodInfo
ResolveRecentInfoMethod "lastApplication" o = RecentInfoLastApplicationMethodInfo
ResolveRecentInfoMethod "match" o = RecentInfoMatchMethodInfo
ResolveRecentInfoMethod "ref" o = RecentInfoRefMethodInfo
ResolveRecentInfoMethod "unref" o = RecentInfoUnrefMethodInfo
ResolveRecentInfoMethod "getAdded" o = RecentInfoGetAddedMethodInfo
ResolveRecentInfoMethod "getAge" o = RecentInfoGetAgeMethodInfo
ResolveRecentInfoMethod "getApplicationInfo" o = RecentInfoGetApplicationInfoMethodInfo
ResolveRecentInfoMethod "getApplications" o = RecentInfoGetApplicationsMethodInfo
ResolveRecentInfoMethod "getDescription" o = RecentInfoGetDescriptionMethodInfo
ResolveRecentInfoMethod "getDisplayName" o = RecentInfoGetDisplayNameMethodInfo
ResolveRecentInfoMethod "getGicon" o = RecentInfoGetGiconMethodInfo
ResolveRecentInfoMethod "getGroups" o = RecentInfoGetGroupsMethodInfo
ResolveRecentInfoMethod "getIcon" o = RecentInfoGetIconMethodInfo
ResolveRecentInfoMethod "getMimeType" o = RecentInfoGetMimeTypeMethodInfo
ResolveRecentInfoMethod "getModified" o = RecentInfoGetModifiedMethodInfo
ResolveRecentInfoMethod "getPrivateHint" o = RecentInfoGetPrivateHintMethodInfo
ResolveRecentInfoMethod "getShortName" o = RecentInfoGetShortNameMethodInfo
ResolveRecentInfoMethod "getUri" o = RecentInfoGetUriMethodInfo
ResolveRecentInfoMethod "getUriDisplay" o = RecentInfoGetUriDisplayMethodInfo
ResolveRecentInfoMethod "getVisited" o = RecentInfoGetVisitedMethodInfo
ResolveRecentInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRecentInfoMethod t RecentInfo, O.OverloadedMethod info RecentInfo p) => OL.IsLabel t (RecentInfo -> 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 ~ ResolveRecentInfoMethod t RecentInfo, O.OverloadedMethod info RecentInfo p, R.HasField t RecentInfo p) => R.HasField t RecentInfo p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRecentInfoMethod t RecentInfo, O.OverloadedMethodInfo info RecentInfo) => OL.IsLabel t (O.MethodProxy info RecentInfo) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif