#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Objects.DBusActionGroup
(
DBusActionGroup(..) ,
IsDBusActionGroup ,
toDBusActionGroup ,
noDBusActionGroup ,
dBusActionGroupGet ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import {-# SOURCE #-} qualified GI.Gio.Interfaces.RemoteActionGroup as Gio.RemoteActionGroup
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
newtype DBusActionGroup = DBusActionGroup (ManagedPtr DBusActionGroup)
foreign import ccall "g_dbus_action_group_get_type"
c_g_dbus_action_group_get_type :: IO GType
instance GObject DBusActionGroup where
gobjectType :: DBusActionGroup -> IO GType
gobjectType _ = IO GType
c_g_dbus_action_group_get_type
class GObject o => IsDBusActionGroup o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError DBusActionGroup a) =>
IsDBusActionGroup a
#endif
instance IsDBusActionGroup DBusActionGroup
instance GObject.Object.IsObject DBusActionGroup
instance Gio.ActionGroup.IsActionGroup DBusActionGroup
instance Gio.RemoteActionGroup.IsRemoteActionGroup DBusActionGroup
toDBusActionGroup :: (MonadIO m, IsDBusActionGroup o) => o -> m DBusActionGroup
toDBusActionGroup :: o -> m DBusActionGroup
toDBusActionGroup = IO DBusActionGroup -> m DBusActionGroup
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusActionGroup -> m DBusActionGroup)
-> (o -> IO DBusActionGroup) -> o -> m DBusActionGroup
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DBusActionGroup -> DBusActionGroup)
-> o -> IO DBusActionGroup
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DBusActionGroup -> DBusActionGroup
DBusActionGroup
noDBusActionGroup :: Maybe DBusActionGroup
noDBusActionGroup :: Maybe DBusActionGroup
noDBusActionGroup = Maybe DBusActionGroup
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type family ResolveDBusActionGroupMethod (t :: Symbol) (o :: *) :: * where
ResolveDBusActionGroupMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo
ResolveDBusActionGroupMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo
ResolveDBusActionGroupMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo
ResolveDBusActionGroupMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo
ResolveDBusActionGroupMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo
ResolveDBusActionGroupMethod "activateActionFull" o = Gio.RemoteActionGroup.RemoteActionGroupActivateActionFullMethodInfo
ResolveDBusActionGroupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDBusActionGroupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDBusActionGroupMethod "changeActionState" o = Gio.ActionGroup.ActionGroupChangeActionStateMethodInfo
ResolveDBusActionGroupMethod "changeActionStateFull" o = Gio.RemoteActionGroup.RemoteActionGroupChangeActionStateFullMethodInfo
ResolveDBusActionGroupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDBusActionGroupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDBusActionGroupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDBusActionGroupMethod "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo
ResolveDBusActionGroupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDBusActionGroupMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo
ResolveDBusActionGroupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDBusActionGroupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDBusActionGroupMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo
ResolveDBusActionGroupMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDBusActionGroupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDBusActionGroupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDBusActionGroupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDBusActionGroupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDBusActionGroupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDBusActionGroupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDBusActionGroupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDBusActionGroupMethod "getActionEnabled" o = Gio.ActionGroup.ActionGroupGetActionEnabledMethodInfo
ResolveDBusActionGroupMethod "getActionParameterType" o = Gio.ActionGroup.ActionGroupGetActionParameterTypeMethodInfo
ResolveDBusActionGroupMethod "getActionState" o = Gio.ActionGroup.ActionGroupGetActionStateMethodInfo
ResolveDBusActionGroupMethod "getActionStateHint" o = Gio.ActionGroup.ActionGroupGetActionStateHintMethodInfo
ResolveDBusActionGroupMethod "getActionStateType" o = Gio.ActionGroup.ActionGroupGetActionStateTypeMethodInfo
ResolveDBusActionGroupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDBusActionGroupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDBusActionGroupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDBusActionGroupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDBusActionGroupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDBusActionGroupMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusActionGroupMethod t DBusActionGroup, O.MethodInfo info DBusActionGroup p) => O.IsLabelProxy t (DBusActionGroup -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDBusActionGroupMethod t DBusActionGroup, O.MethodInfo info DBusActionGroup p) => O.IsLabel t (DBusActionGroup -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DBusActionGroup
type instance O.AttributeList DBusActionGroup = DBusActionGroupAttributeList
type DBusActionGroupAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DBusActionGroup = DBusActionGroupSignalList
type DBusActionGroupSignalList = ('[ '("actionAdded", Gio.ActionGroup.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroup.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroup.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroup.ActionGroupActionStateChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_dbus_action_group_get" g_dbus_action_group_get ::
Ptr Gio.DBusConnection.DBusConnection ->
CString ->
CString ->
IO (Ptr DBusActionGroup)
dBusActionGroupGet ::
(B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>
a
-> Maybe (T.Text)
-> T.Text
-> m DBusActionGroup
dBusActionGroupGet :: a -> Maybe Text -> Text -> m DBusActionGroup
dBusActionGroupGet connection :: a
connection busName :: Maybe Text
busName objectPath :: Text
objectPath = IO DBusActionGroup -> m DBusActionGroup
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusActionGroup -> m DBusActionGroup)
-> IO DBusActionGroup -> m DBusActionGroup
forall a b. (a -> b) -> a -> b
$ do
Ptr DBusConnection
connection' <- a -> IO (Ptr DBusConnection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
connection
Ptr CChar
maybeBusName <- case Maybe Text
busName of
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just jBusName :: Text
jBusName -> do
Ptr CChar
jBusName' <- Text -> IO (Ptr CChar)
textToCString Text
jBusName
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jBusName'
Ptr CChar
objectPath' <- Text -> IO (Ptr CChar)
textToCString Text
objectPath
Ptr DBusActionGroup
result <- Ptr DBusConnection
-> Ptr CChar -> Ptr CChar -> IO (Ptr DBusActionGroup)
g_dbus_action_group_get Ptr DBusConnection
connection' Ptr CChar
maybeBusName Ptr CChar
objectPath'
Text -> Ptr DBusActionGroup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dBusActionGroupGet" Ptr DBusActionGroup
result
DBusActionGroup
result' <- ((ManagedPtr DBusActionGroup -> DBusActionGroup)
-> Ptr DBusActionGroup -> IO DBusActionGroup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DBusActionGroup -> DBusActionGroup
DBusActionGroup) Ptr DBusActionGroup
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
connection
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeBusName
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
objectPath'
DBusActionGroup -> IO DBusActionGroup
forall (m :: * -> *) a. Monad m => a -> m a
return DBusActionGroup
result'
#if ENABLE_OVERLOADING
#endif