{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Interfaces.StyleProvider
(
StyleProvider(..) ,
noStyleProvider ,
IsStyleProvider ,
toStyleProvider ,
#if defined(ENABLE_OVERLOADING)
ResolveStyleProviderMethod ,
#endif
C_StyleProviderGtkPrivateChangedCallback,
StyleProviderGtkPrivateChangedCallback ,
#if defined(ENABLE_OVERLOADING)
StyleProviderGtkPrivateChangedSignalInfo,
#endif
afterStyleProviderGtkPrivateChanged ,
genClosure_StyleProviderGtkPrivateChanged,
mk_StyleProviderGtkPrivateChangedCallback,
noStyleProviderGtkPrivateChangedCallback,
onStyleProviderGtkPrivateChanged ,
wrap_StyleProviderGtkPrivateChangedCallback,
) 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 StyleProvider = StyleProvider (ManagedPtr StyleProvider)
deriving (StyleProvider -> StyleProvider -> Bool
(StyleProvider -> StyleProvider -> Bool)
-> (StyleProvider -> StyleProvider -> Bool) -> Eq StyleProvider
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StyleProvider -> StyleProvider -> Bool
$c/= :: StyleProvider -> StyleProvider -> Bool
== :: StyleProvider -> StyleProvider -> Bool
$c== :: StyleProvider -> StyleProvider -> Bool
Eq)
noStyleProvider :: Maybe StyleProvider
noStyleProvider :: Maybe StyleProvider
noStyleProvider = Maybe StyleProvider
forall a. Maybe a
Nothing
type StyleProviderGtkPrivateChangedCallback =
IO ()
noStyleProviderGtkPrivateChangedCallback :: Maybe StyleProviderGtkPrivateChangedCallback
noStyleProviderGtkPrivateChangedCallback :: Maybe StyleProviderGtkPrivateChangedCallback
noStyleProviderGtkPrivateChangedCallback = Maybe StyleProviderGtkPrivateChangedCallback
forall a. Maybe a
Nothing
type C_StyleProviderGtkPrivateChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StyleProviderGtkPrivateChangedCallback :: C_StyleProviderGtkPrivateChangedCallback -> IO (FunPtr C_StyleProviderGtkPrivateChangedCallback)
genClosure_StyleProviderGtkPrivateChanged :: MonadIO m => StyleProviderGtkPrivateChangedCallback -> m (GClosure C_StyleProviderGtkPrivateChangedCallback)
genClosure_StyleProviderGtkPrivateChanged :: StyleProviderGtkPrivateChangedCallback
-> m (GClosure C_StyleProviderGtkPrivateChangedCallback)
genClosure_StyleProviderGtkPrivateChanged cb :: StyleProviderGtkPrivateChangedCallback
cb = IO (GClosure C_StyleProviderGtkPrivateChangedCallback)
-> m (GClosure C_StyleProviderGtkPrivateChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_StyleProviderGtkPrivateChangedCallback)
-> m (GClosure C_StyleProviderGtkPrivateChangedCallback))
-> IO (GClosure C_StyleProviderGtkPrivateChangedCallback)
-> m (GClosure C_StyleProviderGtkPrivateChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_StyleProviderGtkPrivateChangedCallback
cb' = StyleProviderGtkPrivateChangedCallback
-> C_StyleProviderGtkPrivateChangedCallback
wrap_StyleProviderGtkPrivateChangedCallback StyleProviderGtkPrivateChangedCallback
cb
C_StyleProviderGtkPrivateChangedCallback
-> IO (FunPtr C_StyleProviderGtkPrivateChangedCallback)
mk_StyleProviderGtkPrivateChangedCallback C_StyleProviderGtkPrivateChangedCallback
cb' IO (FunPtr C_StyleProviderGtkPrivateChangedCallback)
-> (FunPtr C_StyleProviderGtkPrivateChangedCallback
-> IO (GClosure C_StyleProviderGtkPrivateChangedCallback))
-> IO (GClosure C_StyleProviderGtkPrivateChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_StyleProviderGtkPrivateChangedCallback
-> IO (GClosure C_StyleProviderGtkPrivateChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_StyleProviderGtkPrivateChangedCallback ::
StyleProviderGtkPrivateChangedCallback ->
C_StyleProviderGtkPrivateChangedCallback
wrap_StyleProviderGtkPrivateChangedCallback :: StyleProviderGtkPrivateChangedCallback
-> C_StyleProviderGtkPrivateChangedCallback
wrap_StyleProviderGtkPrivateChangedCallback _cb :: StyleProviderGtkPrivateChangedCallback
_cb _ _ = do
StyleProviderGtkPrivateChangedCallback
_cb
onStyleProviderGtkPrivateChanged :: (IsStyleProvider a, MonadIO m) => a -> StyleProviderGtkPrivateChangedCallback -> m SignalHandlerId
onStyleProviderGtkPrivateChanged :: a -> StyleProviderGtkPrivateChangedCallback -> m SignalHandlerId
onStyleProviderGtkPrivateChanged obj :: a
obj cb :: StyleProviderGtkPrivateChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_StyleProviderGtkPrivateChangedCallback
cb' = StyleProviderGtkPrivateChangedCallback
-> C_StyleProviderGtkPrivateChangedCallback
wrap_StyleProviderGtkPrivateChangedCallback StyleProviderGtkPrivateChangedCallback
cb
FunPtr C_StyleProviderGtkPrivateChangedCallback
cb'' <- C_StyleProviderGtkPrivateChangedCallback
-> IO (FunPtr C_StyleProviderGtkPrivateChangedCallback)
mk_StyleProviderGtkPrivateChangedCallback C_StyleProviderGtkPrivateChangedCallback
cb'
a
-> Text
-> FunPtr C_StyleProviderGtkPrivateChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "-gtk-private-changed" FunPtr C_StyleProviderGtkPrivateChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStyleProviderGtkPrivateChanged :: (IsStyleProvider a, MonadIO m) => a -> StyleProviderGtkPrivateChangedCallback -> m SignalHandlerId
afterStyleProviderGtkPrivateChanged :: a -> StyleProviderGtkPrivateChangedCallback -> m SignalHandlerId
afterStyleProviderGtkPrivateChanged obj :: a
obj cb :: StyleProviderGtkPrivateChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_StyleProviderGtkPrivateChangedCallback
cb' = StyleProviderGtkPrivateChangedCallback
-> C_StyleProviderGtkPrivateChangedCallback
wrap_StyleProviderGtkPrivateChangedCallback StyleProviderGtkPrivateChangedCallback
cb
FunPtr C_StyleProviderGtkPrivateChangedCallback
cb'' <- C_StyleProviderGtkPrivateChangedCallback
-> IO (FunPtr C_StyleProviderGtkPrivateChangedCallback)
mk_StyleProviderGtkPrivateChangedCallback C_StyleProviderGtkPrivateChangedCallback
cb'
a
-> Text
-> FunPtr C_StyleProviderGtkPrivateChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "-gtk-private-changed" FunPtr C_StyleProviderGtkPrivateChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StyleProviderGtkPrivateChangedSignalInfo
instance SignalInfo StyleProviderGtkPrivateChangedSignalInfo where
type HaskellCallbackType StyleProviderGtkPrivateChangedSignalInfo = StyleProviderGtkPrivateChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StyleProviderGtkPrivateChangedCallback cb
cb'' <- mk_StyleProviderGtkPrivateChangedCallback cb'
connectSignalFunPtr obj "-gtk-private-changed" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList StyleProvider = StyleProviderSignalList
type StyleProviderSignalList = ('[ '("gtkPrivateChanged", StyleProviderGtkPrivateChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_style_provider_get_type"
c_gtk_style_provider_get_type :: IO GType
instance GObject StyleProvider where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_style_provider_get_type
instance B.GValue.IsGValue StyleProvider where
toGValue :: StyleProvider -> IO GValue
toGValue o :: StyleProvider
o = do
GType
gtype <- IO GType
c_gtk_style_provider_get_type
StyleProvider -> (Ptr StyleProvider -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StyleProvider
o (GType
-> (GValue
-> Ptr StyleProvider -> StyleProviderGtkPrivateChangedCallback)
-> Ptr StyleProvider
-> IO GValue
forall a.
GType
-> (GValue -> a -> StyleProviderGtkPrivateChangedCallback)
-> a
-> IO GValue
B.GValue.buildGValue GType
gtype GValue
-> Ptr StyleProvider -> StyleProviderGtkPrivateChangedCallback
forall a.
GObject a =>
GValue -> Ptr a -> StyleProviderGtkPrivateChangedCallback
B.GValue.set_object)
fromGValue :: GValue -> IO StyleProvider
fromGValue gv :: GValue
gv = do
Ptr StyleProvider
ptr <- GValue -> IO (Ptr StyleProvider)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr StyleProvider)
(ManagedPtr StyleProvider -> StyleProvider)
-> Ptr StyleProvider -> IO StyleProvider
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr StyleProvider -> StyleProvider
StyleProvider Ptr StyleProvider
ptr
class (GObject o, O.IsDescendantOf StyleProvider o) => IsStyleProvider o
instance (GObject o, O.IsDescendantOf StyleProvider o) => IsStyleProvider o
instance O.HasParentTypes StyleProvider
type instance O.ParentTypes StyleProvider = '[GObject.Object.Object]
toStyleProvider :: (MonadIO m, IsStyleProvider o) => o -> m StyleProvider
toStyleProvider :: o -> m StyleProvider
toStyleProvider = IO StyleProvider -> m StyleProvider
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StyleProvider -> m StyleProvider)
-> (o -> IO StyleProvider) -> o -> m StyleProvider
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr StyleProvider -> StyleProvider)
-> o -> IO StyleProvider
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr StyleProvider -> StyleProvider
StyleProvider
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList StyleProvider
type instance O.AttributeList StyleProvider = StyleProviderAttributeList
type StyleProviderAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveStyleProviderMethod (t :: Symbol) (o :: *) :: * where
ResolveStyleProviderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStyleProviderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStyleProviderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStyleProviderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStyleProviderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStyleProviderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStyleProviderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStyleProviderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStyleProviderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStyleProviderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStyleProviderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStyleProviderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStyleProviderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStyleProviderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStyleProviderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStyleProviderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStyleProviderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStyleProviderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStyleProviderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStyleProviderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStyleProviderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStyleProviderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStyleProviderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStyleProviderMethod t StyleProvider, O.MethodInfo info StyleProvider p) => OL.IsLabel t (StyleProvider -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif