module GI.Gio.Objects.DBusActionGroup
(
DBusActionGroup(..) ,
DBusActionGroupK ,
toDBusActionGroup ,
noDBusActionGroup ,
dBusActionGroupGet ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GObject as GObject
newtype DBusActionGroup = DBusActionGroup (ForeignPtr DBusActionGroup)
foreign import ccall "g_dbus_action_group_get_type"
c_g_dbus_action_group_get_type :: IO GType
type instance ParentTypes DBusActionGroup = DBusActionGroupParentTypes
type DBusActionGroupParentTypes = '[GObject.Object, ActionGroup, RemoteActionGroup]
instance GObject DBusActionGroup where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_dbus_action_group_get_type
class GObject o => DBusActionGroupK o
instance (GObject o, IsDescendantOf DBusActionGroup o) => DBusActionGroupK o
toDBusActionGroup :: DBusActionGroupK o => o -> IO DBusActionGroup
toDBusActionGroup = unsafeCastTo DBusActionGroup
noDBusActionGroup :: Maybe DBusActionGroup
noDBusActionGroup = Nothing
type instance AttributeList DBusActionGroup = DBusActionGroupAttributeList
type DBusActionGroupAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList DBusActionGroup = DBusActionGroupSignalList
type DBusActionGroupSignalList = ('[ '("action-added", ActionGroupActionAddedSignalInfo), '("action-enabled-changed", ActionGroupActionEnabledChangedSignalInfo), '("action-removed", ActionGroupActionRemovedSignalInfo), '("action-state-changed", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_dbus_action_group_get" g_dbus_action_group_get ::
Ptr DBusConnection ->
CString ->
CString ->
IO (Ptr DBusActionGroup)
dBusActionGroupGet ::
(MonadIO m, DBusConnectionK a) =>
a ->
T.Text ->
T.Text ->
m DBusActionGroup
dBusActionGroupGet connection bus_name object_path = liftIO $ do
let connection' = unsafeManagedPtrCastPtr connection
bus_name' <- textToCString bus_name
object_path' <- textToCString object_path
result <- g_dbus_action_group_get connection' bus_name' object_path'
checkUnexpectedReturnNULL "g_dbus_action_group_get" result
result' <- (wrapObject DBusActionGroup) result
touchManagedPtr connection
freeMem bus_name'
freeMem object_path'
return result'