module GI.Gtk.Structs.ToggleActionEntry
(
ToggleActionEntry(..) ,
noToggleActionEntry ,
toggleActionEntryReadAccelerator ,
toggleActionEntryReadIsActive ,
toggleActionEntryReadLabel ,
toggleActionEntryReadName ,
toggleActionEntryReadStockId ,
toggleActionEntryReadTooltip ,
) 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 ToggleActionEntry = ToggleActionEntry (ForeignPtr ToggleActionEntry)
noToggleActionEntry :: Maybe ToggleActionEntry
noToggleActionEntry = Nothing
toggleActionEntryReadName :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
toggleActionEntryReadStockId :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadStockId s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
toggleActionEntryReadLabel :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadLabel s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
toggleActionEntryReadAccelerator :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
toggleActionEntryReadTooltip :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadTooltip s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CString
val' <- cstringToText val
return val'
toggleActionEntryReadIsActive :: ToggleActionEntry -> IO Bool
toggleActionEntryReadIsActive s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO CInt
let val' = (/= 0) val
return val'