{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Dbusmenu.Objects.Menuitem
(
Menuitem(..) ,
IsMenuitem ,
toMenuitem ,
#if defined(ENABLE_OVERLOADING)
ResolveMenuitemMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MenuitemChildAddPositionMethodInfo ,
#endif
menuitemChildAddPosition ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildAppendMethodInfo ,
#endif
menuitemChildAppend ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildDeleteMethodInfo ,
#endif
menuitemChildDelete ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildFindMethodInfo ,
#endif
menuitemChildFind ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildPrependMethodInfo ,
#endif
menuitemChildPrepend ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildReorderMethodInfo ,
#endif
menuitemChildReorder ,
#if defined(ENABLE_OVERLOADING)
MenuitemFindIdMethodInfo ,
#endif
menuitemFindId ,
#if defined(ENABLE_OVERLOADING)
MenuitemForeachMethodInfo ,
#endif
menuitemForeach ,
#if defined(ENABLE_OVERLOADING)
MenuitemGetChildrenMethodInfo ,
#endif
menuitemGetChildren ,
#if defined(ENABLE_OVERLOADING)
MenuitemGetIdMethodInfo ,
#endif
menuitemGetId ,
#if defined(ENABLE_OVERLOADING)
MenuitemGetParentMethodInfo ,
#endif
menuitemGetParent ,
#if defined(ENABLE_OVERLOADING)
MenuitemGetPositionMethodInfo ,
#endif
menuitemGetPosition ,
#if defined(ENABLE_OVERLOADING)
MenuitemGetPositionRealizedMethodInfo ,
#endif
menuitemGetPositionRealized ,
#if defined(ENABLE_OVERLOADING)
MenuitemGetRootMethodInfo ,
#endif
menuitemGetRoot ,
#if defined(ENABLE_OVERLOADING)
MenuitemHandleEventMethodInfo ,
#endif
menuitemHandleEvent ,
menuitemNew ,
menuitemNewWithId ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertiesCopyMethodInfo ,
#endif
menuitemPropertiesCopy ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertiesListMethodInfo ,
#endif
menuitemPropertiesList ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertyExistMethodInfo ,
#endif
menuitemPropertyExist ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertyGetMethodInfo ,
#endif
menuitemPropertyGet ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertyGetBoolMethodInfo ,
#endif
menuitemPropertyGetBool ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertyGetByteArrayMethodInfo ,
#endif
menuitemPropertyGetByteArray ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertyGetIntMethodInfo ,
#endif
menuitemPropertyGetInt ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertyGetVariantMethodInfo ,
#endif
menuitemPropertyGetVariant ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertyRemoveMethodInfo ,
#endif
menuitemPropertyRemove ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertySetMethodInfo ,
#endif
menuitemPropertySet ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertySetBoolMethodInfo ,
#endif
menuitemPropertySetBool ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertySetByteArrayMethodInfo ,
#endif
menuitemPropertySetByteArray ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertySetIntMethodInfo ,
#endif
menuitemPropertySetInt ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertySetVariantMethodInfo ,
#endif
menuitemPropertySetVariant ,
#if defined(ENABLE_OVERLOADING)
MenuitemSendAboutToShowMethodInfo ,
#endif
menuitemSendAboutToShow ,
#if defined(ENABLE_OVERLOADING)
MenuitemSetParentMethodInfo ,
#endif
menuitemSetParent ,
#if defined(ENABLE_OVERLOADING)
MenuitemSetRootMethodInfo ,
#endif
menuitemSetRoot ,
#if defined(ENABLE_OVERLOADING)
MenuitemShowToUserMethodInfo ,
#endif
menuitemShowToUser ,
#if defined(ENABLE_OVERLOADING)
MenuitemTakeChildrenMethodInfo ,
#endif
menuitemTakeChildren ,
#if defined(ENABLE_OVERLOADING)
MenuitemUnparentMethodInfo ,
#endif
menuitemUnparent ,
#if defined(ENABLE_OVERLOADING)
MenuitemIdPropertyInfo ,
#endif
constructMenuitemId ,
getMenuitemId ,
#if defined(ENABLE_OVERLOADING)
menuitemId ,
#endif
MenuitemAboutToShowCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemAboutToShowSignalInfo ,
#endif
afterMenuitemAboutToShow ,
onMenuitemAboutToShow ,
MenuitemChildAddedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildAddedSignalInfo ,
#endif
afterMenuitemChildAdded ,
onMenuitemChildAdded ,
MenuitemChildMovedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildMovedSignalInfo ,
#endif
afterMenuitemChildMoved ,
onMenuitemChildMoved ,
MenuitemChildRemovedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildRemovedSignalInfo ,
#endif
afterMenuitemChildRemoved ,
onMenuitemChildRemoved ,
MenuitemEventCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemEventSignalInfo ,
#endif
afterMenuitemEvent ,
onMenuitemEvent ,
MenuitemItemActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemItemActivatedSignalInfo ,
#endif
afterMenuitemItemActivated ,
onMenuitemItemActivated ,
MenuitemPropertyChangedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertyChangedSignalInfo ,
#endif
afterMenuitemPropertyChanged ,
onMenuitemPropertyChanged ,
MenuitemRealizedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemRealizedSignalInfo ,
#endif
afterMenuitemRealized ,
onMenuitemRealized ,
MenuitemShowToUserCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemShowToUserSignalInfo ,
#endif
afterMenuitemShowToUser ,
onMenuitemShowToUser ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
newtype = (SP.ManagedPtr Menuitem)
deriving (Menuitem -> Menuitem -> Bool
(Menuitem -> Menuitem -> Bool)
-> (Menuitem -> Menuitem -> Bool) -> Eq Menuitem
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Menuitem -> Menuitem -> Bool
== :: Menuitem -> Menuitem -> Bool
$c/= :: Menuitem -> Menuitem -> Bool
/= :: Menuitem -> Menuitem -> Bool
Eq)
instance SP.ManagedPtrNewtype Menuitem where
toManagedPtr :: Menuitem -> ManagedPtr Menuitem
toManagedPtr (Menuitem ManagedPtr Menuitem
p) = ManagedPtr Menuitem
p
foreign import ccall "dbusmenu_menuitem_get_type"
:: IO B.Types.GType
instance B.Types.TypedObject Menuitem where
glibType :: IO GType
glibType = IO GType
c_dbusmenu_menuitem_get_type
instance B.Types.GObject Menuitem
class (SP.GObject o, O.IsDescendantOf Menuitem o) => o
instance (SP.GObject o, O.IsDescendantOf Menuitem o) => IsMenuitem o
instance O.HasParentTypes Menuitem
type instance O.ParentTypes Menuitem = '[GObject.Object.Object]
toMenuitem :: (MIO.MonadIO m, IsMenuitem o) => o -> m Menuitem
= IO Menuitem -> m Menuitem
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Menuitem -> m Menuitem)
-> (o -> IO Menuitem) -> o -> m Menuitem
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Menuitem -> Menuitem) -> o -> IO Menuitem
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Menuitem -> Menuitem
Menuitem
instance B.GValue.IsGValue (Maybe Menuitem) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_dbusmenu_menuitem_get_type
gvalueSet_ :: Ptr GValue -> Maybe Menuitem -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Menuitem
P.Nothing = Ptr GValue -> Ptr Menuitem -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Menuitem
forall a. Ptr a
FP.nullPtr :: FP.Ptr Menuitem)
gvalueSet_ Ptr GValue
gv (P.Just Menuitem
obj) = Menuitem -> (Ptr Menuitem -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Menuitem
obj (Ptr GValue -> Ptr Menuitem -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Menuitem)
gvalueGet_ Ptr GValue
gv = do
Ptr Menuitem
ptr <- Ptr GValue -> IO (Ptr Menuitem)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Menuitem)
if Ptr Menuitem
ptr Ptr Menuitem -> Ptr Menuitem -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Menuitem
forall a. Ptr a
FP.nullPtr
then Menuitem -> Maybe Menuitem
forall a. a -> Maybe a
P.Just (Menuitem -> Maybe Menuitem) -> IO Menuitem -> IO (Maybe Menuitem)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Menuitem -> Menuitem) -> Ptr Menuitem -> IO Menuitem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Menuitem -> Menuitem
Menuitem Ptr Menuitem
ptr
else Maybe Menuitem -> IO (Maybe Menuitem)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Menuitem
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveMenuitemMethod (t :: Symbol) (o :: *) :: * where
ResolveMenuitemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMenuitemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMenuitemMethod "childAddPosition" o = MenuitemChildAddPositionMethodInfo
ResolveMenuitemMethod "childAppend" o = MenuitemChildAppendMethodInfo
ResolveMenuitemMethod "childDelete" o = MenuitemChildDeleteMethodInfo
ResolveMenuitemMethod "childFind" o = MenuitemChildFindMethodInfo
ResolveMenuitemMethod "childPrepend" o = MenuitemChildPrependMethodInfo
ResolveMenuitemMethod "childReorder" o = MenuitemChildReorderMethodInfo
ResolveMenuitemMethod "findId" o = MenuitemFindIdMethodInfo
ResolveMenuitemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMenuitemMethod "foreach" o = MenuitemForeachMethodInfo
ResolveMenuitemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMenuitemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMenuitemMethod "handleEvent" o = MenuitemHandleEventMethodInfo
ResolveMenuitemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMenuitemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMenuitemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMenuitemMethod "propertiesCopy" o = MenuitemPropertiesCopyMethodInfo
ResolveMenuitemMethod "propertiesList" o = MenuitemPropertiesListMethodInfo
ResolveMenuitemMethod "propertyExist" o = MenuitemPropertyExistMethodInfo
ResolveMenuitemMethod "propertyGet" o = MenuitemPropertyGetMethodInfo
ResolveMenuitemMethod "propertyGetBool" o = MenuitemPropertyGetBoolMethodInfo
ResolveMenuitemMethod "propertyGetByteArray" o = MenuitemPropertyGetByteArrayMethodInfo
ResolveMenuitemMethod "propertyGetInt" o = MenuitemPropertyGetIntMethodInfo
ResolveMenuitemMethod "propertyGetVariant" o = MenuitemPropertyGetVariantMethodInfo
ResolveMenuitemMethod "propertyRemove" o = MenuitemPropertyRemoveMethodInfo
ResolveMenuitemMethod "propertySet" o = MenuitemPropertySetMethodInfo
ResolveMenuitemMethod "propertySetBool" o = MenuitemPropertySetBoolMethodInfo
ResolveMenuitemMethod "propertySetByteArray" o = MenuitemPropertySetByteArrayMethodInfo
ResolveMenuitemMethod "propertySetInt" o = MenuitemPropertySetIntMethodInfo
ResolveMenuitemMethod "propertySetVariant" o = MenuitemPropertySetVariantMethodInfo
ResolveMenuitemMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMenuitemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMenuitemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMenuitemMethod "sendAboutToShow" o = MenuitemSendAboutToShowMethodInfo
ResolveMenuitemMethod "showToUser" o = MenuitemShowToUserMethodInfo
ResolveMenuitemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMenuitemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMenuitemMethod "takeChildren" o = MenuitemTakeChildrenMethodInfo
ResolveMenuitemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMenuitemMethod "unparent" o = MenuitemUnparentMethodInfo
ResolveMenuitemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMenuitemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMenuitemMethod "getChildren" o = MenuitemGetChildrenMethodInfo
ResolveMenuitemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMenuitemMethod "getId" o = MenuitemGetIdMethodInfo
ResolveMenuitemMethod "getParent" o = MenuitemGetParentMethodInfo
ResolveMenuitemMethod "getPosition" o = MenuitemGetPositionMethodInfo
ResolveMenuitemMethod "getPositionRealized" o = MenuitemGetPositionRealizedMethodInfo
ResolveMenuitemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMenuitemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMenuitemMethod "getRoot" o = MenuitemGetRootMethodInfo
ResolveMenuitemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMenuitemMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveMenuitemMethod "setParent" o = MenuitemSetParentMethodInfo
ResolveMenuitemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMenuitemMethod "setRoot" o = MenuitemSetRootMethodInfo
ResolveMenuitemMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMenuitemMethod t Menuitem, O.OverloadedMethod info Menuitem p) => OL.IsLabel t (Menuitem -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveMenuitemMethod t Menuitem, O.OverloadedMethod info Menuitem p, R.HasField t Menuitem p) => R.HasField t Menuitem p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMenuitemMethod t Menuitem, O.OverloadedMethodInfo info Menuitem) => OL.IsLabel t (O.MethodProxy info Menuitem) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type =
IO Bool
type =
Ptr Menuitem ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_MenuitemAboutToShowCallback -> IO (FunPtr C_MenuitemAboutToShowCallback)
wrap_MenuitemAboutToShowCallback ::
GObject a => (a -> MenuitemAboutToShowCallback) ->
C_MenuitemAboutToShowCallback
a -> MenuitemAboutToShowCallback
gi'cb Ptr Menuitem
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr Menuitem
-> (Menuitem -> MenuitemAboutToShowCallback)
-> MenuitemAboutToShowCallback
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menuitem
gi'selfPtr ((Menuitem -> MenuitemAboutToShowCallback)
-> MenuitemAboutToShowCallback)
-> (Menuitem -> MenuitemAboutToShowCallback)
-> MenuitemAboutToShowCallback
forall a b. (a -> b) -> a -> b
$ \Menuitem
gi'self -> a -> MenuitemAboutToShowCallback
gi'cb (Menuitem -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Menuitem
gi'self)
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onMenuitemAboutToShow :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemAboutToShowCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemAboutToShowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemAboutToShowCallback
wrapped a
self = let ?self = a
?self::a
self in MenuitemAboutToShowCallback
(?self::a) => MenuitemAboutToShowCallback
cb
let wrapped' :: C_MenuitemAboutToShowCallback
wrapped' = (a -> MenuitemAboutToShowCallback) -> C_MenuitemAboutToShowCallback
forall a.
GObject a =>
(a -> MenuitemAboutToShowCallback) -> C_MenuitemAboutToShowCallback
wrap_MenuitemAboutToShowCallback a -> MenuitemAboutToShowCallback
wrapped
FunPtr C_MenuitemAboutToShowCallback
wrapped'' <- C_MenuitemAboutToShowCallback
-> IO (FunPtr C_MenuitemAboutToShowCallback)
mk_MenuitemAboutToShowCallback C_MenuitemAboutToShowCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemAboutToShowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"about-to-show" FunPtr C_MenuitemAboutToShowCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemAboutToShow :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemAboutToShowCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemAboutToShowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemAboutToShowCallback
wrapped a
self = let ?self = a
?self::a
self in MenuitemAboutToShowCallback
(?self::a) => MenuitemAboutToShowCallback
cb
let wrapped' :: C_MenuitemAboutToShowCallback
wrapped' = (a -> MenuitemAboutToShowCallback) -> C_MenuitemAboutToShowCallback
forall a.
GObject a =>
(a -> MenuitemAboutToShowCallback) -> C_MenuitemAboutToShowCallback
wrap_MenuitemAboutToShowCallback a -> MenuitemAboutToShowCallback
wrapped
FunPtr C_MenuitemAboutToShowCallback
wrapped'' <- C_MenuitemAboutToShowCallback
-> IO (FunPtr C_MenuitemAboutToShowCallback)
mk_MenuitemAboutToShowCallback C_MenuitemAboutToShowCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemAboutToShowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"about-to-show" FunPtr C_MenuitemAboutToShowCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuitemAboutToShowSignalInfo
instance SignalInfo MenuitemAboutToShowSignalInfo where
type HaskellCallbackType MenuitemAboutToShowSignalInfo = MenuitemAboutToShowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuitemAboutToShowCallback cb
cb'' <- mk_MenuitemAboutToShowCallback cb'
connectSignalFunPtr obj "about-to-show" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem::about-to-show"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:signal:aboutToShow"})
#endif
type =
GObject.Object.Object
-> Word32
-> IO ()
type =
Ptr Menuitem ->
Ptr GObject.Object.Object ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemChildAddedCallback -> IO (FunPtr C_MenuitemChildAddedCallback)
wrap_MenuitemChildAddedCallback ::
GObject a => (a -> MenuitemChildAddedCallback) ->
C_MenuitemChildAddedCallback
a -> MenuitemChildAddedCallback
gi'cb Ptr Menuitem
gi'selfPtr Ptr Object
arg1 Word32
arg2 Ptr ()
_ = do
Object
arg1' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
arg1
Ptr Menuitem -> (Menuitem -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menuitem
gi'selfPtr ((Menuitem -> IO ()) -> IO ()) -> (Menuitem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Menuitem
gi'self -> a -> MenuitemChildAddedCallback
gi'cb (Menuitem -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Menuitem
gi'self) Object
arg1' Word32
arg2
onMenuitemChildAdded :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemChildAddedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemChildAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemChildAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemChildAddedCallback
MenuitemChildAddedCallback
cb
let wrapped' :: C_MenuitemChildAddedCallback
wrapped' = (a -> MenuitemChildAddedCallback) -> C_MenuitemChildAddedCallback
forall a.
GObject a =>
(a -> MenuitemChildAddedCallback) -> C_MenuitemChildAddedCallback
wrap_MenuitemChildAddedCallback a -> MenuitemChildAddedCallback
wrapped
FunPtr C_MenuitemChildAddedCallback
wrapped'' <- C_MenuitemChildAddedCallback
-> IO (FunPtr C_MenuitemChildAddedCallback)
mk_MenuitemChildAddedCallback C_MenuitemChildAddedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemChildAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-added" FunPtr C_MenuitemChildAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemChildAdded :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemChildAddedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemChildAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemChildAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemChildAddedCallback
MenuitemChildAddedCallback
cb
let wrapped' :: C_MenuitemChildAddedCallback
wrapped' = (a -> MenuitemChildAddedCallback) -> C_MenuitemChildAddedCallback
forall a.
GObject a =>
(a -> MenuitemChildAddedCallback) -> C_MenuitemChildAddedCallback
wrap_MenuitemChildAddedCallback a -> MenuitemChildAddedCallback
wrapped
FunPtr C_MenuitemChildAddedCallback
wrapped'' <- C_MenuitemChildAddedCallback
-> IO (FunPtr C_MenuitemChildAddedCallback)
mk_MenuitemChildAddedCallback C_MenuitemChildAddedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemChildAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-added" FunPtr C_MenuitemChildAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuitemChildAddedSignalInfo
instance SignalInfo MenuitemChildAddedSignalInfo where
type HaskellCallbackType MenuitemChildAddedSignalInfo = MenuitemChildAddedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuitemChildAddedCallback cb
cb'' <- mk_MenuitemChildAddedCallback cb'
connectSignalFunPtr obj "child-added" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem::child-added"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:signal:childAdded"})
#endif
type =
GObject.Object.Object
-> Word32
-> Word32
-> IO ()
type =
Ptr Menuitem ->
Ptr GObject.Object.Object ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemChildMovedCallback -> IO (FunPtr C_MenuitemChildMovedCallback)
wrap_MenuitemChildMovedCallback ::
GObject a => (a -> MenuitemChildMovedCallback) ->
C_MenuitemChildMovedCallback
a -> MenuitemChildMovedCallback
gi'cb Ptr Menuitem
gi'selfPtr Ptr Object
arg1 Word32
arg2 Word32
arg3 Ptr ()
_ = do
Object
arg1' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
arg1
Ptr Menuitem -> (Menuitem -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menuitem
gi'selfPtr ((Menuitem -> IO ()) -> IO ()) -> (Menuitem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Menuitem
gi'self -> a -> MenuitemChildMovedCallback
gi'cb (Menuitem -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Menuitem
gi'self) Object
arg1' Word32
arg2 Word32
arg3
onMenuitemChildMoved :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemChildMovedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemChildMovedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemChildMovedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemChildMovedCallback
MenuitemChildMovedCallback
cb
let wrapped' :: C_MenuitemChildMovedCallback
wrapped' = (a -> MenuitemChildMovedCallback) -> C_MenuitemChildMovedCallback
forall a.
GObject a =>
(a -> MenuitemChildMovedCallback) -> C_MenuitemChildMovedCallback
wrap_MenuitemChildMovedCallback a -> MenuitemChildMovedCallback
wrapped
FunPtr C_MenuitemChildMovedCallback
wrapped'' <- C_MenuitemChildMovedCallback
-> IO (FunPtr C_MenuitemChildMovedCallback)
mk_MenuitemChildMovedCallback C_MenuitemChildMovedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemChildMovedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-moved" FunPtr C_MenuitemChildMovedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemChildMoved :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemChildMovedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemChildMovedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemChildMovedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemChildMovedCallback
MenuitemChildMovedCallback
cb
let wrapped' :: C_MenuitemChildMovedCallback
wrapped' = (a -> MenuitemChildMovedCallback) -> C_MenuitemChildMovedCallback
forall a.
GObject a =>
(a -> MenuitemChildMovedCallback) -> C_MenuitemChildMovedCallback
wrap_MenuitemChildMovedCallback a -> MenuitemChildMovedCallback
wrapped
FunPtr C_MenuitemChildMovedCallback
wrapped'' <- C_MenuitemChildMovedCallback
-> IO (FunPtr C_MenuitemChildMovedCallback)
mk_MenuitemChildMovedCallback C_MenuitemChildMovedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemChildMovedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-moved" FunPtr C_MenuitemChildMovedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuitemChildMovedSignalInfo
instance SignalInfo MenuitemChildMovedSignalInfo where
type HaskellCallbackType MenuitemChildMovedSignalInfo = MenuitemChildMovedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuitemChildMovedCallback cb
cb'' <- mk_MenuitemChildMovedCallback cb'
connectSignalFunPtr obj "child-moved" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem::child-moved"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:signal:childMoved"})
#endif
type =
GObject.Object.Object
-> IO ()
type =
Ptr Menuitem ->
Ptr GObject.Object.Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemChildRemovedCallback -> IO (FunPtr C_MenuitemChildRemovedCallback)
wrap_MenuitemChildRemovedCallback ::
GObject a => (a -> MenuitemChildRemovedCallback) ->
C_MenuitemChildRemovedCallback
a -> MenuitemChildRemovedCallback
gi'cb Ptr Menuitem
gi'selfPtr Ptr Object
arg1 Ptr ()
_ = do
Object
arg1' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
arg1
Ptr Menuitem -> (Menuitem -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menuitem
gi'selfPtr ((Menuitem -> IO ()) -> IO ()) -> (Menuitem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Menuitem
gi'self -> a -> MenuitemChildRemovedCallback
gi'cb (Menuitem -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Menuitem
gi'self) Object
arg1'
onMenuitemChildRemoved :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemChildRemovedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemChildRemovedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemChildRemovedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemChildRemovedCallback
MenuitemChildRemovedCallback
cb
let wrapped' :: C_MenuitemChildRemovedCallback
wrapped' = (a -> MenuitemChildRemovedCallback)
-> C_MenuitemChildRemovedCallback
forall a.
GObject a =>
(a -> MenuitemChildRemovedCallback)
-> C_MenuitemChildRemovedCallback
wrap_MenuitemChildRemovedCallback a -> MenuitemChildRemovedCallback
wrapped
FunPtr C_MenuitemChildRemovedCallback
wrapped'' <- C_MenuitemChildRemovedCallback
-> IO (FunPtr C_MenuitemChildRemovedCallback)
mk_MenuitemChildRemovedCallback C_MenuitemChildRemovedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemChildRemovedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-removed" FunPtr C_MenuitemChildRemovedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemChildRemoved :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemChildRemovedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemChildRemovedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemChildRemovedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemChildRemovedCallback
MenuitemChildRemovedCallback
cb
let wrapped' :: C_MenuitemChildRemovedCallback
wrapped' = (a -> MenuitemChildRemovedCallback)
-> C_MenuitemChildRemovedCallback
forall a.
GObject a =>
(a -> MenuitemChildRemovedCallback)
-> C_MenuitemChildRemovedCallback
wrap_MenuitemChildRemovedCallback a -> MenuitemChildRemovedCallback
wrapped
FunPtr C_MenuitemChildRemovedCallback
wrapped'' <- C_MenuitemChildRemovedCallback
-> IO (FunPtr C_MenuitemChildRemovedCallback)
mk_MenuitemChildRemovedCallback C_MenuitemChildRemovedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemChildRemovedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-removed" FunPtr C_MenuitemChildRemovedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuitemChildRemovedSignalInfo
instance SignalInfo MenuitemChildRemovedSignalInfo where
type HaskellCallbackType MenuitemChildRemovedSignalInfo = MenuitemChildRemovedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuitemChildRemovedCallback cb
cb'' <- mk_MenuitemChildRemovedCallback cb'
connectSignalFunPtr obj "child-removed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem::child-removed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:signal:childRemoved"})
#endif
type =
T.Text
-> GVariant
-> Word32
-> IO Bool
type =
Ptr Menuitem ->
CString ->
Ptr GVariant ->
Word32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_MenuitemEventCallback -> IO (FunPtr C_MenuitemEventCallback)
wrap_MenuitemEventCallback ::
GObject a => (a -> MenuitemEventCallback) ->
C_MenuitemEventCallback
a -> MenuitemEventCallback
gi'cb Ptr Menuitem
gi'selfPtr CString
arg1 Ptr GVariant
arg2 Word32
arg3 Ptr ()
_ = do
Text
arg1' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
arg1
GVariant
arg2' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
arg2
Bool
result <- Ptr Menuitem
-> (Menuitem -> MenuitemAboutToShowCallback)
-> MenuitemAboutToShowCallback
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menuitem
gi'selfPtr ((Menuitem -> MenuitemAboutToShowCallback)
-> MenuitemAboutToShowCallback)
-> (Menuitem -> MenuitemAboutToShowCallback)
-> MenuitemAboutToShowCallback
forall a b. (a -> b) -> a -> b
$ \Menuitem
gi'self -> a -> MenuitemEventCallback
gi'cb (Menuitem -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Menuitem
gi'self) Text
arg1' GVariant
arg2' Word32
arg3
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onMenuitemEvent :: (IsMenuitem a, MonadIO m) => a -> P.Maybe T.Text -> ((?self :: a) => MenuitemEventCallback) -> m SignalHandlerId
a
obj Maybe Text
detail (?self::a) => MenuitemEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemEventCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemEventCallback
MenuitemEventCallback
cb
let wrapped' :: C_MenuitemEventCallback
wrapped' = (a -> MenuitemEventCallback) -> C_MenuitemEventCallback
forall a.
GObject a =>
(a -> MenuitemEventCallback) -> C_MenuitemEventCallback
wrap_MenuitemEventCallback a -> MenuitemEventCallback
wrapped
FunPtr C_MenuitemEventCallback
wrapped'' <- C_MenuitemEventCallback -> IO (FunPtr C_MenuitemEventCallback)
mk_MenuitemEventCallback C_MenuitemEventCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemEventCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"event" FunPtr C_MenuitemEventCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
detail
afterMenuitemEvent :: (IsMenuitem a, MonadIO m) => a -> P.Maybe T.Text -> ((?self :: a) => MenuitemEventCallback) -> m SignalHandlerId
a
obj Maybe Text
detail (?self::a) => MenuitemEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemEventCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemEventCallback
MenuitemEventCallback
cb
let wrapped' :: C_MenuitemEventCallback
wrapped' = (a -> MenuitemEventCallback) -> C_MenuitemEventCallback
forall a.
GObject a =>
(a -> MenuitemEventCallback) -> C_MenuitemEventCallback
wrap_MenuitemEventCallback a -> MenuitemEventCallback
wrapped
FunPtr C_MenuitemEventCallback
wrapped'' <- C_MenuitemEventCallback -> IO (FunPtr C_MenuitemEventCallback)
mk_MenuitemEventCallback C_MenuitemEventCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemEventCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"event" FunPtr C_MenuitemEventCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
detail
#if defined(ENABLE_OVERLOADING)
data MenuitemEventSignalInfo
instance SignalInfo MenuitemEventSignalInfo where
type HaskellCallbackType MenuitemEventSignalInfo = MenuitemEventCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuitemEventCallback cb
cb'' <- mk_MenuitemEventCallback cb'
connectSignalFunPtr obj "event" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem::event"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:signal:event"})
#endif
type =
Word32
-> IO ()
type =
Ptr Menuitem ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemItemActivatedCallback -> IO (FunPtr C_MenuitemItemActivatedCallback)
wrap_MenuitemItemActivatedCallback ::
GObject a => (a -> MenuitemItemActivatedCallback) ->
C_MenuitemItemActivatedCallback
a -> MenuitemItemActivatedCallback
gi'cb Ptr Menuitem
gi'selfPtr Word32
arg1 Ptr ()
_ = do
Ptr Menuitem -> (Menuitem -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menuitem
gi'selfPtr ((Menuitem -> IO ()) -> IO ()) -> (Menuitem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Menuitem
gi'self -> a -> MenuitemItemActivatedCallback
gi'cb (Menuitem -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Menuitem
gi'self) Word32
arg1
onMenuitemItemActivated :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemItemActivatedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemItemActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemItemActivatedCallback
MenuitemItemActivatedCallback
cb
let wrapped' :: C_MenuitemItemActivatedCallback
wrapped' = (a -> MenuitemItemActivatedCallback)
-> C_MenuitemItemActivatedCallback
forall a.
GObject a =>
(a -> MenuitemItemActivatedCallback)
-> C_MenuitemItemActivatedCallback
wrap_MenuitemItemActivatedCallback a -> MenuitemItemActivatedCallback
wrapped
FunPtr C_MenuitemItemActivatedCallback
wrapped'' <- C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemItemActivatedCallback C_MenuitemItemActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemItemActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"item-activated" FunPtr C_MenuitemItemActivatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemItemActivated :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemItemActivatedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemItemActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemItemActivatedCallback
MenuitemItemActivatedCallback
cb
let wrapped' :: C_MenuitemItemActivatedCallback
wrapped' = (a -> MenuitemItemActivatedCallback)
-> C_MenuitemItemActivatedCallback
forall a.
GObject a =>
(a -> MenuitemItemActivatedCallback)
-> C_MenuitemItemActivatedCallback
wrap_MenuitemItemActivatedCallback a -> MenuitemItemActivatedCallback
wrapped
FunPtr C_MenuitemItemActivatedCallback
wrapped'' <- C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemItemActivatedCallback C_MenuitemItemActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemItemActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"item-activated" FunPtr C_MenuitemItemActivatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuitemItemActivatedSignalInfo
instance SignalInfo MenuitemItemActivatedSignalInfo where
type HaskellCallbackType MenuitemItemActivatedSignalInfo = MenuitemItemActivatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuitemItemActivatedCallback cb
cb'' <- mk_MenuitemItemActivatedCallback cb'
connectSignalFunPtr obj "item-activated" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem::item-activated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:signal:itemActivated"})
#endif
type =
T.Text
-> GVariant
-> IO ()
type =
Ptr Menuitem ->
CString ->
Ptr GVariant ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemPropertyChangedCallback -> IO (FunPtr C_MenuitemPropertyChangedCallback)
wrap_MenuitemPropertyChangedCallback ::
GObject a => (a -> MenuitemPropertyChangedCallback) ->
C_MenuitemPropertyChangedCallback
a -> MenuitemPropertyChangedCallback
gi'cb Ptr Menuitem
gi'selfPtr CString
arg1 Ptr GVariant
arg2 Ptr ()
_ = do
Text
arg1' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
arg1
GVariant
arg2' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
arg2
Ptr Menuitem -> (Menuitem -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menuitem
gi'selfPtr ((Menuitem -> IO ()) -> IO ()) -> (Menuitem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Menuitem
gi'self -> a -> MenuitemPropertyChangedCallback
gi'cb (Menuitem -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Menuitem
gi'self) Text
arg1' GVariant
arg2'
onMenuitemPropertyChanged :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemPropertyChangedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemPropertyChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemPropertyChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemPropertyChangedCallback
MenuitemPropertyChangedCallback
cb
let wrapped' :: C_MenuitemPropertyChangedCallback
wrapped' = (a -> MenuitemPropertyChangedCallback)
-> C_MenuitemPropertyChangedCallback
forall a.
GObject a =>
(a -> MenuitemPropertyChangedCallback)
-> C_MenuitemPropertyChangedCallback
wrap_MenuitemPropertyChangedCallback a -> MenuitemPropertyChangedCallback
wrapped
FunPtr C_MenuitemPropertyChangedCallback
wrapped'' <- C_MenuitemPropertyChangedCallback
-> IO (FunPtr C_MenuitemPropertyChangedCallback)
mk_MenuitemPropertyChangedCallback C_MenuitemPropertyChangedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemPropertyChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"property-changed" FunPtr C_MenuitemPropertyChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemPropertyChanged :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemPropertyChangedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemPropertyChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemPropertyChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemPropertyChangedCallback
MenuitemPropertyChangedCallback
cb
let wrapped' :: C_MenuitemPropertyChangedCallback
wrapped' = (a -> MenuitemPropertyChangedCallback)
-> C_MenuitemPropertyChangedCallback
forall a.
GObject a =>
(a -> MenuitemPropertyChangedCallback)
-> C_MenuitemPropertyChangedCallback
wrap_MenuitemPropertyChangedCallback a -> MenuitemPropertyChangedCallback
wrapped
FunPtr C_MenuitemPropertyChangedCallback
wrapped'' <- C_MenuitemPropertyChangedCallback
-> IO (FunPtr C_MenuitemPropertyChangedCallback)
mk_MenuitemPropertyChangedCallback C_MenuitemPropertyChangedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemPropertyChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"property-changed" FunPtr C_MenuitemPropertyChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyChangedSignalInfo
instance SignalInfo MenuitemPropertyChangedSignalInfo where
type HaskellCallbackType MenuitemPropertyChangedSignalInfo = MenuitemPropertyChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuitemPropertyChangedCallback cb
cb'' <- mk_MenuitemPropertyChangedCallback cb'
connectSignalFunPtr obj "property-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem::property-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:signal:propertyChanged"})
#endif
type =
IO ()
type =
Ptr Menuitem ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemRealizedCallback -> IO (FunPtr C_MenuitemRealizedCallback)
wrap_MenuitemRealizedCallback ::
GObject a => (a -> MenuitemRealizedCallback) ->
C_MenuitemRealizedCallback
a -> IO ()
gi'cb Ptr Menuitem
gi'selfPtr Ptr ()
_ = do
Ptr Menuitem -> (Menuitem -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menuitem
gi'selfPtr ((Menuitem -> IO ()) -> IO ()) -> (Menuitem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Menuitem
gi'self -> a -> IO ()
gi'cb (Menuitem -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Menuitem
gi'self)
onMenuitemRealized :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemRealizedCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_MenuitemRealizedCallback
wrapped' = (a -> IO ()) -> C_MenuitemRealizedCallback
forall a. GObject a => (a -> IO ()) -> C_MenuitemRealizedCallback
wrap_MenuitemRealizedCallback a -> IO ()
wrapped
FunPtr C_MenuitemRealizedCallback
wrapped'' <- C_MenuitemRealizedCallback
-> IO (FunPtr C_MenuitemRealizedCallback)
mk_MenuitemRealizedCallback C_MenuitemRealizedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemRealizedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"realized" FunPtr C_MenuitemRealizedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemRealized :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemRealizedCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_MenuitemRealizedCallback
wrapped' = (a -> IO ()) -> C_MenuitemRealizedCallback
forall a. GObject a => (a -> IO ()) -> C_MenuitemRealizedCallback
wrap_MenuitemRealizedCallback a -> IO ()
wrapped
FunPtr C_MenuitemRealizedCallback
wrapped'' <- C_MenuitemRealizedCallback
-> IO (FunPtr C_MenuitemRealizedCallback)
mk_MenuitemRealizedCallback C_MenuitemRealizedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemRealizedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"realized" FunPtr C_MenuitemRealizedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuitemRealizedSignalInfo
instance SignalInfo MenuitemRealizedSignalInfo where
type HaskellCallbackType MenuitemRealizedSignalInfo = MenuitemRealizedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuitemRealizedCallback cb
cb'' <- mk_MenuitemRealizedCallback cb'
connectSignalFunPtr obj "realized" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem::realized"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:signal:realized"})
#endif
type =
Word32
-> IO ()
type =
Ptr Menuitem ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemShowToUserCallback -> IO (FunPtr C_MenuitemShowToUserCallback)
wrap_MenuitemShowToUserCallback ::
GObject a => (a -> MenuitemShowToUserCallback) ->
C_MenuitemShowToUserCallback
a -> MenuitemItemActivatedCallback
gi'cb Ptr Menuitem
gi'selfPtr Word32
arg1 Ptr ()
_ = do
Ptr Menuitem -> (Menuitem -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menuitem
gi'selfPtr ((Menuitem -> IO ()) -> IO ()) -> (Menuitem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Menuitem
gi'self -> a -> MenuitemItemActivatedCallback
gi'cb (Menuitem -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Menuitem
gi'self) Word32
arg1
onMenuitemShowToUser :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemShowToUserCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemItemActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemItemActivatedCallback
MenuitemItemActivatedCallback
cb
let wrapped' :: C_MenuitemItemActivatedCallback
wrapped' = (a -> MenuitemItemActivatedCallback)
-> C_MenuitemItemActivatedCallback
forall a.
GObject a =>
(a -> MenuitemItemActivatedCallback)
-> C_MenuitemItemActivatedCallback
wrap_MenuitemShowToUserCallback a -> MenuitemItemActivatedCallback
wrapped
FunPtr C_MenuitemItemActivatedCallback
wrapped'' <- C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemShowToUserCallback C_MenuitemItemActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemItemActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-to-user" FunPtr C_MenuitemItemActivatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemShowToUser :: (IsMenuitem a, MonadIO m) => a -> ((?self :: a) => MenuitemShowToUserCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuitemItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuitemItemActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MenuitemItemActivatedCallback
MenuitemItemActivatedCallback
cb
let wrapped' :: C_MenuitemItemActivatedCallback
wrapped' = (a -> MenuitemItemActivatedCallback)
-> C_MenuitemItemActivatedCallback
forall a.
GObject a =>
(a -> MenuitemItemActivatedCallback)
-> C_MenuitemItemActivatedCallback
wrap_MenuitemShowToUserCallback a -> MenuitemItemActivatedCallback
wrapped
FunPtr C_MenuitemItemActivatedCallback
wrapped'' <- C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemShowToUserCallback C_MenuitemItemActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_MenuitemItemActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-to-user" FunPtr C_MenuitemItemActivatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuitemShowToUserSignalInfo
instance SignalInfo MenuitemShowToUserSignalInfo where
type HaskellCallbackType MenuitemShowToUserSignalInfo = MenuitemShowToUserCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuitemShowToUserCallback cb
cb'' <- mk_MenuitemShowToUserCallback cb'
connectSignalFunPtr obj "show-to-user" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem::show-to-user"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:signal:showToUser"})
#endif
getMenuitemId :: (MonadIO m, IsMenuitem o) => o -> m Int32
o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"id"
constructMenuitemId :: (IsMenuitem o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"id" Int32
val
#if defined(ENABLE_OVERLOADING)
data MenuitemIdPropertyInfo
instance AttrInfo MenuitemIdPropertyInfo where
type AttrAllowedOps MenuitemIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuitemIdPropertyInfo = IsMenuitem
type AttrSetTypeConstraint MenuitemIdPropertyInfo = (~) Int32
type AttrTransferTypeConstraint MenuitemIdPropertyInfo = (~) Int32
type AttrTransferType MenuitemIdPropertyInfo = Int32
type AttrGetType MenuitemIdPropertyInfo = Int32
type AttrLabel MenuitemIdPropertyInfo = "id"
type AttrOrigin MenuitemIdPropertyInfo = Menuitem
attrGet = getMenuitemId
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructMenuitemId
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.id"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#g:attr:id"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Menuitem
type instance O.AttributeList Menuitem = MenuitemAttributeList
type MenuitemAttributeList = ('[ '("id", MenuitemIdPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
menuitemId :: AttrLabelProxy "id"
menuitemId = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Menuitem = MenuitemSignalList
type MenuitemSignalList = ('[ '("aboutToShow", MenuitemAboutToShowSignalInfo), '("childAdded", MenuitemChildAddedSignalInfo), '("childMoved", MenuitemChildMovedSignalInfo), '("childRemoved", MenuitemChildRemovedSignalInfo), '("event", MenuitemEventSignalInfo), '("itemActivated", MenuitemItemActivatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChanged", MenuitemPropertyChangedSignalInfo), '("realized", MenuitemRealizedSignalInfo), '("showToUser", MenuitemShowToUserSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "dbusmenu_menuitem_new" ::
IO (Ptr Menuitem)
menuitemNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Menuitem
= IO Menuitem -> m Menuitem
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Menuitem -> m Menuitem) -> IO Menuitem -> m Menuitem
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
result <- IO (Ptr Menuitem)
dbusmenu_menuitem_new
Text -> Ptr Menuitem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuitemNew" Ptr Menuitem
result
Menuitem
result' <- ((ManagedPtr Menuitem -> Menuitem) -> Ptr Menuitem -> IO Menuitem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Menuitem -> Menuitem
Menuitem) Ptr Menuitem
result
Menuitem -> IO Menuitem
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Menuitem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "dbusmenu_menuitem_new_with_id" ::
Int32 ->
IO (Ptr Menuitem)
menuitemNewWithId ::
(B.CallStack.HasCallStack, MonadIO m) =>
Int32
-> m Menuitem
Int32
id = IO Menuitem -> m Menuitem
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Menuitem -> m Menuitem) -> IO Menuitem -> m Menuitem
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
result <- Int32 -> IO (Ptr Menuitem)
dbusmenu_menuitem_new_with_id Int32
id
Text -> Ptr Menuitem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuitemNewWithId" Ptr Menuitem
result
Menuitem
result' <- ((ManagedPtr Menuitem -> Menuitem) -> Ptr Menuitem -> IO Menuitem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Menuitem -> Menuitem
Menuitem) Ptr Menuitem
result
Menuitem -> IO Menuitem
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Menuitem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "dbusmenu_menuitem_child_add_position" ::
Ptr Menuitem ->
Ptr Menuitem ->
Word32 ->
IO CInt
menuitemChildAddPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a, IsMenuitem b) =>
a
-> b
-> Word32
-> m Bool
a
mi b
child Word32
position = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
child' <- b -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CInt
result <- Ptr Menuitem -> Ptr Menuitem -> Word32 -> IO CInt
dbusmenu_menuitem_child_add_position Ptr Menuitem
mi' Ptr Menuitem
child' Word32
position
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemChildAddPositionMethodInfo
instance (signature ~ (b -> Word32 -> m Bool), MonadIO m, IsMenuitem a, IsMenuitem b) => O.OverloadedMethod MenuitemChildAddPositionMethodInfo a signature where
overloadedMethod = menuitemChildAddPosition
instance O.OverloadedMethodInfo MenuitemChildAddPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemChildAddPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemChildAddPosition"
})
#endif
foreign import ccall "dbusmenu_menuitem_child_append" ::
Ptr Menuitem ->
Ptr Menuitem ->
IO CInt
menuitemChildAppend ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a, IsMenuitem b) =>
a
-> b
-> m Bool
a
mi b
child = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
child' <- b -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CInt
result <- Ptr Menuitem -> Ptr Menuitem -> IO CInt
dbusmenu_menuitem_child_append Ptr Menuitem
mi' Ptr Menuitem
child'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemChildAppendMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsMenuitem a, IsMenuitem b) => O.OverloadedMethod MenuitemChildAppendMethodInfo a signature where
overloadedMethod = menuitemChildAppend
instance O.OverloadedMethodInfo MenuitemChildAppendMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemChildAppend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemChildAppend"
})
#endif
foreign import ccall "dbusmenu_menuitem_child_delete" ::
Ptr Menuitem ->
Ptr Menuitem ->
IO CInt
menuitemChildDelete ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a, IsMenuitem b) =>
a
-> b
-> m Bool
a
mi b
child = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
child' <- b -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CInt
result <- Ptr Menuitem -> Ptr Menuitem -> IO CInt
dbusmenu_menuitem_child_delete Ptr Menuitem
mi' Ptr Menuitem
child'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemChildDeleteMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsMenuitem a, IsMenuitem b) => O.OverloadedMethod MenuitemChildDeleteMethodInfo a signature where
overloadedMethod = menuitemChildDelete
instance O.OverloadedMethodInfo MenuitemChildDeleteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemChildDelete",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemChildDelete"
})
#endif
foreign import ccall "dbusmenu_menuitem_child_find" ::
Ptr Menuitem ->
Int32 ->
IO (Ptr Menuitem)
menuitemChildFind ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> Int32
-> m (Maybe Menuitem)
a
mi Int32
id = IO (Maybe Menuitem) -> m (Maybe Menuitem)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Menuitem) -> m (Maybe Menuitem))
-> IO (Maybe Menuitem) -> m (Maybe Menuitem)
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
result <- Ptr Menuitem -> Int32 -> IO (Ptr Menuitem)
dbusmenu_menuitem_child_find Ptr Menuitem
mi' Int32
id
Maybe Menuitem
maybeResult <- Ptr Menuitem
-> (Ptr Menuitem -> IO Menuitem) -> IO (Maybe Menuitem)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Menuitem
result ((Ptr Menuitem -> IO Menuitem) -> IO (Maybe Menuitem))
-> (Ptr Menuitem -> IO Menuitem) -> IO (Maybe Menuitem)
forall a b. (a -> b) -> a -> b
$ \Ptr Menuitem
result' -> do
Menuitem
result'' <- ((ManagedPtr Menuitem -> Menuitem) -> Ptr Menuitem -> IO Menuitem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menuitem -> Menuitem
Menuitem) Ptr Menuitem
result'
Menuitem -> IO Menuitem
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Menuitem
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
Maybe Menuitem -> IO (Maybe Menuitem)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Menuitem
maybeResult
#if defined(ENABLE_OVERLOADING)
data MenuitemChildFindMethodInfo
instance (signature ~ (Int32 -> m (Maybe Menuitem)), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemChildFindMethodInfo a signature where
overloadedMethod = menuitemChildFind
instance O.OverloadedMethodInfo MenuitemChildFindMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemChildFind",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemChildFind"
})
#endif
foreign import ccall "dbusmenu_menuitem_child_prepend" ::
Ptr Menuitem ->
Ptr Menuitem ->
IO CInt
menuitemChildPrepend ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a, IsMenuitem b) =>
a
-> b
-> m Bool
a
mi b
child = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
child' <- b -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CInt
result <- Ptr Menuitem -> Ptr Menuitem -> IO CInt
dbusmenu_menuitem_child_prepend Ptr Menuitem
mi' Ptr Menuitem
child'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemChildPrependMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsMenuitem a, IsMenuitem b) => O.OverloadedMethod MenuitemChildPrependMethodInfo a signature where
overloadedMethod = menuitemChildPrepend
instance O.OverloadedMethodInfo MenuitemChildPrependMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemChildPrepend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemChildPrepend"
})
#endif
foreign import ccall "dbusmenu_menuitem_child_reorder" ::
Ptr Menuitem ->
Ptr Menuitem ->
Word32 ->
IO CInt
menuitemChildReorder ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a, IsMenuitem b) =>
a
-> b
-> Word32
-> m Bool
a
mi b
child Word32
position = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
child' <- b -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CInt
result <- Ptr Menuitem -> Ptr Menuitem -> Word32 -> IO CInt
dbusmenu_menuitem_child_reorder Ptr Menuitem
mi' Ptr Menuitem
child' Word32
position
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemChildReorderMethodInfo
instance (signature ~ (b -> Word32 -> m Bool), MonadIO m, IsMenuitem a, IsMenuitem b) => O.OverloadedMethod MenuitemChildReorderMethodInfo a signature where
overloadedMethod = menuitemChildReorder
instance O.OverloadedMethodInfo MenuitemChildReorderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemChildReorder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemChildReorder"
})
#endif
foreign import ccall "dbusmenu_menuitem_find_id" ::
Ptr Menuitem ->
Int32 ->
IO (Ptr Menuitem)
menuitemFindId ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> Int32
-> m (Maybe Menuitem)
a
mi Int32
id = IO (Maybe Menuitem) -> m (Maybe Menuitem)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Menuitem) -> m (Maybe Menuitem))
-> IO (Maybe Menuitem) -> m (Maybe Menuitem)
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
result <- Ptr Menuitem -> Int32 -> IO (Ptr Menuitem)
dbusmenu_menuitem_find_id Ptr Menuitem
mi' Int32
id
Maybe Menuitem
maybeResult <- Ptr Menuitem
-> (Ptr Menuitem -> IO Menuitem) -> IO (Maybe Menuitem)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Menuitem
result ((Ptr Menuitem -> IO Menuitem) -> IO (Maybe Menuitem))
-> (Ptr Menuitem -> IO Menuitem) -> IO (Maybe Menuitem)
forall a b. (a -> b) -> a -> b
$ \Ptr Menuitem
result' -> do
Menuitem
result'' <- ((ManagedPtr Menuitem -> Menuitem) -> Ptr Menuitem -> IO Menuitem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menuitem -> Menuitem
Menuitem) Ptr Menuitem
result'
Menuitem -> IO Menuitem
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Menuitem
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
Maybe Menuitem -> IO (Maybe Menuitem)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Menuitem
maybeResult
#if defined(ENABLE_OVERLOADING)
data MenuitemFindIdMethodInfo
instance (signature ~ (Int32 -> m (Maybe Menuitem)), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemFindIdMethodInfo a signature where
overloadedMethod = menuitemFindId
instance O.OverloadedMethodInfo MenuitemFindIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemFindId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemFindId"
})
#endif
foreign import ccall "dbusmenu_menuitem_foreach" ::
Ptr Menuitem ->
Ptr () ->
Ptr () ->
IO ()
menuitemForeach ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> Ptr ()
-> Ptr ()
-> m ()
a
mi Ptr ()
func Ptr ()
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem -> Ptr () -> Ptr () -> IO ()
dbusmenu_menuitem_foreach Ptr Menuitem
mi' Ptr ()
func Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemForeachMethodInfo
instance (signature ~ (Ptr () -> Ptr () -> m ()), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemForeachMethodInfo a signature where
overloadedMethod = menuitemForeach
instance O.OverloadedMethodInfo MenuitemForeachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemForeach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemForeach"
})
#endif
foreign import ccall "dbusmenu_menuitem_get_children" ::
Ptr Menuitem ->
IO (Ptr (GList (Ptr Menuitem)))
menuitemGetChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m [Menuitem]
a
mi = IO [Menuitem] -> m [Menuitem]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Menuitem] -> m [Menuitem]) -> IO [Menuitem] -> m [Menuitem]
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr (GList (Ptr Menuitem))
result <- Ptr Menuitem -> IO (Ptr (GList (Ptr Menuitem)))
dbusmenu_menuitem_get_children Ptr Menuitem
mi'
[Ptr Menuitem]
result' <- Ptr (GList (Ptr Menuitem)) -> IO [Ptr Menuitem]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Menuitem))
result
[Menuitem]
result'' <- (Ptr Menuitem -> IO Menuitem) -> [Ptr Menuitem] -> IO [Menuitem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr Menuitem -> Menuitem) -> Ptr Menuitem -> IO Menuitem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menuitem -> Menuitem
Menuitem) [Ptr Menuitem]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
[Menuitem] -> IO [Menuitem]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Menuitem]
result''
#if defined(ENABLE_OVERLOADING)
data MenuitemGetChildrenMethodInfo
instance (signature ~ (m [Menuitem]), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemGetChildrenMethodInfo a signature where
overloadedMethod = menuitemGetChildren
instance O.OverloadedMethodInfo MenuitemGetChildrenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemGetChildren",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemGetChildren"
})
#endif
foreign import ccall "dbusmenu_menuitem_get_id" ::
Ptr Menuitem ->
IO Int32
menuitemGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m Int32
a
mi = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Int32
result <- Ptr Menuitem -> IO Int32
dbusmenu_menuitem_get_id Ptr Menuitem
mi'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data MenuitemGetIdMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemGetIdMethodInfo a signature where
overloadedMethod = menuitemGetId
instance O.OverloadedMethodInfo MenuitemGetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemGetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemGetId"
})
#endif
foreign import ccall "dbusmenu_menuitem_get_parent" ::
Ptr Menuitem ->
IO (Ptr Menuitem)
menuitemGetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m Menuitem
a
mi = IO Menuitem -> m Menuitem
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Menuitem -> m Menuitem) -> IO Menuitem -> m Menuitem
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
result <- Ptr Menuitem -> IO (Ptr Menuitem)
dbusmenu_menuitem_get_parent Ptr Menuitem
mi'
Text -> Ptr Menuitem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuitemGetParent" Ptr Menuitem
result
Menuitem
result' <- ((ManagedPtr Menuitem -> Menuitem) -> Ptr Menuitem -> IO Menuitem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menuitem -> Menuitem
Menuitem) Ptr Menuitem
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
Menuitem -> IO Menuitem
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Menuitem
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemGetParentMethodInfo
instance (signature ~ (m Menuitem), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemGetParentMethodInfo a signature where
overloadedMethod = menuitemGetParent
instance O.OverloadedMethodInfo MenuitemGetParentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemGetParent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemGetParent"
})
#endif
foreign import ccall "dbusmenu_menuitem_get_position" ::
Ptr Menuitem ->
Ptr Menuitem ->
IO Word32
menuitemGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a, IsMenuitem b) =>
a
-> b
-> m Word32
a
mi b
parent = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
parent' <- b -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
parent
Word32
result <- Ptr Menuitem -> Ptr Menuitem -> IO Word32
dbusmenu_menuitem_get_position Ptr Menuitem
mi' Ptr Menuitem
parent'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
parent
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data MenuitemGetPositionMethodInfo
instance (signature ~ (b -> m Word32), MonadIO m, IsMenuitem a, IsMenuitem b) => O.OverloadedMethod MenuitemGetPositionMethodInfo a signature where
overloadedMethod = menuitemGetPosition
instance O.OverloadedMethodInfo MenuitemGetPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemGetPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemGetPosition"
})
#endif
foreign import ccall "dbusmenu_menuitem_get_position_realized" ::
Ptr Menuitem ->
Ptr Menuitem ->
IO Word32
menuitemGetPositionRealized ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a, IsMenuitem b) =>
a
-> b
-> m Word32
a
mi b
parent = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
parent' <- b -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
parent
Word32
result <- Ptr Menuitem -> Ptr Menuitem -> IO Word32
dbusmenu_menuitem_get_position_realized Ptr Menuitem
mi' Ptr Menuitem
parent'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
parent
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data MenuitemGetPositionRealizedMethodInfo
instance (signature ~ (b -> m Word32), MonadIO m, IsMenuitem a, IsMenuitem b) => O.OverloadedMethod MenuitemGetPositionRealizedMethodInfo a signature where
overloadedMethod = menuitemGetPositionRealized
instance O.OverloadedMethodInfo MenuitemGetPositionRealizedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemGetPositionRealized",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemGetPositionRealized"
})
#endif
foreign import ccall "dbusmenu_menuitem_get_root" ::
Ptr Menuitem ->
IO CInt
menuitemGetRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m Bool
a
mi = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CInt
result <- Ptr Menuitem -> IO CInt
dbusmenu_menuitem_get_root Ptr Menuitem
mi'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemGetRootMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemGetRootMethodInfo a signature where
overloadedMethod = menuitemGetRoot
instance O.OverloadedMethodInfo MenuitemGetRootMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemGetRoot",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemGetRoot"
})
#endif
foreign import ccall "dbusmenu_menuitem_handle_event" dbusmenu_menuitem_handle_event ::
Ptr Menuitem ->
CString ->
Ptr GVariant ->
Word32 ->
IO ()
menuitemHandleEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> GVariant
-> Word32
-> m ()
menuitemHandleEvent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMenuitem a) =>
a -> Text -> GVariant -> Word32 -> m ()
menuitemHandleEvent a
mi Text
name GVariant
variant Word32
timestamp = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr GVariant
variant' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
variant
Ptr Menuitem
-> CString -> Ptr GVariant -> MenuitemItemActivatedCallback
dbusmenu_menuitem_handle_event Ptr Menuitem
mi' CString
name' Ptr GVariant
variant' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
variant
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemHandleEventMethodInfo
instance (signature ~ (T.Text -> GVariant -> Word32 -> m ()), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemHandleEventMethodInfo a signature where
overloadedMethod = menuitemHandleEvent
instance O.OverloadedMethodInfo MenuitemHandleEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemHandleEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemHandleEvent"
})
#endif
foreign import ccall "dbusmenu_menuitem_properties_copy" ::
Ptr Menuitem ->
IO (Ptr (GHashTable (Ptr ()) (Ptr ())))
menuitemPropertiesCopy ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m (Map.Map (Ptr ()) (Ptr ()))
a
mi = IO (Map (Ptr ()) (Ptr ())) -> m (Map (Ptr ()) (Ptr ()))
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Map (Ptr ()) (Ptr ())) -> m (Map (Ptr ()) (Ptr ())))
-> IO (Map (Ptr ()) (Ptr ())) -> m (Map (Ptr ()) (Ptr ()))
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr (GHashTable (Ptr ()) (Ptr ()))
result <- Ptr Menuitem -> IO (Ptr (GHashTable (Ptr ()) (Ptr ())))
dbusmenu_menuitem_properties_copy Ptr Menuitem
mi'
Text -> Ptr (GHashTable (Ptr ()) (Ptr ())) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuitemPropertiesCopy" Ptr (GHashTable (Ptr ()) (Ptr ()))
result
[(PtrWrapped (Ptr ()), PtrWrapped (Ptr ()))]
result' <- Ptr (GHashTable (Ptr ()) (Ptr ()))
-> IO [(PtrWrapped (Ptr ()), PtrWrapped (Ptr ()))]
forall a b.
Ptr (GHashTable a b) -> IO [(PtrWrapped a, PtrWrapped b)]
unpackGHashTable Ptr (GHashTable (Ptr ()) (Ptr ()))
result
let result'' :: [(Ptr (), PtrWrapped (Ptr ()))]
result'' = (PtrWrapped (Ptr ()) -> Ptr ())
-> [(PtrWrapped (Ptr ()), PtrWrapped (Ptr ()))]
-> [(Ptr (), PtrWrapped (Ptr ()))]
forall a c b. (a -> c) -> [(a, b)] -> [(c, b)]
mapFirst PtrWrapped (Ptr ()) -> Ptr ()
forall a. PtrWrapped (Ptr a) -> Ptr a
B.GHT.ptrUnpackPtr [(PtrWrapped (Ptr ()), PtrWrapped (Ptr ()))]
result'
let result''' :: [(Ptr (), Ptr ())]
result''' = (PtrWrapped (Ptr ()) -> Ptr ())
-> [(Ptr (), PtrWrapped (Ptr ()))] -> [(Ptr (), Ptr ())]
forall b c a. (b -> c) -> [(a, b)] -> [(a, c)]
mapSecond PtrWrapped (Ptr ()) -> Ptr ()
forall a. PtrWrapped (Ptr a) -> Ptr a
B.GHT.ptrUnpackPtr [(Ptr (), PtrWrapped (Ptr ()))]
result''
let result'''' :: Map (Ptr ()) (Ptr ())
result'''' = [(Ptr (), Ptr ())] -> Map (Ptr ()) (Ptr ())
forall k a. Ord k => [(k, a)] -> Map k a
Map.fromList [(Ptr (), Ptr ())]
result'''
Ptr (GHashTable (Ptr ()) (Ptr ())) -> IO ()
forall a b. Ptr (GHashTable a b) -> IO ()
unrefGHashTable Ptr (GHashTable (Ptr ()) (Ptr ()))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
Map (Ptr ()) (Ptr ()) -> IO (Map (Ptr ()) (Ptr ()))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Map (Ptr ()) (Ptr ())
result''''
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertiesCopyMethodInfo
instance (signature ~ (m (Map.Map (Ptr ()) (Ptr ()))), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertiesCopyMethodInfo a signature where
overloadedMethod = menuitemPropertiesCopy
instance O.OverloadedMethodInfo MenuitemPropertiesCopyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertiesCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertiesCopy"
})
#endif
foreign import ccall "dbusmenu_menuitem_properties_list" ::
Ptr Menuitem ->
IO (Ptr (GList CString))
menuitemPropertiesList ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m [T.Text]
a
mi = IO [Text] -> m [Text]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Text] -> m [Text]) -> IO [Text] -> m [Text]
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr (GList CString)
result <- Ptr Menuitem -> IO (Ptr (GList CString))
dbusmenu_menuitem_properties_list Ptr Menuitem
mi'
[CString]
result' <- Ptr (GList CString) -> IO [CString]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList CString)
result
[Text]
result'' <- (CString -> IO Text) -> [CString] -> IO [Text]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText [CString]
result'
Ptr (GList CString) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList CString)
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
[Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result''
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertiesListMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertiesListMethodInfo a signature where
overloadedMethod = menuitemPropertiesList
instance O.OverloadedMethodInfo MenuitemPropertiesListMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertiesList",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertiesList"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_exist" ::
Ptr Menuitem ->
CString ->
IO CInt
menuitemPropertyExist ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> m Bool
a
mi Text
property = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
CInt
result <- Ptr Menuitem -> CString -> IO CInt
dbusmenu_menuitem_property_exist Ptr Menuitem
mi' CString
property'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyExistMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertyExistMethodInfo a signature where
overloadedMethod = menuitemPropertyExist
instance O.OverloadedMethodInfo MenuitemPropertyExistMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertyExist",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertyExist"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_get" ::
Ptr Menuitem ->
CString ->
IO CString
menuitemPropertyGet ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> m (Maybe T.Text)
a
mi Text
property = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
CString
result <- Ptr Menuitem -> CString -> IO CString
dbusmenu_menuitem_property_get Ptr Menuitem
mi' CString
property'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyGetMethodInfo
instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertyGetMethodInfo a signature where
overloadedMethod = menuitemPropertyGet
instance O.OverloadedMethodInfo MenuitemPropertyGetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertyGet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertyGet"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_get_bool" ::
Ptr Menuitem ->
CString ->
IO CInt
menuitemPropertyGetBool ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> m Bool
a
mi Text
property = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
CInt
result <- Ptr Menuitem -> CString -> IO CInt
dbusmenu_menuitem_property_get_bool Ptr Menuitem
mi' CString
property'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyGetBoolMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertyGetBoolMethodInfo a signature where
overloadedMethod = menuitemPropertyGetBool
instance O.OverloadedMethodInfo MenuitemPropertyGetBoolMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertyGetBool",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertyGetBool"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_get_byte_array" ::
Ptr Menuitem ->
CString ->
Ptr Word64 ->
IO (Ptr Word8)
menuitemPropertyGetByteArray ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> m (Maybe ByteString)
a
mi Text
property = IO (Maybe ByteString) -> m (Maybe ByteString)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ByteString) -> m (Maybe ByteString))
-> IO (Maybe ByteString) -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
Ptr Word64
nelements <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr Word8
result <- Ptr Menuitem -> CString -> Ptr Word64 -> IO (Ptr Word8)
dbusmenu_menuitem_property_get_byte_array Ptr Menuitem
mi' CString
property' Ptr Word64
nelements
Word64
nelements' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
nelements
Maybe ByteString
maybeResult <- Ptr Word8 -> (Ptr Word8 -> IO ByteString) -> IO (Maybe ByteString)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Word8
result ((Ptr Word8 -> IO ByteString) -> IO (Maybe ByteString))
-> (Ptr Word8 -> IO ByteString) -> IO (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ \Ptr Word8
result' -> do
ByteString
result'' <- (Word64 -> Ptr Word8 -> IO ByteString
forall a. Integral a => a -> Ptr Word8 -> IO ByteString
unpackByteStringWithLength Word64
nelements') Ptr Word8
result'
ByteString -> IO ByteString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ByteString
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
nelements
Maybe ByteString -> IO (Maybe ByteString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ByteString
maybeResult
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyGetByteArrayMethodInfo
instance (signature ~ (T.Text -> m (Maybe ByteString)), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertyGetByteArrayMethodInfo a signature where
overloadedMethod = menuitemPropertyGetByteArray
instance O.OverloadedMethodInfo MenuitemPropertyGetByteArrayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertyGetByteArray",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertyGetByteArray"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_get_int" ::
Ptr Menuitem ->
CString ->
IO Int32
menuitemPropertyGetInt ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> m Int32
a
mi Text
property = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
Int32
result <- Ptr Menuitem -> CString -> IO Int32
dbusmenu_menuitem_property_get_int Ptr Menuitem
mi' CString
property'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyGetIntMethodInfo
instance (signature ~ (T.Text -> m Int32), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertyGetIntMethodInfo a signature where
overloadedMethod = menuitemPropertyGetInt
instance O.OverloadedMethodInfo MenuitemPropertyGetIntMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertyGetInt",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertyGetInt"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_get_variant" ::
Ptr Menuitem ->
CString ->
IO (Ptr GVariant)
menuitemPropertyGetVariant ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> m (Maybe GVariant)
a
mi Text
property = IO (Maybe GVariant) -> m (Maybe GVariant)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe GVariant) -> m (Maybe GVariant))
-> IO (Maybe GVariant) -> m (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
Ptr GVariant
result <- Ptr Menuitem -> CString -> IO (Ptr GVariant)
dbusmenu_menuitem_property_get_variant Ptr Menuitem
mi' CString
property'
Maybe GVariant
maybeResult <- Ptr GVariant
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GVariant
result ((Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant))
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ \Ptr GVariant
result' -> do
GVariant
result'' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
result'
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Maybe GVariant -> IO (Maybe GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GVariant
maybeResult
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyGetVariantMethodInfo
instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertyGetVariantMethodInfo a signature where
overloadedMethod = menuitemPropertyGetVariant
instance O.OverloadedMethodInfo MenuitemPropertyGetVariantMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertyGetVariant",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertyGetVariant"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_remove" ::
Ptr Menuitem ->
CString ->
IO ()
menuitemPropertyRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> m ()
a
mi Text
property = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
Ptr Menuitem -> CString -> IO ()
dbusmenu_menuitem_property_remove Ptr Menuitem
mi' CString
property'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyRemoveMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertyRemoveMethodInfo a signature where
overloadedMethod = menuitemPropertyRemove
instance O.OverloadedMethodInfo MenuitemPropertyRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertyRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertyRemove"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_set" ::
Ptr Menuitem ->
CString ->
CString ->
IO CInt
menuitemPropertySet ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> T.Text
-> m Bool
a
mi Text
property Text
value = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
CString
value' <- Text -> IO CString
textToCString Text
value
CInt
result <- Ptr Menuitem -> CString -> CString -> IO CInt
dbusmenu_menuitem_property_set Ptr Menuitem
mi' CString
property' CString
value'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertySetMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertySetMethodInfo a signature where
overloadedMethod = menuitemPropertySet
instance O.OverloadedMethodInfo MenuitemPropertySetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertySet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertySet"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_set_bool" ::
Ptr Menuitem ->
CString ->
CInt ->
IO CInt
menuitemPropertySetBool ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> Bool
-> m Bool
a
mi Text
property Bool
value = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
value
CInt
result <- Ptr Menuitem -> CString -> CInt -> IO CInt
dbusmenu_menuitem_property_set_bool Ptr Menuitem
mi' CString
property' CInt
value'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertySetBoolMethodInfo
instance (signature ~ (T.Text -> Bool -> m Bool), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertySetBoolMethodInfo a signature where
overloadedMethod = menuitemPropertySetBool
instance O.OverloadedMethodInfo MenuitemPropertySetBoolMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertySetBool",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertySetBool"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_set_byte_array" ::
Ptr Menuitem ->
CString ->
Word8 ->
Word64 ->
IO CInt
menuitemPropertySetByteArray ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> Word8
-> Word64
-> m Bool
a
mi Text
property Word8
value Word64
nelements = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
CInt
result <- Ptr Menuitem -> CString -> Word8 -> Word64 -> IO CInt
dbusmenu_menuitem_property_set_byte_array Ptr Menuitem
mi' CString
property' Word8
value Word64
nelements
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertySetByteArrayMethodInfo
instance (signature ~ (T.Text -> Word8 -> Word64 -> m Bool), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertySetByteArrayMethodInfo a signature where
overloadedMethod = menuitemPropertySetByteArray
instance O.OverloadedMethodInfo MenuitemPropertySetByteArrayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertySetByteArray",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertySetByteArray"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_set_int" ::
Ptr Menuitem ->
CString ->
Int32 ->
IO CInt
menuitemPropertySetInt ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> Int32
-> m Bool
a
mi Text
property Int32
value = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
CInt
result <- Ptr Menuitem -> CString -> Int32 -> IO CInt
dbusmenu_menuitem_property_set_int Ptr Menuitem
mi' CString
property' Int32
value
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertySetIntMethodInfo
instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertySetIntMethodInfo a signature where
overloadedMethod = menuitemPropertySetInt
instance O.OverloadedMethodInfo MenuitemPropertySetIntMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertySetInt",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertySetInt"
})
#endif
foreign import ccall "dbusmenu_menuitem_property_set_variant" ::
Ptr Menuitem ->
CString ->
Ptr GVariant ->
IO CInt
menuitemPropertySetVariant ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> T.Text
-> GVariant
-> m Bool
a
mi Text
property GVariant
value = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CString
property' <- Text -> IO CString
textToCString Text
property
Ptr GVariant
value' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
value
CInt
result <- Ptr Menuitem -> CString -> Ptr GVariant -> IO CInt
dbusmenu_menuitem_property_set_variant Ptr Menuitem
mi' CString
property' Ptr GVariant
value'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
value
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertySetVariantMethodInfo
instance (signature ~ (T.Text -> GVariant -> m Bool), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemPropertySetVariantMethodInfo a signature where
overloadedMethod = menuitemPropertySetVariant
instance O.OverloadedMethodInfo MenuitemPropertySetVariantMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemPropertySetVariant",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemPropertySetVariant"
})
#endif
foreign import ccall "dbusmenu_menuitem_send_about_to_show" ::
Ptr Menuitem ->
Ptr () ->
Ptr () ->
IO ()
menuitemSendAboutToShow ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> Ptr ()
-> Ptr ()
-> m ()
a
mi Ptr ()
cb Ptr ()
cbData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem -> Ptr () -> Ptr () -> IO ()
dbusmenu_menuitem_send_about_to_show Ptr Menuitem
mi' Ptr ()
cb Ptr ()
cbData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemSendAboutToShowMethodInfo
instance (signature ~ (Ptr () -> Ptr () -> m ()), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemSendAboutToShowMethodInfo a signature where
overloadedMethod = menuitemSendAboutToShow
instance O.OverloadedMethodInfo MenuitemSendAboutToShowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemSendAboutToShow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemSendAboutToShow"
})
#endif
foreign import ccall "dbusmenu_menuitem_set_parent" ::
Ptr Menuitem ->
Ptr Menuitem ->
IO CInt
menuitemSetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a, IsMenuitem b) =>
a
-> b
-> m Bool
a
mi b
parent = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem
parent' <- b -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
parent
CInt
result <- Ptr Menuitem -> Ptr Menuitem -> IO CInt
dbusmenu_menuitem_set_parent Ptr Menuitem
mi' Ptr Menuitem
parent'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
parent
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemSetParentMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsMenuitem a, IsMenuitem b) => O.OverloadedMethod MenuitemSetParentMethodInfo a signature where
overloadedMethod = menuitemSetParent
instance O.OverloadedMethodInfo MenuitemSetParentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemSetParent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemSetParent"
})
#endif
foreign import ccall "dbusmenu_menuitem_set_root" ::
Ptr Menuitem ->
CInt ->
IO ()
menuitemSetRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> Bool
-> m ()
a
mi Bool
root = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
let root' :: CInt
root' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
root
Ptr Menuitem -> CInt -> IO ()
dbusmenu_menuitem_set_root Ptr Menuitem
mi' CInt
root'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemSetRootMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemSetRootMethodInfo a signature where
overloadedMethod = menuitemSetRoot
instance O.OverloadedMethodInfo MenuitemSetRootMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemSetRoot",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemSetRoot"
})
#endif
foreign import ccall "dbusmenu_menuitem_show_to_user" ::
Ptr Menuitem ->
Word32 ->
IO ()
menuitemShowToUser ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> Word32
-> m ()
a
mi Word32
timestamp = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr Menuitem -> MenuitemItemActivatedCallback
dbusmenu_menuitem_show_to_user Ptr Menuitem
mi' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemShowToUserMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemShowToUserMethodInfo a signature where
overloadedMethod = menuitemShowToUser
instance O.OverloadedMethodInfo MenuitemShowToUserMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemShowToUser",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemShowToUser"
})
#endif
foreign import ccall "dbusmenu_menuitem_take_children" ::
Ptr Menuitem ->
IO (Ptr (GList (Ptr Menuitem)))
menuitemTakeChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m [Menuitem]
a
mi = IO [Menuitem] -> m [Menuitem]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Menuitem] -> m [Menuitem]) -> IO [Menuitem] -> m [Menuitem]
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
Ptr (GList (Ptr Menuitem))
result <- Ptr Menuitem -> IO (Ptr (GList (Ptr Menuitem)))
dbusmenu_menuitem_take_children Ptr Menuitem
mi'
[Ptr Menuitem]
result' <- Ptr (GList (Ptr Menuitem)) -> IO [Ptr Menuitem]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Menuitem))
result
[Menuitem]
result'' <- (Ptr Menuitem -> IO Menuitem) -> [Ptr Menuitem] -> IO [Menuitem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr Menuitem -> Menuitem) -> Ptr Menuitem -> IO Menuitem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Menuitem -> Menuitem
Menuitem) [Ptr Menuitem]
result'
Ptr (GList (Ptr Menuitem)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Menuitem))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
[Menuitem] -> IO [Menuitem]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Menuitem]
result''
#if defined(ENABLE_OVERLOADING)
data MenuitemTakeChildrenMethodInfo
instance (signature ~ (m [Menuitem]), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemTakeChildrenMethodInfo a signature where
overloadedMethod = menuitemTakeChildren
instance O.OverloadedMethodInfo MenuitemTakeChildrenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemTakeChildren",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemTakeChildren"
})
#endif
foreign import ccall "dbusmenu_menuitem_unparent" ::
Ptr Menuitem ->
IO CInt
menuitemUnparent ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m Bool
a
mi = MenuitemAboutToShowCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MenuitemAboutToShowCallback -> m Bool)
-> MenuitemAboutToShowCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menuitem
mi' <- a -> IO (Ptr Menuitem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
mi
CInt
result <- Ptr Menuitem -> IO CInt
dbusmenu_menuitem_unparent Ptr Menuitem
mi'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
Bool -> MenuitemAboutToShowCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemUnparentMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMenuitem a) => O.OverloadedMethod MenuitemUnparentMethodInfo a signature where
overloadedMethod = menuitemUnparent
instance O.OverloadedMethodInfo MenuitemUnparentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dbusmenu.Objects.Menuitem.menuitemUnparent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dbusmenu-0.4.11/docs/GI-Dbusmenu-Objects-Menuitem.html#v:menuitemUnparent"
})
#endif