module GI.Gio.Objects.MenuLinkIter
(
MenuLinkIter(..) ,
MenuLinkIterK ,
toMenuLinkIter ,
noMenuLinkIter ,
menuLinkIterGetName ,
menuLinkIterGetNext ,
menuLinkIterGetValue ,
menuLinkIterNext ,
) 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.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GObject as GObject
newtype MenuLinkIter = MenuLinkIter (ForeignPtr MenuLinkIter)
foreign import ccall "g_menu_link_iter_get_type"
c_g_menu_link_iter_get_type :: IO GType
type instance ParentTypes MenuLinkIter = MenuLinkIterParentTypes
type MenuLinkIterParentTypes = '[GObject.Object]
instance GObject MenuLinkIter where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_menu_link_iter_get_type
class GObject o => MenuLinkIterK o
instance (GObject o, IsDescendantOf MenuLinkIter o) => MenuLinkIterK o
toMenuLinkIter :: MenuLinkIterK o => o -> IO MenuLinkIter
toMenuLinkIter = unsafeCastTo MenuLinkIter
noMenuLinkIter :: Maybe MenuLinkIter
noMenuLinkIter = Nothing
type instance AttributeList MenuLinkIter = MenuLinkIterAttributeList
type MenuLinkIterAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList MenuLinkIter = MenuLinkIterSignalList
type MenuLinkIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_menu_link_iter_get_name" g_menu_link_iter_get_name ::
Ptr MenuLinkIter ->
IO CString
menuLinkIterGetName ::
(MonadIO m, MenuLinkIterK a) =>
a ->
m T.Text
menuLinkIterGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_menu_link_iter_get_name _obj'
checkUnexpectedReturnNULL "g_menu_link_iter_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "g_menu_link_iter_get_next" g_menu_link_iter_get_next ::
Ptr MenuLinkIter ->
Ptr CString ->
Ptr (Ptr MenuModel) ->
IO CInt
menuLinkIterGetNext ::
(MonadIO m, MenuLinkIterK a) =>
a ->
m (Bool,T.Text,MenuModel)
menuLinkIterGetNext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
out_link <- allocMem :: IO (Ptr CString)
value <- allocMem :: IO (Ptr (Ptr MenuModel))
result <- g_menu_link_iter_get_next _obj' out_link value
let result' = (/= 0) result
out_link' <- peek out_link
out_link'' <- cstringToText out_link'
value' <- peek value
value'' <- (wrapObject MenuModel) value'
touchManagedPtr _obj
freeMem out_link
freeMem value
return (result', out_link'', value'')
foreign import ccall "g_menu_link_iter_get_value" g_menu_link_iter_get_value ::
Ptr MenuLinkIter ->
IO (Ptr MenuModel)
menuLinkIterGetValue ::
(MonadIO m, MenuLinkIterK a) =>
a ->
m MenuModel
menuLinkIterGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_menu_link_iter_get_value _obj'
checkUnexpectedReturnNULL "g_menu_link_iter_get_value" result
result' <- (wrapObject MenuModel) result
touchManagedPtr _obj
return result'
foreign import ccall "g_menu_link_iter_next" g_menu_link_iter_next ::
Ptr MenuLinkIter ->
IO CInt
menuLinkIterNext ::
(MonadIO m, MenuLinkIterK a) =>
a ->
m Bool
menuLinkIterNext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_menu_link_iter_next _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'