{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Interfaces.ShortcutManager
(
ShortcutManager(..) ,
IsShortcutManager ,
toShortcutManager ,
#if defined(ENABLE_OVERLOADING)
ResolveShortcutManagerMethod ,
#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.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.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 ShortcutManager = ShortcutManager (SP.ManagedPtr ShortcutManager)
deriving (ShortcutManager -> ShortcutManager -> Bool
(ShortcutManager -> ShortcutManager -> Bool)
-> (ShortcutManager -> ShortcutManager -> Bool)
-> Eq ShortcutManager
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ShortcutManager -> ShortcutManager -> Bool
$c/= :: ShortcutManager -> ShortcutManager -> Bool
== :: ShortcutManager -> ShortcutManager -> Bool
$c== :: ShortcutManager -> ShortcutManager -> Bool
Eq)
instance SP.ManagedPtrNewtype ShortcutManager where
toManagedPtr :: ShortcutManager -> ManagedPtr ShortcutManager
toManagedPtr (ShortcutManager ManagedPtr ShortcutManager
p) = ManagedPtr ShortcutManager
p
foreign import ccall "gtk_shortcut_manager_get_type"
c_gtk_shortcut_manager_get_type :: IO B.Types.GType
instance B.Types.TypedObject ShortcutManager where
glibType :: IO GType
glibType = IO GType
c_gtk_shortcut_manager_get_type
instance B.Types.GObject ShortcutManager
instance B.GValue.IsGValue ShortcutManager where
toGValue :: ShortcutManager -> IO GValue
toGValue ShortcutManager
o = do
GType
gtype <- IO GType
c_gtk_shortcut_manager_get_type
ShortcutManager -> (Ptr ShortcutManager -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ShortcutManager
o (GType
-> (GValue -> Ptr ShortcutManager -> IO ())
-> Ptr ShortcutManager
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr ShortcutManager -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO ShortcutManager
fromGValue GValue
gv = do
Ptr ShortcutManager
ptr <- GValue -> IO (Ptr ShortcutManager)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr ShortcutManager)
(ManagedPtr ShortcutManager -> ShortcutManager)
-> Ptr ShortcutManager -> IO ShortcutManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ShortcutManager -> ShortcutManager
ShortcutManager Ptr ShortcutManager
ptr
class (SP.GObject o, O.IsDescendantOf ShortcutManager o) => IsShortcutManager o
instance (SP.GObject o, O.IsDescendantOf ShortcutManager o) => IsShortcutManager o
instance O.HasParentTypes ShortcutManager
type instance O.ParentTypes ShortcutManager = '[GObject.Object.Object]
toShortcutManager :: (MonadIO m, IsShortcutManager o) => o -> m ShortcutManager
toShortcutManager :: o -> m ShortcutManager
toShortcutManager = IO ShortcutManager -> m ShortcutManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ShortcutManager -> m ShortcutManager)
-> (o -> IO ShortcutManager) -> o -> m ShortcutManager
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ShortcutManager -> ShortcutManager)
-> o -> IO ShortcutManager
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr ShortcutManager -> ShortcutManager
ShortcutManager
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ShortcutManager
type instance O.AttributeList ShortcutManager = ShortcutManagerAttributeList
type ShortcutManagerAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveShortcutManagerMethod (t :: Symbol) (o :: *) :: * where
ResolveShortcutManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveShortcutManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveShortcutManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveShortcutManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveShortcutManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveShortcutManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveShortcutManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveShortcutManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveShortcutManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveShortcutManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveShortcutManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveShortcutManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveShortcutManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveShortcutManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveShortcutManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveShortcutManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveShortcutManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveShortcutManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveShortcutManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveShortcutManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveShortcutManagerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveShortcutManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveShortcutManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveShortcutManagerMethod t ShortcutManager, O.MethodInfo info ShortcutManager p) => OL.IsLabel t (ShortcutManager -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ShortcutManager = ShortcutManagerSignalList
type ShortcutManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif