module GI.Gtk.Structs.StockItem
(
StockItem(..) ,
noStockItem ,
stockItemFree ,
stockItemReadKeyval ,
stockItemReadLabel ,
stockItemReadModifier ,
stockItemReadStockId ,
stockItemReadTranslationDomain ,
) 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
import qualified GI.Gdk as Gdk
newtype StockItem = StockItem (ForeignPtr StockItem)
noStockItem :: Maybe StockItem
noStockItem = Nothing
stockItemReadStockId :: StockItem -> IO T.Text
stockItemReadStockId s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
stockItemReadLabel :: StockItem -> IO T.Text
stockItemReadLabel s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
stockItemReadModifier :: StockItem -> IO [Gdk.ModifierType]
stockItemReadModifier s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CUInt
let val' = wordToGFlags val
return val'
stockItemReadKeyval :: StockItem -> IO Word32
stockItemReadKeyval s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
stockItemReadTranslationDomain :: StockItem -> IO T.Text
stockItemReadTranslationDomain s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
foreign import ccall "gtk_stock_item_free" gtk_stock_item_free ::
Ptr StockItem ->
IO ()
stockItemFree ::
(MonadIO m) =>
StockItem ->
m ()
stockItemFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_stock_item_free _obj'
touchManagedPtr _obj
return ()