{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.SimpleActionGroup
(
SimpleActionGroup(..) ,
IsSimpleActionGroup ,
toSimpleActionGroup ,
#if defined(ENABLE_OVERLOADING)
ResolveSimpleActionGroupMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SimpleActionGroupAddEntriesMethodInfo ,
#endif
simpleActionGroupAddEntries ,
#if defined(ENABLE_OVERLOADING)
SimpleActionGroupInsertMethodInfo ,
#endif
simpleActionGroupInsert ,
#if defined(ENABLE_OVERLOADING)
SimpleActionGroupLookupMethodInfo ,
#endif
simpleActionGroupLookup ,
simpleActionGroupNew ,
#if defined(ENABLE_OVERLOADING)
SimpleActionGroupRemoveMethodInfo ,
#endif
simpleActionGroupRemove ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Structs.VariantType as GLib.VariantType
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Action as Gio.Action
import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap
import {-# SOURCE #-} qualified GI.Gio.Structs.ActionEntry as Gio.ActionEntry
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Action as Gio.Action
import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap
import {-# SOURCE #-} qualified GI.Gio.Structs.ActionEntry as Gio.ActionEntry
#endif
newtype SimpleActionGroup = SimpleActionGroup (SP.ManagedPtr SimpleActionGroup)
deriving (SimpleActionGroup -> SimpleActionGroup -> Bool
(SimpleActionGroup -> SimpleActionGroup -> Bool)
-> (SimpleActionGroup -> SimpleActionGroup -> Bool)
-> Eq SimpleActionGroup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SimpleActionGroup -> SimpleActionGroup -> Bool
== :: SimpleActionGroup -> SimpleActionGroup -> Bool
$c/= :: SimpleActionGroup -> SimpleActionGroup -> Bool
/= :: SimpleActionGroup -> SimpleActionGroup -> Bool
Eq)
instance SP.ManagedPtrNewtype SimpleActionGroup where
toManagedPtr :: SimpleActionGroup -> ManagedPtr SimpleActionGroup
toManagedPtr (SimpleActionGroup ManagedPtr SimpleActionGroup
p) = ManagedPtr SimpleActionGroup
p
foreign import ccall "g_simple_action_group_get_type"
c_g_simple_action_group_get_type :: IO B.Types.GType
instance B.Types.TypedObject SimpleActionGroup where
glibType :: IO GType
glibType = IO GType
c_g_simple_action_group_get_type
instance B.Types.GObject SimpleActionGroup
class (SP.GObject o, O.IsDescendantOf SimpleActionGroup o) => IsSimpleActionGroup o
instance (SP.GObject o, O.IsDescendantOf SimpleActionGroup o) => IsSimpleActionGroup o
instance O.HasParentTypes SimpleActionGroup
type instance O.ParentTypes SimpleActionGroup = '[GObject.Object.Object, Gio.ActionGroup.ActionGroup, Gio.ActionMap.ActionMap]
toSimpleActionGroup :: (MIO.MonadIO m, IsSimpleActionGroup o) => o -> m SimpleActionGroup
toSimpleActionGroup :: forall (m :: * -> *) o.
(MonadIO m, IsSimpleActionGroup o) =>
o -> m SimpleActionGroup
toSimpleActionGroup = IO SimpleActionGroup -> m SimpleActionGroup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SimpleActionGroup -> m SimpleActionGroup)
-> (o -> IO SimpleActionGroup) -> o -> m SimpleActionGroup
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SimpleActionGroup -> SimpleActionGroup)
-> o -> IO SimpleActionGroup
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SimpleActionGroup -> SimpleActionGroup
SimpleActionGroup
instance B.GValue.IsGValue (Maybe SimpleActionGroup) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_simple_action_group_get_type
gvalueSet_ :: Ptr GValue -> Maybe SimpleActionGroup -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SimpleActionGroup
P.Nothing = Ptr GValue -> Ptr SimpleActionGroup -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SimpleActionGroup
forall a. Ptr a
FP.nullPtr :: FP.Ptr SimpleActionGroup)
gvalueSet_ Ptr GValue
gv (P.Just SimpleActionGroup
obj) = SimpleActionGroup -> (Ptr SimpleActionGroup -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SimpleActionGroup
obj (Ptr GValue -> Ptr SimpleActionGroup -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SimpleActionGroup)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr SimpleActionGroup)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SimpleActionGroup)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject SimpleActionGroup ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSimpleActionGroupMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSimpleActionGroupMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo
ResolveSimpleActionGroupMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo
ResolveSimpleActionGroupMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo
ResolveSimpleActionGroupMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo
ResolveSimpleActionGroupMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo
ResolveSimpleActionGroupMethod "addAction" o = Gio.ActionMap.ActionMapAddActionMethodInfo
ResolveSimpleActionGroupMethod "addActionEntries" o = Gio.ActionMap.ActionMapAddActionEntriesMethodInfo
ResolveSimpleActionGroupMethod "addEntries" o = SimpleActionGroupAddEntriesMethodInfo
ResolveSimpleActionGroupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSimpleActionGroupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSimpleActionGroupMethod "changeActionState" o = Gio.ActionGroup.ActionGroupChangeActionStateMethodInfo
ResolveSimpleActionGroupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSimpleActionGroupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSimpleActionGroupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSimpleActionGroupMethod "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo
ResolveSimpleActionGroupMethod "insert" o = SimpleActionGroupInsertMethodInfo
ResolveSimpleActionGroupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSimpleActionGroupMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo
ResolveSimpleActionGroupMethod "lookup" o = SimpleActionGroupLookupMethodInfo
ResolveSimpleActionGroupMethod "lookupAction" o = Gio.ActionMap.ActionMapLookupActionMethodInfo
ResolveSimpleActionGroupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSimpleActionGroupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSimpleActionGroupMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo
ResolveSimpleActionGroupMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSimpleActionGroupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSimpleActionGroupMethod "remove" o = SimpleActionGroupRemoveMethodInfo
ResolveSimpleActionGroupMethod "removeAction" o = Gio.ActionMap.ActionMapRemoveActionMethodInfo
ResolveSimpleActionGroupMethod "removeActionEntries" o = Gio.ActionMap.ActionMapRemoveActionEntriesMethodInfo
ResolveSimpleActionGroupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSimpleActionGroupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSimpleActionGroupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSimpleActionGroupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSimpleActionGroupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSimpleActionGroupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSimpleActionGroupMethod "getActionEnabled" o = Gio.ActionGroup.ActionGroupGetActionEnabledMethodInfo
ResolveSimpleActionGroupMethod "getActionParameterType" o = Gio.ActionGroup.ActionGroupGetActionParameterTypeMethodInfo
ResolveSimpleActionGroupMethod "getActionState" o = Gio.ActionGroup.ActionGroupGetActionStateMethodInfo
ResolveSimpleActionGroupMethod "getActionStateHint" o = Gio.ActionGroup.ActionGroupGetActionStateHintMethodInfo
ResolveSimpleActionGroupMethod "getActionStateType" o = Gio.ActionGroup.ActionGroupGetActionStateTypeMethodInfo
ResolveSimpleActionGroupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSimpleActionGroupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSimpleActionGroupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSimpleActionGroupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSimpleActionGroupMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSimpleActionGroupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSimpleActionGroupMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSimpleActionGroupMethod t SimpleActionGroup, O.OverloadedMethod info SimpleActionGroup p) => OL.IsLabel t (SimpleActionGroup -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveSimpleActionGroupMethod t SimpleActionGroup, O.OverloadedMethod info SimpleActionGroup p, R.HasField t SimpleActionGroup p) => R.HasField t SimpleActionGroup p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSimpleActionGroupMethod t SimpleActionGroup, O.OverloadedMethodInfo info SimpleActionGroup) => OL.IsLabel t (O.MethodProxy info SimpleActionGroup) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SimpleActionGroup
type instance O.AttributeList SimpleActionGroup = SimpleActionGroupAttributeList
type SimpleActionGroupAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SimpleActionGroup = SimpleActionGroupSignalList
type SimpleActionGroupSignalList = ('[ '("actionAdded", Gio.ActionGroup.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroup.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroup.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroup.ActionGroupActionStateChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "g_simple_action_group_new" g_simple_action_group_new ::
IO (Ptr SimpleActionGroup)
simpleActionGroupNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SimpleActionGroup
simpleActionGroupNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m SimpleActionGroup
simpleActionGroupNew = IO SimpleActionGroup -> m SimpleActionGroup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SimpleActionGroup -> m SimpleActionGroup)
-> IO SimpleActionGroup -> m SimpleActionGroup
forall a b. (a -> b) -> a -> b
$ do
result <- IO (Ptr SimpleActionGroup)
g_simple_action_group_new
checkUnexpectedReturnNULL "simpleActionGroupNew" result
result' <- (wrapObject SimpleActionGroup) result
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_simple_action_group_add_entries" g_simple_action_group_add_entries ::
Ptr SimpleActionGroup ->
Ptr Gio.ActionEntry.ActionEntry ->
Int32 ->
Ptr () ->
IO ()
{-# DEPRECATED simpleActionGroupAddEntries ["(Since version 2.38)","Use 'GI.Gio.Interfaces.ActionMap.actionMapAddActionEntries'"] #-}
simpleActionGroupAddEntries ::
(B.CallStack.HasCallStack, MonadIO m, IsSimpleActionGroup a) =>
a
-> [Gio.ActionEntry.ActionEntry]
-> Ptr ()
-> m ()
simpleActionGroupAddEntries :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSimpleActionGroup a) =>
a -> [ActionEntry] -> Ptr () -> m ()
simpleActionGroupAddEntries a
simple [ActionEntry]
entries Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let nEntries :: Int32
nEntries = Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [ActionEntry] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [ActionEntry]
entries
simple' <- a -> IO (Ptr SimpleActionGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
simple
entries' <- mapM unsafeManagedPtrGetPtr entries
entries'' <- packBlockArray 64 entries'
g_simple_action_group_add_entries simple' entries'' nEntries userData
touchManagedPtr simple
mapM_ touchManagedPtr entries
freeMem entries''
return ()
#if defined(ENABLE_OVERLOADING)
data SimpleActionGroupAddEntriesMethodInfo
instance (signature ~ ([Gio.ActionEntry.ActionEntry] -> Ptr () -> m ()), MonadIO m, IsSimpleActionGroup a) => O.OverloadedMethod SimpleActionGroupAddEntriesMethodInfo a signature where
overloadedMethod = simpleActionGroupAddEntries
instance O.OverloadedMethodInfo SimpleActionGroupAddEntriesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.SimpleActionGroup.simpleActionGroupAddEntries",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-SimpleActionGroup.html#v:simpleActionGroupAddEntries"
})
#endif
foreign import ccall "g_simple_action_group_insert" g_simple_action_group_insert ::
Ptr SimpleActionGroup ->
Ptr Gio.Action.Action ->
IO ()
{-# DEPRECATED simpleActionGroupInsert ["(Since version 2.38)","Use 'GI.Gio.Interfaces.ActionMap.actionMapAddAction'"] #-}
simpleActionGroupInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsSimpleActionGroup a, Gio.Action.IsAction b) =>
a
-> b
-> m ()
simpleActionGroupInsert :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSimpleActionGroup a, IsAction b) =>
a -> b -> m ()
simpleActionGroupInsert a
simple b
action = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
simple' <- a -> IO (Ptr SimpleActionGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
simple
action' <- unsafeManagedPtrCastPtr action
g_simple_action_group_insert simple' action'
touchManagedPtr simple
touchManagedPtr action
return ()
#if defined(ENABLE_OVERLOADING)
data SimpleActionGroupInsertMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsSimpleActionGroup a, Gio.Action.IsAction b) => O.OverloadedMethod SimpleActionGroupInsertMethodInfo a signature where
overloadedMethod = simpleActionGroupInsert
instance O.OverloadedMethodInfo SimpleActionGroupInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.SimpleActionGroup.simpleActionGroupInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-SimpleActionGroup.html#v:simpleActionGroupInsert"
})
#endif
foreign import ccall "g_simple_action_group_lookup" g_simple_action_group_lookup ::
Ptr SimpleActionGroup ->
CString ->
IO (Ptr Gio.Action.Action)
{-# DEPRECATED simpleActionGroupLookup ["(Since version 2.38)","Use 'GI.Gio.Interfaces.ActionMap.actionMapLookupAction'"] #-}
simpleActionGroupLookup ::
(B.CallStack.HasCallStack, MonadIO m, IsSimpleActionGroup a) =>
a
-> T.Text
-> m Gio.Action.Action
simpleActionGroupLookup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSimpleActionGroup a) =>
a -> Text -> m Action
simpleActionGroupLookup a
simple Text
actionName = IO Action -> m Action
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Action -> m Action) -> IO Action -> m Action
forall a b. (a -> b) -> a -> b
$ do
simple' <- a -> IO (Ptr SimpleActionGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
simple
actionName' <- textToCString actionName
result <- g_simple_action_group_lookup simple' actionName'
checkUnexpectedReturnNULL "simpleActionGroupLookup" result
result' <- (newObject Gio.Action.Action) result
touchManagedPtr simple
freeMem actionName'
return result'
#if defined(ENABLE_OVERLOADING)
data SimpleActionGroupLookupMethodInfo
instance (signature ~ (T.Text -> m Gio.Action.Action), MonadIO m, IsSimpleActionGroup a) => O.OverloadedMethod SimpleActionGroupLookupMethodInfo a signature where
overloadedMethod = simpleActionGroupLookup
instance O.OverloadedMethodInfo SimpleActionGroupLookupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.SimpleActionGroup.simpleActionGroupLookup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-SimpleActionGroup.html#v:simpleActionGroupLookup"
})
#endif
foreign import ccall "g_simple_action_group_remove" g_simple_action_group_remove ::
Ptr SimpleActionGroup ->
CString ->
IO ()
{-# DEPRECATED simpleActionGroupRemove ["(Since version 2.38)","Use 'GI.Gio.Interfaces.ActionMap.actionMapRemoveAction'"] #-}
simpleActionGroupRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsSimpleActionGroup a) =>
a
-> T.Text
-> m ()
simpleActionGroupRemove :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSimpleActionGroup a) =>
a -> Text -> m ()
simpleActionGroupRemove a
simple Text
actionName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
simple' <- a -> IO (Ptr SimpleActionGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
simple
actionName' <- textToCString actionName
g_simple_action_group_remove simple' actionName'
touchManagedPtr simple
freeMem actionName'
return ()
#if defined(ENABLE_OVERLOADING)
data SimpleActionGroupRemoveMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSimpleActionGroup a) => O.OverloadedMethod SimpleActionGroupRemoveMethodInfo a signature where
overloadedMethod = simpleActionGroupRemove
instance O.OverloadedMethodInfo SimpleActionGroupRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.SimpleActionGroup.simpleActionGroupRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-SimpleActionGroup.html#v:simpleActionGroupRemove"
})
#endif