{-# LANGUAGE 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 ,
noMenuitem ,
#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
C_MenuitemAboutToShowCallback ,
MenuitemAboutToShowCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemAboutToShowSignalInfo ,
#endif
afterMenuitemAboutToShow ,
genClosure_MenuitemAboutToShow ,
mk_MenuitemAboutToShowCallback ,
noMenuitemAboutToShowCallback ,
onMenuitemAboutToShow ,
wrap_MenuitemAboutToShowCallback ,
C_MenuitemChildAddedCallback ,
MenuitemChildAddedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildAddedSignalInfo ,
#endif
afterMenuitemChildAdded ,
genClosure_MenuitemChildAdded ,
mk_MenuitemChildAddedCallback ,
noMenuitemChildAddedCallback ,
onMenuitemChildAdded ,
wrap_MenuitemChildAddedCallback ,
C_MenuitemChildMovedCallback ,
MenuitemChildMovedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildMovedSignalInfo ,
#endif
afterMenuitemChildMoved ,
genClosure_MenuitemChildMoved ,
mk_MenuitemChildMovedCallback ,
noMenuitemChildMovedCallback ,
onMenuitemChildMoved ,
wrap_MenuitemChildMovedCallback ,
C_MenuitemChildRemovedCallback ,
MenuitemChildRemovedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemChildRemovedSignalInfo ,
#endif
afterMenuitemChildRemoved ,
genClosure_MenuitemChildRemoved ,
mk_MenuitemChildRemovedCallback ,
noMenuitemChildRemovedCallback ,
onMenuitemChildRemoved ,
wrap_MenuitemChildRemovedCallback ,
C_MenuitemEventCallback ,
MenuitemEventCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemEventSignalInfo ,
#endif
afterMenuitemEvent ,
genClosure_MenuitemEvent ,
mk_MenuitemEventCallback ,
noMenuitemEventCallback ,
onMenuitemEvent ,
wrap_MenuitemEventCallback ,
C_MenuitemItemActivatedCallback ,
MenuitemItemActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemItemActivatedSignalInfo ,
#endif
afterMenuitemItemActivated ,
genClosure_MenuitemItemActivated ,
mk_MenuitemItemActivatedCallback ,
noMenuitemItemActivatedCallback ,
onMenuitemItemActivated ,
wrap_MenuitemItemActivatedCallback ,
C_MenuitemPropertyChangedCallback ,
MenuitemPropertyChangedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemPropertyChangedSignalInfo ,
#endif
afterMenuitemPropertyChanged ,
genClosure_MenuitemPropertyChanged ,
mk_MenuitemPropertyChangedCallback ,
noMenuitemPropertyChangedCallback ,
onMenuitemPropertyChanged ,
wrap_MenuitemPropertyChangedCallback ,
C_MenuitemRealizedCallback ,
MenuitemRealizedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemRealizedSignalInfo ,
#endif
afterMenuitemRealized ,
genClosure_MenuitemRealized ,
mk_MenuitemRealizedCallback ,
noMenuitemRealizedCallback ,
onMenuitemRealized ,
wrap_MenuitemRealizedCallback ,
C_MenuitemShowToUserCallback ,
MenuitemShowToUserCallback ,
#if defined(ENABLE_OVERLOADING)
MenuitemShowToUserSignalInfo ,
#endif
afterMenuitemShowToUser ,
genClosure_MenuitemShowToUser ,
mk_MenuitemShowToUserCallback ,
noMenuitemShowToUserCallback ,
onMenuitemShowToUser ,
wrap_MenuitemShowToUserCallback ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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 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 GI.GObject.Objects.Object as GObject.Object
newtype = (ManagedPtr Menuitem)
deriving (Menuitem -> Menuitem -> Bool
(Menuitem -> Menuitem -> Bool)
-> (Menuitem -> Menuitem -> Bool) -> Eq Menuitem
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Menuitem -> Menuitem -> Bool
$c/= :: Menuitem -> Menuitem -> Bool
== :: Menuitem -> Menuitem -> Bool
$c== :: Menuitem -> Menuitem -> Bool
Eq)
foreign import ccall "dbusmenu_menuitem_get_type"
:: IO GType
instance GObject Menuitem where
gobjectType :: IO GType
gobjectType = IO GType
c_dbusmenu_menuitem_get_type
instance B.GValue.IsGValue Menuitem where
toGValue :: Menuitem -> IO GValue
toGValue o :: Menuitem
o = do
GType
gtype <- IO GType
c_dbusmenu_menuitem_get_type
Menuitem -> (Ptr Menuitem -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Menuitem
o (GType
-> (GValue -> Ptr Menuitem -> IO ()) -> Ptr Menuitem -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Menuitem -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Menuitem
fromGValue gv :: GValue
gv = do
Ptr Menuitem
ptr <- GValue -> IO (Ptr Menuitem)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Menuitem)
(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
class (GObject o, O.IsDescendantOf Menuitem o) => o
instance (GObject o, O.IsDescendantOf Menuitem o) => IsMenuitem o
instance O.HasParentTypes Menuitem
type instance O.ParentTypes Menuitem = '[GObject.Object.Object]
toMenuitem :: (MonadIO m, IsMenuitem o) => o -> m Menuitem
= IO Menuitem -> m Menuitem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Menuitem -> Menuitem
Menuitem
noMenuitem :: Maybe Menuitem
= Maybe Menuitem
forall a. Maybe a
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.MethodInfo 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
#endif
type =
IO Bool
noMenuitemAboutToShowCallback :: Maybe MenuitemAboutToShowCallback
= Maybe MenuitemAboutToShowCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_MenuitemAboutToShowCallback -> IO (FunPtr C_MenuitemAboutToShowCallback)
genClosure_MenuitemAboutToShow :: MonadIO m => MenuitemAboutToShowCallback -> m (GClosure C_MenuitemAboutToShowCallback)
cb :: MenuitemAboutToShowCallback
cb = IO (GClosure C_MenuitemAboutToShowCallback)
-> m (GClosure C_MenuitemAboutToShowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuitemAboutToShowCallback)
-> m (GClosure C_MenuitemAboutToShowCallback))
-> IO (GClosure C_MenuitemAboutToShowCallback)
-> m (GClosure C_MenuitemAboutToShowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuitemAboutToShowCallback
cb' = MenuitemAboutToShowCallback -> C_MenuitemAboutToShowCallback
wrap_MenuitemAboutToShowCallback MenuitemAboutToShowCallback
cb
C_MenuitemAboutToShowCallback
-> IO (FunPtr C_MenuitemAboutToShowCallback)
mk_MenuitemAboutToShowCallback C_MenuitemAboutToShowCallback
cb' IO (FunPtr C_MenuitemAboutToShowCallback)
-> (FunPtr C_MenuitemAboutToShowCallback
-> IO (GClosure C_MenuitemAboutToShowCallback))
-> IO (GClosure C_MenuitemAboutToShowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuitemAboutToShowCallback
-> IO (GClosure C_MenuitemAboutToShowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuitemAboutToShowCallback ::
MenuitemAboutToShowCallback ->
C_MenuitemAboutToShowCallback
_cb :: MenuitemAboutToShowCallback
_cb _ _ = do
Bool
result <- MenuitemAboutToShowCallback
_cb
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 (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onMenuitemAboutToShow :: (IsMenuitem a, MonadIO m) => a -> MenuitemAboutToShowCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemAboutToShowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemAboutToShowCallback
cb' = MenuitemAboutToShowCallback -> C_MenuitemAboutToShowCallback
wrap_MenuitemAboutToShowCallback MenuitemAboutToShowCallback
cb
FunPtr C_MenuitemAboutToShowCallback
cb'' <- C_MenuitemAboutToShowCallback
-> IO (FunPtr C_MenuitemAboutToShowCallback)
mk_MenuitemAboutToShowCallback C_MenuitemAboutToShowCallback
cb'
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 "about-to-show" FunPtr C_MenuitemAboutToShowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemAboutToShow :: (IsMenuitem a, MonadIO m) => a -> MenuitemAboutToShowCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemAboutToShowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemAboutToShowCallback
cb' = MenuitemAboutToShowCallback -> C_MenuitemAboutToShowCallback
wrap_MenuitemAboutToShowCallback MenuitemAboutToShowCallback
cb
FunPtr C_MenuitemAboutToShowCallback
cb'' <- C_MenuitemAboutToShowCallback
-> IO (FunPtr C_MenuitemAboutToShowCallback)
mk_MenuitemAboutToShowCallback C_MenuitemAboutToShowCallback
cb'
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 "about-to-show" FunPtr C_MenuitemAboutToShowCallback
cb'' 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
#endif
type =
GObject.Object.Object
-> Word32
-> IO ()
noMenuitemChildAddedCallback :: Maybe MenuitemChildAddedCallback
= Maybe MenuitemChildAddedCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr GObject.Object.Object ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemChildAddedCallback -> IO (FunPtr C_MenuitemChildAddedCallback)
genClosure_MenuitemChildAdded :: MonadIO m => MenuitemChildAddedCallback -> m (GClosure C_MenuitemChildAddedCallback)
cb :: MenuitemChildAddedCallback
cb = IO (GClosure C_MenuitemChildAddedCallback)
-> m (GClosure C_MenuitemChildAddedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuitemChildAddedCallback)
-> m (GClosure C_MenuitemChildAddedCallback))
-> IO (GClosure C_MenuitemChildAddedCallback)
-> m (GClosure C_MenuitemChildAddedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuitemChildAddedCallback
cb' = MenuitemChildAddedCallback -> C_MenuitemChildAddedCallback
wrap_MenuitemChildAddedCallback MenuitemChildAddedCallback
cb
C_MenuitemChildAddedCallback
-> IO (FunPtr C_MenuitemChildAddedCallback)
mk_MenuitemChildAddedCallback C_MenuitemChildAddedCallback
cb' IO (FunPtr C_MenuitemChildAddedCallback)
-> (FunPtr C_MenuitemChildAddedCallback
-> IO (GClosure C_MenuitemChildAddedCallback))
-> IO (GClosure C_MenuitemChildAddedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuitemChildAddedCallback
-> IO (GClosure C_MenuitemChildAddedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuitemChildAddedCallback ::
MenuitemChildAddedCallback ->
C_MenuitemChildAddedCallback
_cb :: MenuitemChildAddedCallback
_cb _ arg1 :: Ptr Object
arg1 arg2 :: Word32
arg2 _ = 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
MenuitemChildAddedCallback
_cb Object
arg1' Word32
arg2
onMenuitemChildAdded :: (IsMenuitem a, MonadIO m) => a -> MenuitemChildAddedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemChildAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemChildAddedCallback
cb' = MenuitemChildAddedCallback -> C_MenuitemChildAddedCallback
wrap_MenuitemChildAddedCallback MenuitemChildAddedCallback
cb
FunPtr C_MenuitemChildAddedCallback
cb'' <- C_MenuitemChildAddedCallback
-> IO (FunPtr C_MenuitemChildAddedCallback)
mk_MenuitemChildAddedCallback C_MenuitemChildAddedCallback
cb'
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 "child-added" FunPtr C_MenuitemChildAddedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemChildAdded :: (IsMenuitem a, MonadIO m) => a -> MenuitemChildAddedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemChildAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemChildAddedCallback
cb' = MenuitemChildAddedCallback -> C_MenuitemChildAddedCallback
wrap_MenuitemChildAddedCallback MenuitemChildAddedCallback
cb
FunPtr C_MenuitemChildAddedCallback
cb'' <- C_MenuitemChildAddedCallback
-> IO (FunPtr C_MenuitemChildAddedCallback)
mk_MenuitemChildAddedCallback C_MenuitemChildAddedCallback
cb'
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 "child-added" FunPtr C_MenuitemChildAddedCallback
cb'' 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
#endif
type =
GObject.Object.Object
-> Word32
-> Word32
-> IO ()
noMenuitemChildMovedCallback :: Maybe MenuitemChildMovedCallback
= Maybe MenuitemChildMovedCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr GObject.Object.Object ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemChildMovedCallback -> IO (FunPtr C_MenuitemChildMovedCallback)
genClosure_MenuitemChildMoved :: MonadIO m => MenuitemChildMovedCallback -> m (GClosure C_MenuitemChildMovedCallback)
cb :: MenuitemChildMovedCallback
cb = IO (GClosure C_MenuitemChildMovedCallback)
-> m (GClosure C_MenuitemChildMovedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuitemChildMovedCallback)
-> m (GClosure C_MenuitemChildMovedCallback))
-> IO (GClosure C_MenuitemChildMovedCallback)
-> m (GClosure C_MenuitemChildMovedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuitemChildMovedCallback
cb' = MenuitemChildMovedCallback -> C_MenuitemChildMovedCallback
wrap_MenuitemChildMovedCallback MenuitemChildMovedCallback
cb
C_MenuitemChildMovedCallback
-> IO (FunPtr C_MenuitemChildMovedCallback)
mk_MenuitemChildMovedCallback C_MenuitemChildMovedCallback
cb' IO (FunPtr C_MenuitemChildMovedCallback)
-> (FunPtr C_MenuitemChildMovedCallback
-> IO (GClosure C_MenuitemChildMovedCallback))
-> IO (GClosure C_MenuitemChildMovedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuitemChildMovedCallback
-> IO (GClosure C_MenuitemChildMovedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuitemChildMovedCallback ::
MenuitemChildMovedCallback ->
C_MenuitemChildMovedCallback
_cb :: MenuitemChildMovedCallback
_cb _ arg1 :: Ptr Object
arg1 arg2 :: Word32
arg2 arg3 :: Word32
arg3 _ = 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
MenuitemChildMovedCallback
_cb Object
arg1' Word32
arg2 Word32
arg3
onMenuitemChildMoved :: (IsMenuitem a, MonadIO m) => a -> MenuitemChildMovedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemChildMovedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemChildMovedCallback
cb' = MenuitemChildMovedCallback -> C_MenuitemChildMovedCallback
wrap_MenuitemChildMovedCallback MenuitemChildMovedCallback
cb
FunPtr C_MenuitemChildMovedCallback
cb'' <- C_MenuitemChildMovedCallback
-> IO (FunPtr C_MenuitemChildMovedCallback)
mk_MenuitemChildMovedCallback C_MenuitemChildMovedCallback
cb'
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 "child-moved" FunPtr C_MenuitemChildMovedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemChildMoved :: (IsMenuitem a, MonadIO m) => a -> MenuitemChildMovedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemChildMovedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemChildMovedCallback
cb' = MenuitemChildMovedCallback -> C_MenuitemChildMovedCallback
wrap_MenuitemChildMovedCallback MenuitemChildMovedCallback
cb
FunPtr C_MenuitemChildMovedCallback
cb'' <- C_MenuitemChildMovedCallback
-> IO (FunPtr C_MenuitemChildMovedCallback)
mk_MenuitemChildMovedCallback C_MenuitemChildMovedCallback
cb'
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 "child-moved" FunPtr C_MenuitemChildMovedCallback
cb'' 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
#endif
type =
GObject.Object.Object
-> IO ()
noMenuitemChildRemovedCallback :: Maybe MenuitemChildRemovedCallback
= Maybe MenuitemChildRemovedCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr GObject.Object.Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemChildRemovedCallback -> IO (FunPtr C_MenuitemChildRemovedCallback)
genClosure_MenuitemChildRemoved :: MonadIO m => MenuitemChildRemovedCallback -> m (GClosure C_MenuitemChildRemovedCallback)
cb :: MenuitemChildRemovedCallback
cb = IO (GClosure C_MenuitemChildRemovedCallback)
-> m (GClosure C_MenuitemChildRemovedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuitemChildRemovedCallback)
-> m (GClosure C_MenuitemChildRemovedCallback))
-> IO (GClosure C_MenuitemChildRemovedCallback)
-> m (GClosure C_MenuitemChildRemovedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuitemChildRemovedCallback
cb' = MenuitemChildRemovedCallback -> C_MenuitemChildRemovedCallback
wrap_MenuitemChildRemovedCallback MenuitemChildRemovedCallback
cb
C_MenuitemChildRemovedCallback
-> IO (FunPtr C_MenuitemChildRemovedCallback)
mk_MenuitemChildRemovedCallback C_MenuitemChildRemovedCallback
cb' IO (FunPtr C_MenuitemChildRemovedCallback)
-> (FunPtr C_MenuitemChildRemovedCallback
-> IO (GClosure C_MenuitemChildRemovedCallback))
-> IO (GClosure C_MenuitemChildRemovedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuitemChildRemovedCallback
-> IO (GClosure C_MenuitemChildRemovedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuitemChildRemovedCallback ::
MenuitemChildRemovedCallback ->
C_MenuitemChildRemovedCallback
_cb :: MenuitemChildRemovedCallback
_cb _ arg1 :: Ptr Object
arg1 _ = 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
MenuitemChildRemovedCallback
_cb Object
arg1'
onMenuitemChildRemoved :: (IsMenuitem a, MonadIO m) => a -> MenuitemChildRemovedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemChildRemovedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemChildRemovedCallback
cb' = MenuitemChildRemovedCallback -> C_MenuitemChildRemovedCallback
wrap_MenuitemChildRemovedCallback MenuitemChildRemovedCallback
cb
FunPtr C_MenuitemChildRemovedCallback
cb'' <- C_MenuitemChildRemovedCallback
-> IO (FunPtr C_MenuitemChildRemovedCallback)
mk_MenuitemChildRemovedCallback C_MenuitemChildRemovedCallback
cb'
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 "child-removed" FunPtr C_MenuitemChildRemovedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemChildRemoved :: (IsMenuitem a, MonadIO m) => a -> MenuitemChildRemovedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemChildRemovedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemChildRemovedCallback
cb' = MenuitemChildRemovedCallback -> C_MenuitemChildRemovedCallback
wrap_MenuitemChildRemovedCallback MenuitemChildRemovedCallback
cb
FunPtr C_MenuitemChildRemovedCallback
cb'' <- C_MenuitemChildRemovedCallback
-> IO (FunPtr C_MenuitemChildRemovedCallback)
mk_MenuitemChildRemovedCallback C_MenuitemChildRemovedCallback
cb'
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 "child-removed" FunPtr C_MenuitemChildRemovedCallback
cb'' 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
#endif
type =
T.Text
-> GVariant
-> Word32
-> IO Bool
noMenuitemEventCallback :: Maybe MenuitemEventCallback
= Maybe MenuitemEventCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
CString ->
Ptr GVariant ->
Word32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_MenuitemEventCallback -> IO (FunPtr C_MenuitemEventCallback)
genClosure_MenuitemEvent :: MonadIO m => MenuitemEventCallback -> m (GClosure C_MenuitemEventCallback)
cb :: MenuitemEventCallback
cb = IO (GClosure C_MenuitemEventCallback)
-> m (GClosure C_MenuitemEventCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuitemEventCallback)
-> m (GClosure C_MenuitemEventCallback))
-> IO (GClosure C_MenuitemEventCallback)
-> m (GClosure C_MenuitemEventCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuitemEventCallback
cb' = MenuitemEventCallback -> C_MenuitemEventCallback
wrap_MenuitemEventCallback MenuitemEventCallback
cb
C_MenuitemEventCallback -> IO (FunPtr C_MenuitemEventCallback)
mk_MenuitemEventCallback C_MenuitemEventCallback
cb' IO (FunPtr C_MenuitemEventCallback)
-> (FunPtr C_MenuitemEventCallback
-> IO (GClosure C_MenuitemEventCallback))
-> IO (GClosure C_MenuitemEventCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuitemEventCallback
-> IO (GClosure C_MenuitemEventCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuitemEventCallback ::
MenuitemEventCallback ->
C_MenuitemEventCallback
_cb :: MenuitemEventCallback
_cb _ arg1 :: CString
arg1 arg2 :: Ptr GVariant
arg2 arg3 :: Word32
arg3 _ = 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 <- MenuitemEventCallback
_cb 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 (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onMenuitemEvent :: (IsMenuitem a, MonadIO m) => a -> P.Maybe T.Text -> MenuitemEventCallback -> m SignalHandlerId
obj :: a
obj detail :: Maybe Text
detail cb :: MenuitemEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemEventCallback
cb' = MenuitemEventCallback -> C_MenuitemEventCallback
wrap_MenuitemEventCallback MenuitemEventCallback
cb
FunPtr C_MenuitemEventCallback
cb'' <- C_MenuitemEventCallback -> IO (FunPtr C_MenuitemEventCallback)
mk_MenuitemEventCallback C_MenuitemEventCallback
cb'
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 "event" FunPtr C_MenuitemEventCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
detail
afterMenuitemEvent :: (IsMenuitem a, MonadIO m) => a -> P.Maybe T.Text -> MenuitemEventCallback -> m SignalHandlerId
obj :: a
obj detail :: Maybe Text
detail cb :: MenuitemEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemEventCallback
cb' = MenuitemEventCallback -> C_MenuitemEventCallback
wrap_MenuitemEventCallback MenuitemEventCallback
cb
FunPtr C_MenuitemEventCallback
cb'' <- C_MenuitemEventCallback -> IO (FunPtr C_MenuitemEventCallback)
mk_MenuitemEventCallback C_MenuitemEventCallback
cb'
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 "event" FunPtr C_MenuitemEventCallback
cb'' 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
#endif
type =
Word32
-> IO ()
noMenuitemItemActivatedCallback :: Maybe MenuitemItemActivatedCallback
= Maybe MenuitemItemActivatedCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemItemActivatedCallback -> IO (FunPtr C_MenuitemItemActivatedCallback)
genClosure_MenuitemItemActivated :: MonadIO m => MenuitemItemActivatedCallback -> m (GClosure C_MenuitemItemActivatedCallback)
cb :: MenuitemItemActivatedCallback
cb = IO (GClosure C_MenuitemItemActivatedCallback)
-> m (GClosure C_MenuitemItemActivatedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuitemItemActivatedCallback)
-> m (GClosure C_MenuitemItemActivatedCallback))
-> IO (GClosure C_MenuitemItemActivatedCallback)
-> m (GClosure C_MenuitemItemActivatedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuitemItemActivatedCallback
cb' = MenuitemItemActivatedCallback -> C_MenuitemItemActivatedCallback
wrap_MenuitemItemActivatedCallback MenuitemItemActivatedCallback
cb
C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemItemActivatedCallback C_MenuitemItemActivatedCallback
cb' IO (FunPtr C_MenuitemItemActivatedCallback)
-> (FunPtr C_MenuitemItemActivatedCallback
-> IO (GClosure C_MenuitemItemActivatedCallback))
-> IO (GClosure C_MenuitemItemActivatedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuitemItemActivatedCallback
-> IO (GClosure C_MenuitemItemActivatedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuitemItemActivatedCallback ::
MenuitemItemActivatedCallback ->
C_MenuitemItemActivatedCallback
_cb :: MenuitemItemActivatedCallback
_cb _ arg1 :: Word32
arg1 _ = do
MenuitemItemActivatedCallback
_cb Word32
arg1
onMenuitemItemActivated :: (IsMenuitem a, MonadIO m) => a -> MenuitemItemActivatedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemItemActivatedCallback
cb' = MenuitemItemActivatedCallback -> C_MenuitemItemActivatedCallback
wrap_MenuitemItemActivatedCallback MenuitemItemActivatedCallback
cb
FunPtr C_MenuitemItemActivatedCallback
cb'' <- C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemItemActivatedCallback C_MenuitemItemActivatedCallback
cb'
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 "item-activated" FunPtr C_MenuitemItemActivatedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemItemActivated :: (IsMenuitem a, MonadIO m) => a -> MenuitemItemActivatedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemItemActivatedCallback
cb' = MenuitemItemActivatedCallback -> C_MenuitemItemActivatedCallback
wrap_MenuitemItemActivatedCallback MenuitemItemActivatedCallback
cb
FunPtr C_MenuitemItemActivatedCallback
cb'' <- C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemItemActivatedCallback C_MenuitemItemActivatedCallback
cb'
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 "item-activated" FunPtr C_MenuitemItemActivatedCallback
cb'' 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
#endif
type =
T.Text
-> GVariant
-> IO ()
noMenuitemPropertyChangedCallback :: Maybe MenuitemPropertyChangedCallback
= Maybe MenuitemPropertyChangedCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
CString ->
Ptr GVariant ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemPropertyChangedCallback -> IO (FunPtr C_MenuitemPropertyChangedCallback)
genClosure_MenuitemPropertyChanged :: MonadIO m => MenuitemPropertyChangedCallback -> m (GClosure C_MenuitemPropertyChangedCallback)
cb :: MenuitemPropertyChangedCallback
cb = IO (GClosure C_MenuitemPropertyChangedCallback)
-> m (GClosure C_MenuitemPropertyChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuitemPropertyChangedCallback)
-> m (GClosure C_MenuitemPropertyChangedCallback))
-> IO (GClosure C_MenuitemPropertyChangedCallback)
-> m (GClosure C_MenuitemPropertyChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuitemPropertyChangedCallback
cb' = MenuitemPropertyChangedCallback
-> C_MenuitemPropertyChangedCallback
wrap_MenuitemPropertyChangedCallback MenuitemPropertyChangedCallback
cb
C_MenuitemPropertyChangedCallback
-> IO (FunPtr C_MenuitemPropertyChangedCallback)
mk_MenuitemPropertyChangedCallback C_MenuitemPropertyChangedCallback
cb' IO (FunPtr C_MenuitemPropertyChangedCallback)
-> (FunPtr C_MenuitemPropertyChangedCallback
-> IO (GClosure C_MenuitemPropertyChangedCallback))
-> IO (GClosure C_MenuitemPropertyChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuitemPropertyChangedCallback
-> IO (GClosure C_MenuitemPropertyChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuitemPropertyChangedCallback ::
MenuitemPropertyChangedCallback ->
C_MenuitemPropertyChangedCallback
_cb :: MenuitemPropertyChangedCallback
_cb _ arg1 :: CString
arg1 arg2 :: Ptr GVariant
arg2 _ = 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
MenuitemPropertyChangedCallback
_cb Text
arg1' GVariant
arg2'
onMenuitemPropertyChanged :: (IsMenuitem a, MonadIO m) => a -> MenuitemPropertyChangedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemPropertyChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemPropertyChangedCallback
cb' = MenuitemPropertyChangedCallback
-> C_MenuitemPropertyChangedCallback
wrap_MenuitemPropertyChangedCallback MenuitemPropertyChangedCallback
cb
FunPtr C_MenuitemPropertyChangedCallback
cb'' <- C_MenuitemPropertyChangedCallback
-> IO (FunPtr C_MenuitemPropertyChangedCallback)
mk_MenuitemPropertyChangedCallback C_MenuitemPropertyChangedCallback
cb'
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 "property-changed" FunPtr C_MenuitemPropertyChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemPropertyChanged :: (IsMenuitem a, MonadIO m) => a -> MenuitemPropertyChangedCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemPropertyChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemPropertyChangedCallback
cb' = MenuitemPropertyChangedCallback
-> C_MenuitemPropertyChangedCallback
wrap_MenuitemPropertyChangedCallback MenuitemPropertyChangedCallback
cb
FunPtr C_MenuitemPropertyChangedCallback
cb'' <- C_MenuitemPropertyChangedCallback
-> IO (FunPtr C_MenuitemPropertyChangedCallback)
mk_MenuitemPropertyChangedCallback C_MenuitemPropertyChangedCallback
cb'
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 "property-changed" FunPtr C_MenuitemPropertyChangedCallback
cb'' 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
#endif
type =
IO ()
noMenuitemRealizedCallback :: Maybe MenuitemRealizedCallback
= Maybe (IO ())
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemRealizedCallback -> IO (FunPtr C_MenuitemRealizedCallback)
genClosure_MenuitemRealized :: MonadIO m => MenuitemRealizedCallback -> m (GClosure C_MenuitemRealizedCallback)
cb :: IO ()
cb = IO (GClosure C_MenuitemRealizedCallback)
-> m (GClosure C_MenuitemRealizedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuitemRealizedCallback)
-> m (GClosure C_MenuitemRealizedCallback))
-> IO (GClosure C_MenuitemRealizedCallback)
-> m (GClosure C_MenuitemRealizedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuitemRealizedCallback
cb' = IO () -> C_MenuitemRealizedCallback
wrap_MenuitemRealizedCallback IO ()
cb
C_MenuitemRealizedCallback
-> IO (FunPtr C_MenuitemRealizedCallback)
mk_MenuitemRealizedCallback C_MenuitemRealizedCallback
cb' IO (FunPtr C_MenuitemRealizedCallback)
-> (FunPtr C_MenuitemRealizedCallback
-> IO (GClosure C_MenuitemRealizedCallback))
-> IO (GClosure C_MenuitemRealizedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuitemRealizedCallback
-> IO (GClosure C_MenuitemRealizedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuitemRealizedCallback ::
MenuitemRealizedCallback ->
C_MenuitemRealizedCallback
_cb :: IO ()
_cb _ _ = do
IO ()
_cb
onMenuitemRealized :: (IsMenuitem a, MonadIO m) => a -> MenuitemRealizedCallback -> m SignalHandlerId
obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemRealizedCallback
cb' = IO () -> C_MenuitemRealizedCallback
wrap_MenuitemRealizedCallback IO ()
cb
FunPtr C_MenuitemRealizedCallback
cb'' <- C_MenuitemRealizedCallback
-> IO (FunPtr C_MenuitemRealizedCallback)
mk_MenuitemRealizedCallback C_MenuitemRealizedCallback
cb'
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 "realized" FunPtr C_MenuitemRealizedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemRealized :: (IsMenuitem a, MonadIO m) => a -> MenuitemRealizedCallback -> m SignalHandlerId
obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemRealizedCallback
cb' = IO () -> C_MenuitemRealizedCallback
wrap_MenuitemRealizedCallback IO ()
cb
FunPtr C_MenuitemRealizedCallback
cb'' <- C_MenuitemRealizedCallback
-> IO (FunPtr C_MenuitemRealizedCallback)
mk_MenuitemRealizedCallback C_MenuitemRealizedCallback
cb'
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 "realized" FunPtr C_MenuitemRealizedCallback
cb'' 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
#endif
type =
Word32
-> IO ()
noMenuitemShowToUserCallback :: Maybe MenuitemShowToUserCallback
= Maybe MenuitemItemActivatedCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuitemShowToUserCallback -> IO (FunPtr C_MenuitemShowToUserCallback)
genClosure_MenuitemShowToUser :: MonadIO m => MenuitemShowToUserCallback -> m (GClosure C_MenuitemShowToUserCallback)
cb :: MenuitemItemActivatedCallback
cb = IO (GClosure C_MenuitemItemActivatedCallback)
-> m (GClosure C_MenuitemItemActivatedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuitemItemActivatedCallback)
-> m (GClosure C_MenuitemItemActivatedCallback))
-> IO (GClosure C_MenuitemItemActivatedCallback)
-> m (GClosure C_MenuitemItemActivatedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuitemItemActivatedCallback
cb' = MenuitemItemActivatedCallback -> C_MenuitemItemActivatedCallback
wrap_MenuitemShowToUserCallback MenuitemItemActivatedCallback
cb
C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemShowToUserCallback C_MenuitemItemActivatedCallback
cb' IO (FunPtr C_MenuitemItemActivatedCallback)
-> (FunPtr C_MenuitemItemActivatedCallback
-> IO (GClosure C_MenuitemItemActivatedCallback))
-> IO (GClosure C_MenuitemItemActivatedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuitemItemActivatedCallback
-> IO (GClosure C_MenuitemItemActivatedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuitemShowToUserCallback ::
MenuitemShowToUserCallback ->
C_MenuitemShowToUserCallback
_cb :: MenuitemItemActivatedCallback
_cb _ arg1 :: Word32
arg1 _ = do
MenuitemItemActivatedCallback
_cb Word32
arg1
onMenuitemShowToUser :: (IsMenuitem a, MonadIO m) => a -> MenuitemShowToUserCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemItemActivatedCallback
cb' = MenuitemItemActivatedCallback -> C_MenuitemItemActivatedCallback
wrap_MenuitemShowToUserCallback MenuitemItemActivatedCallback
cb
FunPtr C_MenuitemItemActivatedCallback
cb'' <- C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemShowToUserCallback C_MenuitemItemActivatedCallback
cb'
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 "show-to-user" FunPtr C_MenuitemItemActivatedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuitemShowToUser :: (IsMenuitem a, MonadIO m) => a -> MenuitemShowToUserCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuitemItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_MenuitemItemActivatedCallback
cb' = MenuitemItemActivatedCallback -> C_MenuitemItemActivatedCallback
wrap_MenuitemShowToUserCallback MenuitemItemActivatedCallback
cb
FunPtr C_MenuitemItemActivatedCallback
cb'' <- C_MenuitemItemActivatedCallback
-> IO (FunPtr C_MenuitemItemActivatedCallback)
mk_MenuitemShowToUserCallback C_MenuitemItemActivatedCallback
cb'
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 "show-to-user" FunPtr C_MenuitemItemActivatedCallback
cb'' 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
#endif
getMenuitemId :: (MonadIO m, IsMenuitem o) => o -> m Int32
obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "id"
constructMenuitemId :: (IsMenuitem o) => Int32 -> IO (GValueConstruct o)
val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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
#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 (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 "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 (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
id :: Int32
id = IO Menuitem -> m Menuitem
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 "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 (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
mi :: a
mi child :: b
child position :: Word32
position = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemChildAddPositionMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi child :: b
child = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemChildAppendMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi child :: b
child = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemChildDeleteMethodInfo a signature where
overloadedMethod = 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 Menuitem
mi :: a
mi id :: Int32
id = IO Menuitem -> m Menuitem
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 -> Int32 -> IO (Ptr Menuitem)
dbusmenu_menuitem_child_find Ptr Menuitem
mi' Int32
id
Text -> Ptr Menuitem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuitemChildFind" 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 (m :: * -> *) a. Monad m => a -> m a
return Menuitem
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemChildFindMethodInfo
instance (signature ~ (Int32 -> m Menuitem), MonadIO m, IsMenuitem a) => O.MethodInfo MenuitemChildFindMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi child :: b
child = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemChildPrependMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi child :: b
child position :: Word32
position = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemChildReorderMethodInfo a signature where
overloadedMethod = 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 Menuitem
mi :: a
mi id :: Int32
id = IO Menuitem -> m Menuitem
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 -> Int32 -> IO (Ptr Menuitem)
dbusmenu_menuitem_find_id Ptr Menuitem
mi' Int32
id
Text -> Ptr Menuitem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuitemFindId" 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 (m :: * -> *) a. Monad m => a -> m a
return Menuitem
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemFindIdMethodInfo
instance (signature ~ (Int32 -> m Menuitem), MonadIO m, IsMenuitem a) => O.MethodInfo MenuitemFindIdMethodInfo a signature where
overloadedMethod = 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 ()
mi :: a
mi func :: Ptr ()
func data_ :: Ptr ()
data_ = IO () -> m ()
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 -> C_MenuitemRealizedCallback
dbusmenu_menuitem_foreach Ptr Menuitem
mi' Ptr ()
func Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
() -> IO ()
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.MethodInfo MenuitemForeachMethodInfo a signature where
overloadedMethod = 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]
mi :: a
mi = IO [Menuitem] -> m [Menuitem]
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)
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 (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.MethodInfo MenuitemGetChildrenMethodInfo a signature where
overloadedMethod = menuitemGetChildren
#endif
foreign import ccall "dbusmenu_menuitem_get_id" ::
Ptr Menuitem ->
IO Int32
menuitemGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m Int32
mi :: a
mi = IO Int32 -> m Int32
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 (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.MethodInfo MenuitemGetIdMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi = IO Menuitem -> m Menuitem
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 "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 (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.MethodInfo MenuitemGetParentMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi parent :: b
parent = IO Word32 -> m Word32
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 (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.MethodInfo MenuitemGetPositionMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi parent :: b
parent = IO Word32 -> m Word32
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 (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.MethodInfo MenuitemGetPositionRealizedMethodInfo a signature where
overloadedMethod = menuitemGetPositionRealized
#endif
foreign import ccall "dbusmenu_menuitem_get_root" ::
Ptr Menuitem ->
IO CInt
menuitemGetRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m Bool
mi :: a
mi = MenuitemAboutToShowCallback -> m Bool
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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
Bool -> MenuitemAboutToShowCallback
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.MethodInfo MenuitemGetRootMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> GVariant -> Word32 -> m ()
menuitemHandleEvent mi :: a
mi name :: Text
name variant :: GVariant
variant timestamp :: Word32
timestamp = IO () -> m ()
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 (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.MethodInfo MenuitemHandleEventMethodInfo a signature where
overloadedMethod = 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 ()))
mi :: a
mi = IO (Map (Ptr ()) (Ptr ())) -> m (Map (Ptr ()) (Ptr ()))
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 "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
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
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 (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.MethodInfo MenuitemPropertiesCopyMethodInfo a signature where
overloadedMethod = 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]
mi :: a
mi = IO [Text] -> m [Text]
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)
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 (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.MethodInfo MenuitemPropertiesListMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi property :: Text
property = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemPropertyExistMethodInfo a signature where
overloadedMethod = 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 T.Text
mi :: a
mi property :: Text
property = IO Text -> m Text
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
CString
property' <- Text -> IO CString
textToCString Text
property
CString
result <- Ptr Menuitem -> CString -> IO CString
dbusmenu_menuitem_property_get Ptr Menuitem
mi' CString
property'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuitemPropertyGet" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyGetMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsMenuitem a) => O.MethodInfo MenuitemPropertyGetMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi property :: Text
property = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemPropertyGetBoolMethodInfo a signature where
overloadedMethod = 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 ByteString
mi :: a
mi property :: Text
property = IO ByteString -> m ByteString
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ByteString -> m ByteString) -> IO ByteString -> m 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
Text -> Ptr Word8 -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuitemPropertyGetByteArray" Ptr Word8
result
ByteString
result' <- (Word64 -> Ptr Word8 -> IO ByteString
forall a. Integral a => a -> Ptr Word8 -> IO ByteString
unpackByteStringWithLength Word64
nelements') Ptr Word8
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
ByteString -> IO ByteString
forall (m :: * -> *) a. Monad m => a -> m a
return ByteString
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyGetByteArrayMethodInfo
instance (signature ~ (T.Text -> m ByteString), MonadIO m, IsMenuitem a) => O.MethodInfo MenuitemPropertyGetByteArrayMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi property :: Text
property = IO Int32 -> m Int32
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 (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.MethodInfo MenuitemPropertyGetIntMethodInfo a signature where
overloadedMethod = 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 GVariant
mi :: a
mi property :: Text
property = IO GVariant -> m GVariant
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m 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'
Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuitemPropertyGetVariant" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
property'
GVariant -> IO GVariant
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyGetVariantMethodInfo
instance (signature ~ (T.Text -> m GVariant), MonadIO m, IsMenuitem a) => O.MethodInfo MenuitemPropertyGetVariantMethodInfo a signature where
overloadedMethod = 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 ()
mi :: a
mi property :: Text
property = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemPropertyRemoveMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMenuitem a) => O.MethodInfo MenuitemPropertyRemoveMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi property :: Text
property value :: Text
value = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemPropertySetMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi property :: Text
property value :: Bool
value = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemPropertySetBoolMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi property :: Text
property value :: Word8
value nelements :: Word64
nelements = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemPropertySetByteArrayMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi property :: Text
property value :: Int32
value = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemPropertySetIntMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi property :: Text
property value :: GVariant
value = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemPropertySetVariantMethodInfo a signature where
overloadedMethod = 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 ()
mi :: a
mi cb :: Ptr ()
cb cbData :: Ptr ()
cbData = IO () -> m ()
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 -> C_MenuitemRealizedCallback
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemSendAboutToShowMethodInfo
instance (signature ~ (Ptr () -> Ptr () -> m ()), MonadIO m, IsMenuitem a) => O.MethodInfo MenuitemSendAboutToShowMethodInfo a signature where
overloadedMethod = 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
mi :: a
mi parent :: b
parent = MenuitemAboutToShowCallback -> m Bool
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
/= 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 (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.MethodInfo MenuitemSetParentMethodInfo a signature where
overloadedMethod = menuitemSetParent
#endif
foreign import ccall "dbusmenu_menuitem_set_root" ::
Ptr Menuitem ->
CInt ->
IO ()
menuitemSetRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> Bool
-> m ()
mi :: a
mi root :: Bool
root = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemSetRootMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMenuitem a) => O.MethodInfo MenuitemSetRootMethodInfo a signature where
overloadedMethod = 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 ()
mi :: a
mi timestamp :: Word32
timestamp = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuitemShowToUserMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsMenuitem a) => O.MethodInfo MenuitemShowToUserMethodInfo a signature where
overloadedMethod = 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]
mi :: a
mi = IO [Menuitem] -> m [Menuitem]
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)
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 (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.MethodInfo MenuitemTakeChildrenMethodInfo a signature where
overloadedMethod = menuitemTakeChildren
#endif
foreign import ccall "dbusmenu_menuitem_unparent" ::
Ptr Menuitem ->
IO CInt
menuitemUnparent ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuitem a) =>
a
-> m Bool
mi :: a
mi = MenuitemAboutToShowCallback -> m Bool
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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
mi
Bool -> MenuitemAboutToShowCallback
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.MethodInfo MenuitemUnparentMethodInfo a signature where
overloadedMethod = menuitemUnparent
#endif