{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Pango.Objects.Engine
(
Engine(..) ,
IsEngine ,
toEngine ,
noEngine ,
#if defined(ENABLE_OVERLOADING)
ResolveEngineMethod ,
#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.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 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 Engine = Engine (ManagedPtr Engine)
deriving (Eq)
foreign import ccall "pango_engine_get_type"
c_pango_engine_get_type :: IO GType
instance GObject Engine where
gobjectType = c_pango_engine_get_type
instance B.GValue.IsGValue Engine where
toGValue o = do
gtype <- c_pango_engine_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr Engine)
B.ManagedPtr.newObject Engine ptr
class (GObject o, O.IsDescendantOf Engine o) => IsEngine o
instance (GObject o, O.IsDescendantOf Engine o) => IsEngine o
instance O.HasParentTypes Engine
type instance O.ParentTypes Engine = '[GObject.Object.Object]
toEngine :: (MonadIO m, IsEngine o) => o -> m Engine
toEngine = liftIO . unsafeCastTo Engine
noEngine :: Maybe Engine
noEngine = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveEngineMethod (t :: Symbol) (o :: *) :: * where
ResolveEngineMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveEngineMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveEngineMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveEngineMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveEngineMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveEngineMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveEngineMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveEngineMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveEngineMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveEngineMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveEngineMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEngineMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEngineMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEngineMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEngineMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEngineMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEngineMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEngineMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEngineMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEngineMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEngineMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveEngineMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEngineMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEngineMethod t Engine, O.MethodInfo info Engine p) => OL.IsLabel t (Engine -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Engine
type instance O.AttributeList Engine = EngineAttributeList
type EngineAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Engine = EngineSignalList
type EngineSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif