{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.RecentFilterInfo
(
RecentFilterInfo(..) ,
newZeroRecentFilterInfo ,
#if defined(ENABLE_OVERLOADING)
ResolveRecentFilterInfoMethod ,
#endif
getRecentFilterInfoAge ,
#if defined(ENABLE_OVERLOADING)
recentFilterInfo_age ,
#endif
setRecentFilterInfoAge ,
clearRecentFilterInfoApplications ,
getRecentFilterInfoApplications ,
#if defined(ENABLE_OVERLOADING)
recentFilterInfo_applications ,
#endif
setRecentFilterInfoApplications ,
getRecentFilterInfoContains ,
#if defined(ENABLE_OVERLOADING)
recentFilterInfo_contains ,
#endif
setRecentFilterInfoContains ,
clearRecentFilterInfoDisplayName ,
getRecentFilterInfoDisplayName ,
#if defined(ENABLE_OVERLOADING)
recentFilterInfo_displayName ,
#endif
setRecentFilterInfoDisplayName ,
clearRecentFilterInfoGroups ,
getRecentFilterInfoGroups ,
#if defined(ENABLE_OVERLOADING)
recentFilterInfo_groups ,
#endif
setRecentFilterInfoGroups ,
clearRecentFilterInfoMimeType ,
getRecentFilterInfoMimeType ,
#if defined(ENABLE_OVERLOADING)
recentFilterInfo_mimeType ,
#endif
setRecentFilterInfoMimeType ,
clearRecentFilterInfoUri ,
getRecentFilterInfoUri ,
#if defined(ENABLE_OVERLOADING)
recentFilterInfo_uri ,
#endif
setRecentFilterInfoUri ,
) 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 {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
newtype RecentFilterInfo = RecentFilterInfo (SP.ManagedPtr RecentFilterInfo)
deriving (RecentFilterInfo -> RecentFilterInfo -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RecentFilterInfo -> RecentFilterInfo -> Bool
$c/= :: RecentFilterInfo -> RecentFilterInfo -> Bool
== :: RecentFilterInfo -> RecentFilterInfo -> Bool
$c== :: RecentFilterInfo -> RecentFilterInfo -> Bool
Eq)
instance SP.ManagedPtrNewtype RecentFilterInfo where
toManagedPtr :: RecentFilterInfo -> ManagedPtr RecentFilterInfo
toManagedPtr (RecentFilterInfo ManagedPtr RecentFilterInfo
p) = ManagedPtr RecentFilterInfo
p
instance BoxedPtr RecentFilterInfo where
boxedPtrCopy :: RecentFilterInfo -> IO RecentFilterInfo
boxedPtrCopy = \RecentFilterInfo
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr RecentFilterInfo
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
56 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr RecentFilterInfo -> RecentFilterInfo
RecentFilterInfo)
boxedPtrFree :: RecentFilterInfo -> IO ()
boxedPtrFree = \RecentFilterInfo
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr RecentFilterInfo
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr RecentFilterInfo where
boxedPtrCalloc :: IO (Ptr RecentFilterInfo)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
56
newZeroRecentFilterInfo :: MonadIO m => m RecentFilterInfo
newZeroRecentFilterInfo :: forall (m :: * -> *). MonadIO m => m RecentFilterInfo
newZeroRecentFilterInfo = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr RecentFilterInfo -> RecentFilterInfo
RecentFilterInfo
instance tag ~ 'AttrSet => Constructible RecentFilterInfo tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr RecentFilterInfo -> RecentFilterInfo)
-> [AttrOp RecentFilterInfo tag] -> m RecentFilterInfo
new ManagedPtr RecentFilterInfo -> RecentFilterInfo
_ [AttrOp RecentFilterInfo tag]
attrs = do
RecentFilterInfo
o <- forall (m :: * -> *). MonadIO m => m RecentFilterInfo
newZeroRecentFilterInfo
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set RecentFilterInfo
o [AttrOp RecentFilterInfo tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return RecentFilterInfo
o
getRecentFilterInfoContains :: MonadIO m => RecentFilterInfo -> m [Gtk.Flags.RecentFilterFlags]
getRecentFilterInfoContains :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> m [RecentFilterFlags]
getRecentFilterInfoContains RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
CUInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CUInt
let val' :: [RecentFilterFlags]
val' = forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
val
forall (m :: * -> *) a. Monad m => a -> m a
return [RecentFilterFlags]
val'
setRecentFilterInfoContains :: MonadIO m => RecentFilterInfo -> [Gtk.Flags.RecentFilterFlags] -> m ()
setRecentFilterInfoContains :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> [RecentFilterFlags] -> m ()
setRecentFilterInfoContains RecentFilterInfo
s [RecentFilterFlags]
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
let val' :: CUInt
val' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [RecentFilterFlags]
val
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data RecentFilterInfoContainsFieldInfo
instance AttrInfo RecentFilterInfoContainsFieldInfo where
type AttrBaseTypeConstraint RecentFilterInfoContainsFieldInfo = (~) RecentFilterInfo
type AttrAllowedOps RecentFilterInfoContainsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RecentFilterInfoContainsFieldInfo = (~) [Gtk.Flags.RecentFilterFlags]
type AttrTransferTypeConstraint RecentFilterInfoContainsFieldInfo = (~)[Gtk.Flags.RecentFilterFlags]
type AttrTransferType RecentFilterInfoContainsFieldInfo = [Gtk.Flags.RecentFilterFlags]
type AttrGetType RecentFilterInfoContainsFieldInfo = [Gtk.Flags.RecentFilterFlags]
type AttrLabel RecentFilterInfoContainsFieldInfo = "contains"
type AttrOrigin RecentFilterInfoContainsFieldInfo = RecentFilterInfo
attrGet = getRecentFilterInfoContains
attrSet = setRecentFilterInfoContains
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentFilterInfo.contains"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentFilterInfo.html#g:attr:contains"
})
recentFilterInfo_contains :: AttrLabelProxy "contains"
recentFilterInfo_contains = AttrLabelProxy
#endif
getRecentFilterInfoUri :: MonadIO m => RecentFilterInfo -> m (Maybe T.Text)
getRecentFilterInfoUri :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> m (Maybe Text)
getRecentFilterInfoUri RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
CString
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO CString
Maybe Text
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val forall a b. (a -> b) -> a -> b
$ \CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
cstringToText CString
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setRecentFilterInfoUri :: MonadIO m => RecentFilterInfo -> CString -> m ()
setRecentFilterInfoUri :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> CString -> m ()
setRecentFilterInfoUri RecentFilterInfo
s CString
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (CString
val :: CString)
clearRecentFilterInfoUri :: MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoUri :: forall (m :: * -> *). MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoUri RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RecentFilterInfoUriFieldInfo
instance AttrInfo RecentFilterInfoUriFieldInfo where
type AttrBaseTypeConstraint RecentFilterInfoUriFieldInfo = (~) RecentFilterInfo
type AttrAllowedOps RecentFilterInfoUriFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentFilterInfoUriFieldInfo = (~) CString
type AttrTransferTypeConstraint RecentFilterInfoUriFieldInfo = (~)CString
type AttrTransferType RecentFilterInfoUriFieldInfo = CString
type AttrGetType RecentFilterInfoUriFieldInfo = Maybe T.Text
type AttrLabel RecentFilterInfoUriFieldInfo = "uri"
type AttrOrigin RecentFilterInfoUriFieldInfo = RecentFilterInfo
attrGet = getRecentFilterInfoUri
attrSet = setRecentFilterInfoUri
attrConstruct = undefined
attrClear = clearRecentFilterInfoUri
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentFilterInfo.uri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentFilterInfo.html#g:attr:uri"
})
recentFilterInfo_uri :: AttrLabelProxy "uri"
recentFilterInfo_uri = AttrLabelProxy
#endif
getRecentFilterInfoDisplayName :: MonadIO m => RecentFilterInfo -> m (Maybe T.Text)
getRecentFilterInfoDisplayName :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> m (Maybe Text)
getRecentFilterInfoDisplayName RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
CString
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO CString
Maybe Text
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val forall a b. (a -> b) -> a -> b
$ \CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
cstringToText CString
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setRecentFilterInfoDisplayName :: MonadIO m => RecentFilterInfo -> CString -> m ()
setRecentFilterInfoDisplayName :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> CString -> m ()
setRecentFilterInfoDisplayName RecentFilterInfo
s CString
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (CString
val :: CString)
clearRecentFilterInfoDisplayName :: MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoDisplayName :: forall (m :: * -> *). MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoDisplayName RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RecentFilterInfoDisplayNameFieldInfo
instance AttrInfo RecentFilterInfoDisplayNameFieldInfo where
type AttrBaseTypeConstraint RecentFilterInfoDisplayNameFieldInfo = (~) RecentFilterInfo
type AttrAllowedOps RecentFilterInfoDisplayNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentFilterInfoDisplayNameFieldInfo = (~) CString
type AttrTransferTypeConstraint RecentFilterInfoDisplayNameFieldInfo = (~)CString
type AttrTransferType RecentFilterInfoDisplayNameFieldInfo = CString
type AttrGetType RecentFilterInfoDisplayNameFieldInfo = Maybe T.Text
type AttrLabel RecentFilterInfoDisplayNameFieldInfo = "display_name"
type AttrOrigin RecentFilterInfoDisplayNameFieldInfo = RecentFilterInfo
attrGet = getRecentFilterInfoDisplayName
attrSet = setRecentFilterInfoDisplayName
attrConstruct = undefined
attrClear = clearRecentFilterInfoDisplayName
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentFilterInfo.displayName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentFilterInfo.html#g:attr:displayName"
})
recentFilterInfo_displayName :: AttrLabelProxy "displayName"
recentFilterInfo_displayName = AttrLabelProxy
#endif
getRecentFilterInfoMimeType :: MonadIO m => RecentFilterInfo -> m (Maybe T.Text)
getRecentFilterInfoMimeType :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> m (Maybe Text)
getRecentFilterInfoMimeType RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
CString
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO CString
Maybe Text
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val forall a b. (a -> b) -> a -> b
$ \CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
cstringToText CString
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setRecentFilterInfoMimeType :: MonadIO m => RecentFilterInfo -> CString -> m ()
setRecentFilterInfoMimeType :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> CString -> m ()
setRecentFilterInfoMimeType RecentFilterInfo
s CString
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (CString
val :: CString)
clearRecentFilterInfoMimeType :: MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoMimeType :: forall (m :: * -> *). MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoMimeType RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RecentFilterInfoMimeTypeFieldInfo
instance AttrInfo RecentFilterInfoMimeTypeFieldInfo where
type AttrBaseTypeConstraint RecentFilterInfoMimeTypeFieldInfo = (~) RecentFilterInfo
type AttrAllowedOps RecentFilterInfoMimeTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentFilterInfoMimeTypeFieldInfo = (~) CString
type AttrTransferTypeConstraint RecentFilterInfoMimeTypeFieldInfo = (~)CString
type AttrTransferType RecentFilterInfoMimeTypeFieldInfo = CString
type AttrGetType RecentFilterInfoMimeTypeFieldInfo = Maybe T.Text
type AttrLabel RecentFilterInfoMimeTypeFieldInfo = "mime_type"
type AttrOrigin RecentFilterInfoMimeTypeFieldInfo = RecentFilterInfo
attrGet = getRecentFilterInfoMimeType
attrSet = setRecentFilterInfoMimeType
attrConstruct = undefined
attrClear = clearRecentFilterInfoMimeType
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentFilterInfo.mimeType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentFilterInfo.html#g:attr:mimeType"
})
recentFilterInfo_mimeType :: AttrLabelProxy "mimeType"
recentFilterInfo_mimeType = AttrLabelProxy
#endif
getRecentFilterInfoApplications :: MonadIO m => RecentFilterInfo -> m (Maybe [T.Text])
getRecentFilterInfoApplications :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> m (Maybe [Text])
getRecentFilterInfoApplications RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
Ptr CString
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO (Ptr CString)
Maybe [Text]
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr CString
val forall a b. (a -> b) -> a -> b
$ \Ptr CString
val' -> do
[Text]
val'' <- HasCallStack => Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
val'
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe [Text]
result
setRecentFilterInfoApplications :: MonadIO m => RecentFilterInfo -> Ptr CString -> m ()
setRecentFilterInfoApplications :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> Ptr CString -> m ()
setRecentFilterInfoApplications RecentFilterInfo
s Ptr CString
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (Ptr CString
val :: Ptr CString)
clearRecentFilterInfoApplications :: MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoApplications :: forall (m :: * -> *). MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoApplications RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (forall a. Ptr a
FP.nullPtr :: Ptr CString)
#if defined(ENABLE_OVERLOADING)
data RecentFilterInfoApplicationsFieldInfo
instance AttrInfo RecentFilterInfoApplicationsFieldInfo where
type AttrBaseTypeConstraint RecentFilterInfoApplicationsFieldInfo = (~) RecentFilterInfo
type AttrAllowedOps RecentFilterInfoApplicationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentFilterInfoApplicationsFieldInfo = (~) (Ptr CString)
type AttrTransferTypeConstraint RecentFilterInfoApplicationsFieldInfo = (~)(Ptr CString)
type AttrTransferType RecentFilterInfoApplicationsFieldInfo = (Ptr CString)
type AttrGetType RecentFilterInfoApplicationsFieldInfo = Maybe [T.Text]
type AttrLabel RecentFilterInfoApplicationsFieldInfo = "applications"
type AttrOrigin RecentFilterInfoApplicationsFieldInfo = RecentFilterInfo
attrGet = getRecentFilterInfoApplications
attrSet = setRecentFilterInfoApplications
attrConstruct = undefined
attrClear = clearRecentFilterInfoApplications
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentFilterInfo.applications"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentFilterInfo.html#g:attr:applications"
})
recentFilterInfo_applications :: AttrLabelProxy "applications"
recentFilterInfo_applications = AttrLabelProxy
#endif
getRecentFilterInfoGroups :: MonadIO m => RecentFilterInfo -> m (Maybe [T.Text])
getRecentFilterInfoGroups :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> m (Maybe [Text])
getRecentFilterInfoGroups RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
Ptr CString
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO (Ptr CString)
Maybe [Text]
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr CString
val forall a b. (a -> b) -> a -> b
$ \Ptr CString
val' -> do
[Text]
val'' <- HasCallStack => Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
val'
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe [Text]
result
setRecentFilterInfoGroups :: MonadIO m => RecentFilterInfo -> Ptr CString -> m ()
setRecentFilterInfoGroups :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> Ptr CString -> m ()
setRecentFilterInfoGroups RecentFilterInfo
s Ptr CString
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (Ptr CString
val :: Ptr CString)
clearRecentFilterInfoGroups :: MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoGroups :: forall (m :: * -> *). MonadIO m => RecentFilterInfo -> m ()
clearRecentFilterInfoGroups RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (forall a. Ptr a
FP.nullPtr :: Ptr CString)
#if defined(ENABLE_OVERLOADING)
data RecentFilterInfoGroupsFieldInfo
instance AttrInfo RecentFilterInfoGroupsFieldInfo where
type AttrBaseTypeConstraint RecentFilterInfoGroupsFieldInfo = (~) RecentFilterInfo
type AttrAllowedOps RecentFilterInfoGroupsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentFilterInfoGroupsFieldInfo = (~) (Ptr CString)
type AttrTransferTypeConstraint RecentFilterInfoGroupsFieldInfo = (~)(Ptr CString)
type AttrTransferType RecentFilterInfoGroupsFieldInfo = (Ptr CString)
type AttrGetType RecentFilterInfoGroupsFieldInfo = Maybe [T.Text]
type AttrLabel RecentFilterInfoGroupsFieldInfo = "groups"
type AttrOrigin RecentFilterInfoGroupsFieldInfo = RecentFilterInfo
attrGet = getRecentFilterInfoGroups
attrSet = setRecentFilterInfoGroups
attrConstruct = undefined
attrClear = clearRecentFilterInfoGroups
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentFilterInfo.groups"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentFilterInfo.html#g:attr:groups"
})
recentFilterInfo_groups :: AttrLabelProxy "groups"
recentFilterInfo_groups = AttrLabelProxy
#endif
getRecentFilterInfoAge :: MonadIO m => RecentFilterInfo -> m Int32
getRecentFilterInfoAge :: forall (m :: * -> *). MonadIO m => RecentFilterInfo -> m Int32
getRecentFilterInfoAge RecentFilterInfo
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
Int32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setRecentFilterInfoAge :: MonadIO m => RecentFilterInfo -> Int32 -> m ()
setRecentFilterInfoAge :: forall (m :: * -> *).
MonadIO m =>
RecentFilterInfo -> Int32 -> m ()
setRecentFilterInfoAge RecentFilterInfo
s Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RecentFilterInfo
s forall a b. (a -> b) -> a -> b
$ \Ptr RecentFilterInfo
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RecentFilterInfo
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (Int32
val :: Int32)
#if defined(ENABLE_OVERLOADING)
data RecentFilterInfoAgeFieldInfo
instance AttrInfo RecentFilterInfoAgeFieldInfo where
type AttrBaseTypeConstraint RecentFilterInfoAgeFieldInfo = (~) RecentFilterInfo
type AttrAllowedOps RecentFilterInfoAgeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RecentFilterInfoAgeFieldInfo = (~) Int32
type AttrTransferTypeConstraint RecentFilterInfoAgeFieldInfo = (~)Int32
type AttrTransferType RecentFilterInfoAgeFieldInfo = Int32
type AttrGetType RecentFilterInfoAgeFieldInfo = Int32
type AttrLabel RecentFilterInfoAgeFieldInfo = "age"
type AttrOrigin RecentFilterInfoAgeFieldInfo = RecentFilterInfo
attrGet = getRecentFilterInfoAge
attrSet = setRecentFilterInfoAge
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.RecentFilterInfo.age"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-RecentFilterInfo.html#g:attr:age"
})
recentFilterInfo_age :: AttrLabelProxy "age"
recentFilterInfo_age = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RecentFilterInfo
type instance O.AttributeList RecentFilterInfo = RecentFilterInfoAttributeList
type RecentFilterInfoAttributeList = ('[ '("contains", RecentFilterInfoContainsFieldInfo), '("uri", RecentFilterInfoUriFieldInfo), '("displayName", RecentFilterInfoDisplayNameFieldInfo), '("mimeType", RecentFilterInfoMimeTypeFieldInfo), '("applications", RecentFilterInfoApplicationsFieldInfo), '("groups", RecentFilterInfoGroupsFieldInfo), '("age", RecentFilterInfoAgeFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveRecentFilterInfoMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveRecentFilterInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRecentFilterInfoMethod t RecentFilterInfo, O.OverloadedMethod info RecentFilterInfo p) => OL.IsLabel t (RecentFilterInfo -> 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 ~ ResolveRecentFilterInfoMethod t RecentFilterInfo, O.OverloadedMethod info RecentFilterInfo p, R.HasField t RecentFilterInfo p) => R.HasField t RecentFilterInfo p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRecentFilterInfoMethod t RecentFilterInfo, O.OverloadedMethodInfo info RecentFilterInfo) => OL.IsLabel t (O.MethodProxy info RecentFilterInfo) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif