{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.CssProvider
(
CssProvider(..) ,
IsCssProvider ,
toCssProvider ,
#if defined(ENABLE_OVERLOADING)
ResolveCssProviderMethod ,
#endif
cssProviderGetDefault ,
cssProviderGetNamed ,
#if defined(ENABLE_OVERLOADING)
CssProviderLoadFromDataMethodInfo ,
#endif
cssProviderLoadFromData ,
#if defined(ENABLE_OVERLOADING)
CssProviderLoadFromFileMethodInfo ,
#endif
cssProviderLoadFromFile ,
#if defined(ENABLE_OVERLOADING)
CssProviderLoadFromPathMethodInfo ,
#endif
cssProviderLoadFromPath ,
#if defined(ENABLE_OVERLOADING)
CssProviderLoadFromResourceMethodInfo ,
#endif
cssProviderLoadFromResource ,
cssProviderNew ,
#if defined(ENABLE_OVERLOADING)
CssProviderToStringMethodInfo ,
#endif
cssProviderToString ,
CssProviderParsingErrorCallback ,
#if defined(ENABLE_OVERLOADING)
CssProviderParsingErrorSignalInfo ,
#endif
afterCssProviderParsingError ,
onCssProviderParsingError ,
) 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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.File as Gio.File
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Structs.CssSection as Gtk.CssSection
newtype CssProvider = CssProvider (SP.ManagedPtr CssProvider)
deriving (CssProvider -> CssProvider -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CssProvider -> CssProvider -> Bool
$c/= :: CssProvider -> CssProvider -> Bool
== :: CssProvider -> CssProvider -> Bool
$c== :: CssProvider -> CssProvider -> Bool
Eq)
instance SP.ManagedPtrNewtype CssProvider where
toManagedPtr :: CssProvider -> ManagedPtr CssProvider
toManagedPtr (CssProvider ManagedPtr CssProvider
p) = ManagedPtr CssProvider
p
foreign import ccall "gtk_css_provider_get_type"
c_gtk_css_provider_get_type :: IO B.Types.GType
instance B.Types.TypedObject CssProvider where
glibType :: IO GType
glibType = IO GType
c_gtk_css_provider_get_type
instance B.Types.GObject CssProvider
class (SP.GObject o, O.IsDescendantOf CssProvider o) => IsCssProvider o
instance (SP.GObject o, O.IsDescendantOf CssProvider o) => IsCssProvider o
instance O.HasParentTypes CssProvider
type instance O.ParentTypes CssProvider = '[GObject.Object.Object, Gtk.StyleProvider.StyleProvider]
toCssProvider :: (MIO.MonadIO m, IsCssProvider o) => o -> m CssProvider
toCssProvider :: forall (m :: * -> *) o.
(MonadIO m, IsCssProvider o) =>
o -> m CssProvider
toCssProvider = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CssProvider -> CssProvider
CssProvider
instance B.GValue.IsGValue (Maybe CssProvider) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_css_provider_get_type
gvalueSet_ :: Ptr GValue -> Maybe CssProvider -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CssProvider
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr CssProvider)
gvalueSet_ Ptr GValue
gv (P.Just CssProvider
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CssProvider
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CssProvider)
gvalueGet_ Ptr GValue
gv = do
Ptr CssProvider
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CssProvider)
if Ptr CssProvider
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CssProvider -> CssProvider
CssProvider Ptr CssProvider
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCssProviderMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCssProviderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCssProviderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCssProviderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCssProviderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCssProviderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCssProviderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCssProviderMethod "loadFromData" o = CssProviderLoadFromDataMethodInfo
ResolveCssProviderMethod "loadFromFile" o = CssProviderLoadFromFileMethodInfo
ResolveCssProviderMethod "loadFromPath" o = CssProviderLoadFromPathMethodInfo
ResolveCssProviderMethod "loadFromResource" o = CssProviderLoadFromResourceMethodInfo
ResolveCssProviderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCssProviderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCssProviderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCssProviderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCssProviderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCssProviderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCssProviderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCssProviderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCssProviderMethod "toString" o = CssProviderToStringMethodInfo
ResolveCssProviderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCssProviderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCssProviderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCssProviderMethod "getIconFactory" o = Gtk.StyleProvider.StyleProviderGetIconFactoryMethodInfo
ResolveCssProviderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCssProviderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCssProviderMethod "getStyle" o = Gtk.StyleProvider.StyleProviderGetStyleMethodInfo
ResolveCssProviderMethod "getStyleProperty" o = Gtk.StyleProvider.StyleProviderGetStylePropertyMethodInfo
ResolveCssProviderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCssProviderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCssProviderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCssProviderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCssProviderMethod t CssProvider, O.OverloadedMethod info CssProvider p) => OL.IsLabel t (CssProvider -> 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 ~ ResolveCssProviderMethod t CssProvider, O.OverloadedMethod info CssProvider p, R.HasField t CssProvider p) => R.HasField t CssProvider p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCssProviderMethod t CssProvider, O.OverloadedMethodInfo info CssProvider) => OL.IsLabel t (O.MethodProxy info CssProvider) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type CssProviderParsingErrorCallback =
Gtk.CssSection.CssSection
-> GError
-> IO ()
type C_CssProviderParsingErrorCallback =
Ptr CssProvider ->
Ptr Gtk.CssSection.CssSection ->
Ptr GError ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CssProviderParsingErrorCallback :: C_CssProviderParsingErrorCallback -> IO (FunPtr C_CssProviderParsingErrorCallback)
wrap_CssProviderParsingErrorCallback ::
GObject a => (a -> CssProviderParsingErrorCallback) ->
C_CssProviderParsingErrorCallback
wrap_CssProviderParsingErrorCallback :: forall a.
GObject a =>
(a -> CssProviderParsingErrorCallback)
-> C_CssProviderParsingErrorCallback
wrap_CssProviderParsingErrorCallback a -> CssProviderParsingErrorCallback
gi'cb Ptr CssProvider
gi'selfPtr Ptr CssSection
section Ptr GError
error_ Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr CssSection
section forall a b. (a -> b) -> a -> b
$ \CssSection
section' -> do
GError
error_' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr GError -> GError
GError) Ptr GError
error_
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr CssProvider
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \CssProvider
gi'self -> a -> CssProviderParsingErrorCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce CssProvider
gi'self) CssSection
section' GError
error_'
onCssProviderParsingError :: (IsCssProvider a, MonadIO m) => a -> ((?self :: a) => CssProviderParsingErrorCallback) -> m SignalHandlerId
onCssProviderParsingError :: forall a (m :: * -> *).
(IsCssProvider a, MonadIO m) =>
a
-> ((?self::a) => CssProviderParsingErrorCallback)
-> m SignalHandlerId
onCssProviderParsingError a
obj (?self::a) => CssProviderParsingErrorCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CssProviderParsingErrorCallback
wrapped a
self = let ?self = a
self in (?self::a) => CssProviderParsingErrorCallback
cb
let wrapped' :: C_CssProviderParsingErrorCallback
wrapped' = forall a.
GObject a =>
(a -> CssProviderParsingErrorCallback)
-> C_CssProviderParsingErrorCallback
wrap_CssProviderParsingErrorCallback a -> CssProviderParsingErrorCallback
wrapped
FunPtr C_CssProviderParsingErrorCallback
wrapped'' <- C_CssProviderParsingErrorCallback
-> IO (FunPtr C_CssProviderParsingErrorCallback)
mk_CssProviderParsingErrorCallback C_CssProviderParsingErrorCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"parsing-error" FunPtr C_CssProviderParsingErrorCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterCssProviderParsingError :: (IsCssProvider a, MonadIO m) => a -> ((?self :: a) => CssProviderParsingErrorCallback) -> m SignalHandlerId
afterCssProviderParsingError :: forall a (m :: * -> *).
(IsCssProvider a, MonadIO m) =>
a
-> ((?self::a) => CssProviderParsingErrorCallback)
-> m SignalHandlerId
afterCssProviderParsingError a
obj (?self::a) => CssProviderParsingErrorCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CssProviderParsingErrorCallback
wrapped a
self = let ?self = a
self in (?self::a) => CssProviderParsingErrorCallback
cb
let wrapped' :: C_CssProviderParsingErrorCallback
wrapped' = forall a.
GObject a =>
(a -> CssProviderParsingErrorCallback)
-> C_CssProviderParsingErrorCallback
wrap_CssProviderParsingErrorCallback a -> CssProviderParsingErrorCallback
wrapped
FunPtr C_CssProviderParsingErrorCallback
wrapped'' <- C_CssProviderParsingErrorCallback
-> IO (FunPtr C_CssProviderParsingErrorCallback)
mk_CssProviderParsingErrorCallback C_CssProviderParsingErrorCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"parsing-error" FunPtr C_CssProviderParsingErrorCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CssProviderParsingErrorSignalInfo
instance SignalInfo CssProviderParsingErrorSignalInfo where
type HaskellCallbackType CssProviderParsingErrorSignalInfo = CssProviderParsingErrorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CssProviderParsingErrorCallback cb
cb'' <- mk_CssProviderParsingErrorCallback cb'
connectSignalFunPtr obj "parsing-error" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider::parsing-error"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CssProvider.html#g:signal:parsingError"})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CssProvider
type instance O.AttributeList CssProvider = CssProviderAttributeList
type CssProviderAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CssProvider = CssProviderSignalList
type CssProviderSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("parsingError", CssProviderParsingErrorSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_css_provider_new" gtk_css_provider_new ::
IO (Ptr CssProvider)
cssProviderNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CssProvider
cssProviderNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m CssProvider
cssProviderNew = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CssProvider
result <- IO (Ptr CssProvider)
gtk_css_provider_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cssProviderNew" Ptr CssProvider
result
CssProvider
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CssProvider -> CssProvider
CssProvider) Ptr CssProvider
result
forall (m :: * -> *) a. Monad m => a -> m a
return CssProvider
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_css_provider_load_from_data" gtk_css_provider_load_from_data ::
Ptr CssProvider ->
Ptr Word8 ->
Int64 ->
Ptr (Ptr GError) ->
IO CInt
cssProviderLoadFromData ::
(B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
a
-> ByteString
-> m ()
cssProviderLoadFromData :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCssProvider a) =>
a -> ByteString -> m ()
cssProviderLoadFromData a
cssProvider ByteString
data_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let length_ :: Int64
length_ = forall a b. (Integral a, Num b) => a -> b
fromIntegral forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
data_
Ptr CssProvider
cssProvider' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cssProvider
Ptr Word8
data_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
data_
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr CssProvider
-> Ptr Word8 -> Int64 -> Ptr (Ptr GError) -> IO CInt
gtk_css_provider_load_from_data Ptr CssProvider
cssProvider' Ptr Word8
data_' Int64
length_
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cssProvider
forall a. Ptr a -> IO ()
freeMem Ptr Word8
data_'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall a. Ptr a -> IO ()
freeMem Ptr Word8
data_'
)
#if defined(ENABLE_OVERLOADING)
data CssProviderLoadFromDataMethodInfo
instance (signature ~ (ByteString -> m ()), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderLoadFromDataMethodInfo a signature where
overloadedMethod = cssProviderLoadFromData
instance O.OverloadedMethodInfo CssProviderLoadFromDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider.cssProviderLoadFromData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CssProvider.html#v:cssProviderLoadFromData"
})
#endif
foreign import ccall "gtk_css_provider_load_from_file" gtk_css_provider_load_from_file ::
Ptr CssProvider ->
Ptr Gio.File.File ->
Ptr (Ptr GError) ->
IO CInt
cssProviderLoadFromFile ::
(B.CallStack.HasCallStack, MonadIO m, IsCssProvider a, Gio.File.IsFile b) =>
a
-> b
-> m ()
cssProviderLoadFromFile :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCssProvider a, IsFile b) =>
a -> b -> m ()
cssProviderLoadFromFile a
cssProvider b
file = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CssProvider
cssProvider' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cssProvider
Ptr File
file' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
file
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr CssProvider -> Ptr File -> Ptr (Ptr GError) -> IO CInt
gtk_css_provider_load_from_file Ptr CssProvider
cssProvider' Ptr File
file'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cssProvider
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
file
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data CssProviderLoadFromFileMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCssProvider a, Gio.File.IsFile b) => O.OverloadedMethod CssProviderLoadFromFileMethodInfo a signature where
overloadedMethod = cssProviderLoadFromFile
instance O.OverloadedMethodInfo CssProviderLoadFromFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider.cssProviderLoadFromFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CssProvider.html#v:cssProviderLoadFromFile"
})
#endif
foreign import ccall "gtk_css_provider_load_from_path" gtk_css_provider_load_from_path ::
Ptr CssProvider ->
CString ->
Ptr (Ptr GError) ->
IO CInt
cssProviderLoadFromPath ::
(B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
a
-> T.Text
-> m ()
cssProviderLoadFromPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCssProvider a) =>
a -> Text -> m ()
cssProviderLoadFromPath a
cssProvider Text
path = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CssProvider
cssProvider' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cssProvider
CString
path' <- Text -> IO CString
textToCString Text
path
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr CssProvider -> CString -> Ptr (Ptr GError) -> IO CInt
gtk_css_provider_load_from_path Ptr CssProvider
cssProvider' CString
path'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cssProvider
forall a. Ptr a -> IO ()
freeMem CString
path'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall a. Ptr a -> IO ()
freeMem CString
path'
)
#if defined(ENABLE_OVERLOADING)
data CssProviderLoadFromPathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderLoadFromPathMethodInfo a signature where
overloadedMethod = cssProviderLoadFromPath
instance O.OverloadedMethodInfo CssProviderLoadFromPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider.cssProviderLoadFromPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CssProvider.html#v:cssProviderLoadFromPath"
})
#endif
foreign import ccall "gtk_css_provider_load_from_resource" gtk_css_provider_load_from_resource ::
Ptr CssProvider ->
CString ->
IO ()
cssProviderLoadFromResource ::
(B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
a
-> T.Text
-> m ()
cssProviderLoadFromResource :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCssProvider a) =>
a -> Text -> m ()
cssProviderLoadFromResource a
cssProvider Text
resourcePath = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CssProvider
cssProvider' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cssProvider
CString
resourcePath' <- Text -> IO CString
textToCString Text
resourcePath
Ptr CssProvider -> CString -> IO ()
gtk_css_provider_load_from_resource Ptr CssProvider
cssProvider' CString
resourcePath'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cssProvider
forall a. Ptr a -> IO ()
freeMem CString
resourcePath'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CssProviderLoadFromResourceMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderLoadFromResourceMethodInfo a signature where
overloadedMethod = cssProviderLoadFromResource
instance O.OverloadedMethodInfo CssProviderLoadFromResourceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider.cssProviderLoadFromResource",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CssProvider.html#v:cssProviderLoadFromResource"
})
#endif
foreign import ccall "gtk_css_provider_to_string" gtk_css_provider_to_string ::
Ptr CssProvider ->
IO CString
cssProviderToString ::
(B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
a
-> m T.Text
cssProviderToString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCssProvider a) =>
a -> m Text
cssProviderToString a
provider = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CssProvider
provider' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
CString
result <- Ptr CssProvider -> IO CString
gtk_css_provider_to_string Ptr CssProvider
provider'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cssProviderToString" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. Ptr a -> IO ()
freeMem CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data CssProviderToStringMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderToStringMethodInfo a signature where
overloadedMethod = cssProviderToString
instance O.OverloadedMethodInfo CssProviderToStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider.cssProviderToString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CssProvider.html#v:cssProviderToString"
})
#endif
foreign import ccall "gtk_css_provider_get_default" gtk_css_provider_get_default ::
IO (Ptr CssProvider)
{-# DEPRECATED cssProviderGetDefault ["(Since version 3.24)","Use 'GI.Gtk.Objects.CssProvider.cssProviderNew' instead."] #-}
cssProviderGetDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CssProvider
cssProviderGetDefault :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m CssProvider
cssProviderGetDefault = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CssProvider
result <- IO (Ptr CssProvider)
gtk_css_provider_get_default
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cssProviderGetDefault" Ptr CssProvider
result
CssProvider
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CssProvider -> CssProvider
CssProvider) Ptr CssProvider
result
forall (m :: * -> *) a. Monad m => a -> m a
return CssProvider
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_css_provider_get_named" gtk_css_provider_get_named ::
CString ->
CString ->
IO (Ptr CssProvider)
cssProviderGetNamed ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Maybe (T.Text)
-> m CssProvider
cssProviderGetNamed :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Maybe Text -> m CssProvider
cssProviderGetNamed Text
name Maybe Text
variant = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
CString
name' <- Text -> IO CString
textToCString Text
name
CString
maybeVariant <- case Maybe Text
variant of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jVariant -> do
CString
jVariant' <- Text -> IO CString
textToCString Text
jVariant
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jVariant'
Ptr CssProvider
result <- CString -> CString -> IO (Ptr CssProvider)
gtk_css_provider_get_named CString
name' CString
maybeVariant
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cssProviderGetNamed" Ptr CssProvider
result
CssProvider
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CssProvider -> CssProvider
CssProvider) Ptr CssProvider
result
forall a. Ptr a -> IO ()
freeMem CString
name'
forall a. Ptr a -> IO ()
freeMem CString
maybeVariant
forall (m :: * -> *) a. Monad m => a -> m a
return CssProvider
result'
#if defined(ENABLE_OVERLOADING)
#endif