module GI.Gtk.Structs.RecentData
(
RecentData(..) ,
noRecentData ,
recentDataReadAppExec ,
recentDataReadAppName ,
recentDataReadDescription ,
recentDataReadDisplayName ,
recentDataReadGroups ,
recentDataReadIsPrivate ,
recentDataReadMimeType ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
newtype RecentData = RecentData (ForeignPtr RecentData)
noRecentData :: Maybe RecentData
noRecentData = Nothing
recentDataReadDisplayName :: RecentData -> IO T.Text
recentDataReadDisplayName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
recentDataReadDescription :: RecentData -> IO T.Text
recentDataReadDescription s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
recentDataReadMimeType :: RecentData -> IO T.Text
recentDataReadMimeType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
recentDataReadAppName :: RecentData -> IO T.Text
recentDataReadAppName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
recentDataReadAppExec :: RecentData -> IO T.Text
recentDataReadAppExec s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CString
val' <- cstringToText val
return val'
recentDataReadGroups :: RecentData -> IO [T.Text]
recentDataReadGroups s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO (Ptr CString)
val' <- unpackZeroTerminatedUTF8CArray val
return val'
recentDataReadIsPrivate :: RecentData -> IO Bool
recentDataReadIsPrivate s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO CInt
let val' = (/= 0) val
return val'