{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.MnemonicTrigger
(
MnemonicTrigger(..) ,
IsMnemonicTrigger ,
toMnemonicTrigger ,
#if defined(ENABLE_OVERLOADING)
ResolveMnemonicTriggerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MnemonicTriggerGetKeyvalMethodInfo ,
#endif
mnemonicTriggerGetKeyval ,
mnemonicTriggerNew ,
#if defined(ENABLE_OVERLOADING)
MnemonicTriggerKeyvalPropertyInfo ,
#endif
constructMnemonicTriggerKeyval ,
getMnemonicTriggerKeyval ,
#if defined(ENABLE_OVERLOADING)
mnemonicTriggerKeyval ,
#endif
) 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.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.ShortcutTrigger as Gtk.ShortcutTrigger
newtype MnemonicTrigger = MnemonicTrigger (SP.ManagedPtr MnemonicTrigger)
deriving (MnemonicTrigger -> MnemonicTrigger -> Bool
(MnemonicTrigger -> MnemonicTrigger -> Bool)
-> (MnemonicTrigger -> MnemonicTrigger -> Bool)
-> Eq MnemonicTrigger
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MnemonicTrigger -> MnemonicTrigger -> Bool
$c/= :: MnemonicTrigger -> MnemonicTrigger -> Bool
== :: MnemonicTrigger -> MnemonicTrigger -> Bool
$c== :: MnemonicTrigger -> MnemonicTrigger -> Bool
Eq)
instance SP.ManagedPtrNewtype MnemonicTrigger where
toManagedPtr :: MnemonicTrigger -> ManagedPtr MnemonicTrigger
toManagedPtr (MnemonicTrigger ManagedPtr MnemonicTrigger
p) = ManagedPtr MnemonicTrigger
p
foreign import ccall "gtk_mnemonic_trigger_get_type"
c_gtk_mnemonic_trigger_get_type :: IO B.Types.GType
instance B.Types.TypedObject MnemonicTrigger where
glibType :: IO GType
glibType = IO GType
c_gtk_mnemonic_trigger_get_type
instance B.Types.GObject MnemonicTrigger
class (SP.GObject o, O.IsDescendantOf MnemonicTrigger o) => IsMnemonicTrigger o
instance (SP.GObject o, O.IsDescendantOf MnemonicTrigger o) => IsMnemonicTrigger o
instance O.HasParentTypes MnemonicTrigger
type instance O.ParentTypes MnemonicTrigger = '[Gtk.ShortcutTrigger.ShortcutTrigger, GObject.Object.Object]
toMnemonicTrigger :: (MIO.MonadIO m, IsMnemonicTrigger o) => o -> m MnemonicTrigger
toMnemonicTrigger :: forall (m :: * -> *) o.
(MonadIO m, IsMnemonicTrigger o) =>
o -> m MnemonicTrigger
toMnemonicTrigger = IO MnemonicTrigger -> m MnemonicTrigger
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO MnemonicTrigger -> m MnemonicTrigger)
-> (o -> IO MnemonicTrigger) -> o -> m MnemonicTrigger
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr MnemonicTrigger -> MnemonicTrigger)
-> o -> IO MnemonicTrigger
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr MnemonicTrigger -> MnemonicTrigger
MnemonicTrigger
instance B.GValue.IsGValue (Maybe MnemonicTrigger) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_mnemonic_trigger_get_type
gvalueSet_ :: Ptr GValue -> Maybe MnemonicTrigger -> IO ()
gvalueSet_ Ptr GValue
gv Maybe MnemonicTrigger
P.Nothing = Ptr GValue -> Ptr MnemonicTrigger -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr MnemonicTrigger
forall a. Ptr a
FP.nullPtr :: FP.Ptr MnemonicTrigger)
gvalueSet_ Ptr GValue
gv (P.Just MnemonicTrigger
obj) = MnemonicTrigger -> (Ptr MnemonicTrigger -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr MnemonicTrigger
obj (Ptr GValue -> Ptr MnemonicTrigger -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe MnemonicTrigger)
gvalueGet_ Ptr GValue
gv = do
Ptr MnemonicTrigger
ptr <- Ptr GValue -> IO (Ptr MnemonicTrigger)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr MnemonicTrigger)
if Ptr MnemonicTrigger
ptr Ptr MnemonicTrigger -> Ptr MnemonicTrigger -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr MnemonicTrigger
forall a. Ptr a
FP.nullPtr
then MnemonicTrigger -> Maybe MnemonicTrigger
forall a. a -> Maybe a
P.Just (MnemonicTrigger -> Maybe MnemonicTrigger)
-> IO MnemonicTrigger -> IO (Maybe MnemonicTrigger)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr MnemonicTrigger -> MnemonicTrigger)
-> Ptr MnemonicTrigger -> IO MnemonicTrigger
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr MnemonicTrigger -> MnemonicTrigger
MnemonicTrigger Ptr MnemonicTrigger
ptr
else Maybe MnemonicTrigger -> IO (Maybe MnemonicTrigger)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MnemonicTrigger
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveMnemonicTriggerMethod (t :: Symbol) (o :: *) :: * where
ResolveMnemonicTriggerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMnemonicTriggerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMnemonicTriggerMethod "compare" o = Gtk.ShortcutTrigger.ShortcutTriggerCompareMethodInfo
ResolveMnemonicTriggerMethod "equal" o = Gtk.ShortcutTrigger.ShortcutTriggerEqualMethodInfo
ResolveMnemonicTriggerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMnemonicTriggerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMnemonicTriggerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMnemonicTriggerMethod "hash" o = Gtk.ShortcutTrigger.ShortcutTriggerHashMethodInfo
ResolveMnemonicTriggerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMnemonicTriggerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMnemonicTriggerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMnemonicTriggerMethod "print" o = Gtk.ShortcutTrigger.ShortcutTriggerPrintMethodInfo
ResolveMnemonicTriggerMethod "printLabel" o = Gtk.ShortcutTrigger.ShortcutTriggerPrintLabelMethodInfo
ResolveMnemonicTriggerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMnemonicTriggerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMnemonicTriggerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMnemonicTriggerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMnemonicTriggerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMnemonicTriggerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMnemonicTriggerMethod "toLabel" o = Gtk.ShortcutTrigger.ShortcutTriggerToLabelMethodInfo
ResolveMnemonicTriggerMethod "toString" o = Gtk.ShortcutTrigger.ShortcutTriggerToStringMethodInfo
ResolveMnemonicTriggerMethod "trigger" o = Gtk.ShortcutTrigger.ShortcutTriggerTriggerMethodInfo
ResolveMnemonicTriggerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMnemonicTriggerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMnemonicTriggerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMnemonicTriggerMethod "getKeyval" o = MnemonicTriggerGetKeyvalMethodInfo
ResolveMnemonicTriggerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMnemonicTriggerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMnemonicTriggerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMnemonicTriggerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveMnemonicTriggerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMnemonicTriggerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMnemonicTriggerMethod t MnemonicTrigger, O.OverloadedMethod info MnemonicTrigger p) => OL.IsLabel t (MnemonicTrigger -> 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 ~ ResolveMnemonicTriggerMethod t MnemonicTrigger, O.OverloadedMethod info MnemonicTrigger p, R.HasField t MnemonicTrigger p) => R.HasField t MnemonicTrigger p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMnemonicTriggerMethod t MnemonicTrigger, O.OverloadedMethodInfo info MnemonicTrigger) => OL.IsLabel t (O.MethodProxy info MnemonicTrigger) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getMnemonicTriggerKeyval :: (MonadIO m, IsMnemonicTrigger o) => o -> m Word32
getMnemonicTriggerKeyval :: forall (m :: * -> *) o.
(MonadIO m, IsMnemonicTrigger o) =>
o -> m Word32
getMnemonicTriggerKeyval o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"keyval"
constructMnemonicTriggerKeyval :: (IsMnemonicTrigger o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructMnemonicTriggerKeyval :: forall o (m :: * -> *).
(IsMnemonicTrigger o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructMnemonicTriggerKeyval Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"keyval" Word32
val
#if defined(ENABLE_OVERLOADING)
data MnemonicTriggerKeyvalPropertyInfo
instance AttrInfo MnemonicTriggerKeyvalPropertyInfo where
type AttrAllowedOps MnemonicTriggerKeyvalPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MnemonicTriggerKeyvalPropertyInfo = IsMnemonicTrigger
type AttrSetTypeConstraint MnemonicTriggerKeyvalPropertyInfo = (~) Word32
type AttrTransferTypeConstraint MnemonicTriggerKeyvalPropertyInfo = (~) Word32
type AttrTransferType MnemonicTriggerKeyvalPropertyInfo = Word32
type AttrGetType MnemonicTriggerKeyvalPropertyInfo = Word32
type AttrLabel MnemonicTriggerKeyvalPropertyInfo = "keyval"
type AttrOrigin MnemonicTriggerKeyvalPropertyInfo = MnemonicTrigger
attrGet = getMnemonicTriggerKeyval
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructMnemonicTriggerKeyval
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MnemonicTrigger.keyval"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-MnemonicTrigger.html#g:attr:keyval"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList MnemonicTrigger
type instance O.AttributeList MnemonicTrigger = MnemonicTriggerAttributeList
type MnemonicTriggerAttributeList = ('[ '("keyval", MnemonicTriggerKeyvalPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
mnemonicTriggerKeyval :: AttrLabelProxy "keyval"
mnemonicTriggerKeyval = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList MnemonicTrigger = MnemonicTriggerSignalList
type MnemonicTriggerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_mnemonic_trigger_new" gtk_mnemonic_trigger_new ::
Word32 ->
IO (Ptr MnemonicTrigger)
mnemonicTriggerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Word32
-> m MnemonicTrigger
mnemonicTriggerNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Word32 -> m MnemonicTrigger
mnemonicTriggerNew Word32
keyval = IO MnemonicTrigger -> m MnemonicTrigger
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MnemonicTrigger -> m MnemonicTrigger)
-> IO MnemonicTrigger -> m MnemonicTrigger
forall a b. (a -> b) -> a -> b
$ do
Ptr MnemonicTrigger
result <- Word32 -> IO (Ptr MnemonicTrigger)
gtk_mnemonic_trigger_new Word32
keyval
Text -> Ptr MnemonicTrigger -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"mnemonicTriggerNew" Ptr MnemonicTrigger
result
MnemonicTrigger
result' <- ((ManagedPtr MnemonicTrigger -> MnemonicTrigger)
-> Ptr MnemonicTrigger -> IO MnemonicTrigger
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr MnemonicTrigger -> MnemonicTrigger
MnemonicTrigger) Ptr MnemonicTrigger
result
MnemonicTrigger -> IO MnemonicTrigger
forall (m :: * -> *) a. Monad m => a -> m a
return MnemonicTrigger
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_mnemonic_trigger_get_keyval" gtk_mnemonic_trigger_get_keyval ::
Ptr MnemonicTrigger ->
IO Word32
mnemonicTriggerGetKeyval ::
(B.CallStack.HasCallStack, MonadIO m, IsMnemonicTrigger a) =>
a
-> m Word32
mnemonicTriggerGetKeyval :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMnemonicTrigger a) =>
a -> m Word32
mnemonicTriggerGetKeyval a
self = 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 MnemonicTrigger
self' <- a -> IO (Ptr MnemonicTrigger)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr MnemonicTrigger -> IO Word32
gtk_mnemonic_trigger_get_keyval Ptr MnemonicTrigger
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data MnemonicTriggerGetKeyvalMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsMnemonicTrigger a) => O.OverloadedMethod MnemonicTriggerGetKeyvalMethodInfo a signature where
overloadedMethod = mnemonicTriggerGetKeyval
instance O.OverloadedMethodInfo MnemonicTriggerGetKeyvalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MnemonicTrigger.mnemonicTriggerGetKeyval",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-MnemonicTrigger.html#v:mnemonicTriggerGetKeyval"
})
#endif