{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.RecentData
(
RecentData(..) ,
newZeroRecentData ,
noRecentData ,
#if defined(ENABLE_OVERLOADING)
ResolveRecentDataMethod ,
#endif
clearRecentDataAppExec ,
getRecentDataAppExec ,
#if defined(ENABLE_OVERLOADING)
recentData_appExec ,
#endif
setRecentDataAppExec ,
clearRecentDataAppName ,
getRecentDataAppName ,
#if defined(ENABLE_OVERLOADING)
recentData_appName ,
#endif
setRecentDataAppName ,
clearRecentDataDescription ,
getRecentDataDescription ,
#if defined(ENABLE_OVERLOADING)
recentData_description ,
#endif
setRecentDataDescription ,
clearRecentDataDisplayName ,
getRecentDataDisplayName ,
#if defined(ENABLE_OVERLOADING)
recentData_displayName ,
#endif
setRecentDataDisplayName ,
clearRecentDataGroups ,
getRecentDataGroups ,
#if defined(ENABLE_OVERLOADING)
recentData_groups ,
#endif
setRecentDataGroups ,
getRecentDataIsPrivate ,
#if defined(ENABLE_OVERLOADING)
recentData_isPrivate ,
#endif
setRecentDataIsPrivate ,
clearRecentDataMimeType ,
getRecentDataMimeType ,
#if defined(ENABLE_OVERLOADING)
recentData_mimeType ,
#endif
setRecentDataMimeType ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
newtype RecentData = RecentData (ManagedPtr RecentData)
deriving (Eq)
instance WrappedPtr RecentData where
wrappedPtrCalloc = callocBytes 28
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 28 >=> wrapPtr RecentData)
wrappedPtrFree = Just ptr_to_g_free
newZeroRecentData :: MonadIO m => m RecentData
newZeroRecentData = liftIO $ wrappedPtrCalloc >>= wrapPtr RecentData
instance tag ~ 'AttrSet => Constructible RecentData tag where
new _ attrs = do
o <- newZeroRecentData
GI.Attributes.set o attrs
return o
noRecentData :: Maybe RecentData
noRecentData = Nothing
getRecentDataDisplayName :: MonadIO m => RecentData -> m (Maybe T.Text)
getRecentDataDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRecentDataDisplayName :: MonadIO m => RecentData -> CString -> m ()
setRecentDataDisplayName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: CString)
clearRecentDataDisplayName :: MonadIO m => RecentData -> m ()
clearRecentDataDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RecentDataDisplayNameFieldInfo
instance AttrInfo RecentDataDisplayNameFieldInfo where
type AttrBaseTypeConstraint RecentDataDisplayNameFieldInfo = (~) RecentData
type AttrAllowedOps RecentDataDisplayNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentDataDisplayNameFieldInfo = (~) CString
type AttrTransferTypeConstraint RecentDataDisplayNameFieldInfo = (~)CString
type AttrTransferType RecentDataDisplayNameFieldInfo = CString
type AttrGetType RecentDataDisplayNameFieldInfo = Maybe T.Text
type AttrLabel RecentDataDisplayNameFieldInfo = "display_name"
type AttrOrigin RecentDataDisplayNameFieldInfo = RecentData
attrGet = getRecentDataDisplayName
attrSet = setRecentDataDisplayName
attrConstruct = undefined
attrClear = clearRecentDataDisplayName
attrTransfer _ v = do
return v
recentData_displayName :: AttrLabelProxy "displayName"
recentData_displayName = AttrLabelProxy
#endif
getRecentDataDescription :: MonadIO m => RecentData -> m (Maybe T.Text)
getRecentDataDescription s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRecentDataDescription :: MonadIO m => RecentData -> CString -> m ()
setRecentDataDescription s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: CString)
clearRecentDataDescription :: MonadIO m => RecentData -> m ()
clearRecentDataDescription s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RecentDataDescriptionFieldInfo
instance AttrInfo RecentDataDescriptionFieldInfo where
type AttrBaseTypeConstraint RecentDataDescriptionFieldInfo = (~) RecentData
type AttrAllowedOps RecentDataDescriptionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentDataDescriptionFieldInfo = (~) CString
type AttrTransferTypeConstraint RecentDataDescriptionFieldInfo = (~)CString
type AttrTransferType RecentDataDescriptionFieldInfo = CString
type AttrGetType RecentDataDescriptionFieldInfo = Maybe T.Text
type AttrLabel RecentDataDescriptionFieldInfo = "description"
type AttrOrigin RecentDataDescriptionFieldInfo = RecentData
attrGet = getRecentDataDescription
attrSet = setRecentDataDescription
attrConstruct = undefined
attrClear = clearRecentDataDescription
attrTransfer _ v = do
return v
recentData_description :: AttrLabelProxy "description"
recentData_description = AttrLabelProxy
#endif
getRecentDataMimeType :: MonadIO m => RecentData -> m (Maybe T.Text)
getRecentDataMimeType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRecentDataMimeType :: MonadIO m => RecentData -> CString -> m ()
setRecentDataMimeType s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: CString)
clearRecentDataMimeType :: MonadIO m => RecentData -> m ()
clearRecentDataMimeType s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RecentDataMimeTypeFieldInfo
instance AttrInfo RecentDataMimeTypeFieldInfo where
type AttrBaseTypeConstraint RecentDataMimeTypeFieldInfo = (~) RecentData
type AttrAllowedOps RecentDataMimeTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentDataMimeTypeFieldInfo = (~) CString
type AttrTransferTypeConstraint RecentDataMimeTypeFieldInfo = (~)CString
type AttrTransferType RecentDataMimeTypeFieldInfo = CString
type AttrGetType RecentDataMimeTypeFieldInfo = Maybe T.Text
type AttrLabel RecentDataMimeTypeFieldInfo = "mime_type"
type AttrOrigin RecentDataMimeTypeFieldInfo = RecentData
attrGet = getRecentDataMimeType
attrSet = setRecentDataMimeType
attrConstruct = undefined
attrClear = clearRecentDataMimeType
attrTransfer _ v = do
return v
recentData_mimeType :: AttrLabelProxy "mimeType"
recentData_mimeType = AttrLabelProxy
#endif
getRecentDataAppName :: MonadIO m => RecentData -> m (Maybe T.Text)
getRecentDataAppName s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRecentDataAppName :: MonadIO m => RecentData -> CString -> m ()
setRecentDataAppName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (val :: CString)
clearRecentDataAppName :: MonadIO m => RecentData -> m ()
clearRecentDataAppName s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RecentDataAppNameFieldInfo
instance AttrInfo RecentDataAppNameFieldInfo where
type AttrBaseTypeConstraint RecentDataAppNameFieldInfo = (~) RecentData
type AttrAllowedOps RecentDataAppNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentDataAppNameFieldInfo = (~) CString
type AttrTransferTypeConstraint RecentDataAppNameFieldInfo = (~)CString
type AttrTransferType RecentDataAppNameFieldInfo = CString
type AttrGetType RecentDataAppNameFieldInfo = Maybe T.Text
type AttrLabel RecentDataAppNameFieldInfo = "app_name"
type AttrOrigin RecentDataAppNameFieldInfo = RecentData
attrGet = getRecentDataAppName
attrSet = setRecentDataAppName
attrConstruct = undefined
attrClear = clearRecentDataAppName
attrTransfer _ v = do
return v
recentData_appName :: AttrLabelProxy "appName"
recentData_appName = AttrLabelProxy
#endif
getRecentDataAppExec :: MonadIO m => RecentData -> m (Maybe T.Text)
getRecentDataAppExec s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRecentDataAppExec :: MonadIO m => RecentData -> CString -> m ()
setRecentDataAppExec s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: CString)
clearRecentDataAppExec :: MonadIO m => RecentData -> m ()
clearRecentDataAppExec s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RecentDataAppExecFieldInfo
instance AttrInfo RecentDataAppExecFieldInfo where
type AttrBaseTypeConstraint RecentDataAppExecFieldInfo = (~) RecentData
type AttrAllowedOps RecentDataAppExecFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentDataAppExecFieldInfo = (~) CString
type AttrTransferTypeConstraint RecentDataAppExecFieldInfo = (~)CString
type AttrTransferType RecentDataAppExecFieldInfo = CString
type AttrGetType RecentDataAppExecFieldInfo = Maybe T.Text
type AttrLabel RecentDataAppExecFieldInfo = "app_exec"
type AttrOrigin RecentDataAppExecFieldInfo = RecentData
attrGet = getRecentDataAppExec
attrSet = setRecentDataAppExec
attrConstruct = undefined
attrClear = clearRecentDataAppExec
attrTransfer _ v = do
return v
recentData_appExec :: AttrLabelProxy "appExec"
recentData_appExec = AttrLabelProxy
#endif
getRecentDataGroups :: MonadIO m => RecentData -> m (Maybe [T.Text])
getRecentDataGroups s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO (Ptr CString)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackZeroTerminatedUTF8CArray val'
return val''
return result
setRecentDataGroups :: MonadIO m => RecentData -> Ptr CString -> m ()
setRecentDataGroups s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (val :: Ptr CString)
clearRecentDataGroups :: MonadIO m => RecentData -> m ()
clearRecentDataGroups s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (FP.nullPtr :: Ptr CString)
#if defined(ENABLE_OVERLOADING)
data RecentDataGroupsFieldInfo
instance AttrInfo RecentDataGroupsFieldInfo where
type AttrBaseTypeConstraint RecentDataGroupsFieldInfo = (~) RecentData
type AttrAllowedOps RecentDataGroupsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RecentDataGroupsFieldInfo = (~) (Ptr CString)
type AttrTransferTypeConstraint RecentDataGroupsFieldInfo = (~)(Ptr CString)
type AttrTransferType RecentDataGroupsFieldInfo = (Ptr CString)
type AttrGetType RecentDataGroupsFieldInfo = Maybe [T.Text]
type AttrLabel RecentDataGroupsFieldInfo = "groups"
type AttrOrigin RecentDataGroupsFieldInfo = RecentData
attrGet = getRecentDataGroups
attrSet = setRecentDataGroups
attrConstruct = undefined
attrClear = clearRecentDataGroups
attrTransfer _ v = do
return v
recentData_groups :: AttrLabelProxy "groups"
recentData_groups = AttrLabelProxy
#endif
getRecentDataIsPrivate :: MonadIO m => RecentData -> m Bool
getRecentDataIsPrivate s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CInt
let val' = (/= 0) val
return val'
setRecentDataIsPrivate :: MonadIO m => RecentData -> Bool -> m ()
setRecentDataIsPrivate s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 24) (val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data RecentDataIsPrivateFieldInfo
instance AttrInfo RecentDataIsPrivateFieldInfo where
type AttrBaseTypeConstraint RecentDataIsPrivateFieldInfo = (~) RecentData
type AttrAllowedOps RecentDataIsPrivateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RecentDataIsPrivateFieldInfo = (~) Bool
type AttrTransferTypeConstraint RecentDataIsPrivateFieldInfo = (~)Bool
type AttrTransferType RecentDataIsPrivateFieldInfo = Bool
type AttrGetType RecentDataIsPrivateFieldInfo = Bool
type AttrLabel RecentDataIsPrivateFieldInfo = "is_private"
type AttrOrigin RecentDataIsPrivateFieldInfo = RecentData
attrGet = getRecentDataIsPrivate
attrSet = setRecentDataIsPrivate
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
recentData_isPrivate :: AttrLabelProxy "isPrivate"
recentData_isPrivate = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RecentData
type instance O.AttributeList RecentData = RecentDataAttributeList
type RecentDataAttributeList = ('[ '("displayName", RecentDataDisplayNameFieldInfo), '("description", RecentDataDescriptionFieldInfo), '("mimeType", RecentDataMimeTypeFieldInfo), '("appName", RecentDataAppNameFieldInfo), '("appExec", RecentDataAppExecFieldInfo), '("groups", RecentDataGroupsFieldInfo), '("isPrivate", RecentDataIsPrivateFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveRecentDataMethod (t :: Symbol) (o :: *) :: * where
ResolveRecentDataMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRecentDataMethod t RecentData, O.MethodInfo info RecentData p) => OL.IsLabel t (RecentData -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif