{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.StyleContext
(
StyleContext(..) ,
IsStyleContext ,
toStyleContext ,
#if defined(ENABLE_OVERLOADING)
ResolveStyleContextMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleContextAddClassMethodInfo ,
#endif
styleContextAddClass ,
#if defined(ENABLE_OVERLOADING)
StyleContextAddProviderMethodInfo ,
#endif
styleContextAddProvider ,
styleContextAddProviderForScreen ,
#if defined(ENABLE_OVERLOADING)
StyleContextAddRegionMethodInfo ,
#endif
styleContextAddRegion ,
#if defined(ENABLE_OVERLOADING)
StyleContextCancelAnimationsMethodInfo ,
#endif
styleContextCancelAnimations ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetBackgroundColorMethodInfo,
#endif
styleContextGetBackgroundColor ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetBorderMethodInfo ,
#endif
styleContextGetBorder ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetBorderColorMethodInfo ,
#endif
styleContextGetBorderColor ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetColorMethodInfo ,
#endif
styleContextGetColor ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetDirectionMethodInfo ,
#endif
styleContextGetDirection ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetFontMethodInfo ,
#endif
styleContextGetFont ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetFrameClockMethodInfo ,
#endif
styleContextGetFrameClock ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetJunctionSidesMethodInfo ,
#endif
styleContextGetJunctionSides ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetMarginMethodInfo ,
#endif
styleContextGetMargin ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetPaddingMethodInfo ,
#endif
styleContextGetPadding ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetParentMethodInfo ,
#endif
styleContextGetParent ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetPathMethodInfo ,
#endif
styleContextGetPath ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetPropertyMethodInfo ,
#endif
styleContextGetProperty ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetScaleMethodInfo ,
#endif
styleContextGetScale ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetScreenMethodInfo ,
#endif
styleContextGetScreen ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetSectionMethodInfo ,
#endif
styleContextGetSection ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetStateMethodInfo ,
#endif
styleContextGetState ,
#if defined(ENABLE_OVERLOADING)
StyleContextGetStylePropertyMethodInfo ,
#endif
styleContextGetStyleProperty ,
#if defined(ENABLE_OVERLOADING)
StyleContextHasClassMethodInfo ,
#endif
styleContextHasClass ,
#if defined(ENABLE_OVERLOADING)
StyleContextHasRegionMethodInfo ,
#endif
styleContextHasRegion ,
#if defined(ENABLE_OVERLOADING)
StyleContextInvalidateMethodInfo ,
#endif
styleContextInvalidate ,
#if defined(ENABLE_OVERLOADING)
StyleContextListClassesMethodInfo ,
#endif
styleContextListClasses ,
#if defined(ENABLE_OVERLOADING)
StyleContextListRegionsMethodInfo ,
#endif
styleContextListRegions ,
#if defined(ENABLE_OVERLOADING)
StyleContextLookupColorMethodInfo ,
#endif
styleContextLookupColor ,
#if defined(ENABLE_OVERLOADING)
StyleContextLookupIconSetMethodInfo ,
#endif
styleContextLookupIconSet ,
styleContextNew ,
#if defined(ENABLE_OVERLOADING)
StyleContextNotifyStateChangeMethodInfo ,
#endif
styleContextNotifyStateChange ,
#if defined(ENABLE_OVERLOADING)
StyleContextPopAnimatableRegionMethodInfo,
#endif
styleContextPopAnimatableRegion ,
#if defined(ENABLE_OVERLOADING)
StyleContextPushAnimatableRegionMethodInfo,
#endif
styleContextPushAnimatableRegion ,
#if defined(ENABLE_OVERLOADING)
StyleContextRemoveClassMethodInfo ,
#endif
styleContextRemoveClass ,
#if defined(ENABLE_OVERLOADING)
StyleContextRemoveProviderMethodInfo ,
#endif
styleContextRemoveProvider ,
styleContextRemoveProviderForScreen ,
#if defined(ENABLE_OVERLOADING)
StyleContextRemoveRegionMethodInfo ,
#endif
styleContextRemoveRegion ,
styleContextResetWidgets ,
#if defined(ENABLE_OVERLOADING)
StyleContextRestoreMethodInfo ,
#endif
styleContextRestore ,
#if defined(ENABLE_OVERLOADING)
StyleContextSaveMethodInfo ,
#endif
styleContextSave ,
#if defined(ENABLE_OVERLOADING)
StyleContextScrollAnimationsMethodInfo ,
#endif
styleContextScrollAnimations ,
#if defined(ENABLE_OVERLOADING)
StyleContextSetBackgroundMethodInfo ,
#endif
styleContextSetBackground ,
#if defined(ENABLE_OVERLOADING)
StyleContextSetDirectionMethodInfo ,
#endif
styleContextSetDirection ,
#if defined(ENABLE_OVERLOADING)
StyleContextSetFrameClockMethodInfo ,
#endif
styleContextSetFrameClock ,
#if defined(ENABLE_OVERLOADING)
StyleContextSetJunctionSidesMethodInfo ,
#endif
styleContextSetJunctionSides ,
#if defined(ENABLE_OVERLOADING)
StyleContextSetParentMethodInfo ,
#endif
styleContextSetParent ,
#if defined(ENABLE_OVERLOADING)
StyleContextSetPathMethodInfo ,
#endif
styleContextSetPath ,
#if defined(ENABLE_OVERLOADING)
StyleContextSetScaleMethodInfo ,
#endif
styleContextSetScale ,
#if defined(ENABLE_OVERLOADING)
StyleContextSetScreenMethodInfo ,
#endif
styleContextSetScreen ,
#if defined(ENABLE_OVERLOADING)
StyleContextSetStateMethodInfo ,
#endif
styleContextSetState ,
#if defined(ENABLE_OVERLOADING)
StyleContextStateIsRunningMethodInfo ,
#endif
styleContextStateIsRunning ,
#if defined(ENABLE_OVERLOADING)
StyleContextToStringMethodInfo ,
#endif
styleContextToString ,
#if defined(ENABLE_OVERLOADING)
StyleContextDirectionPropertyInfo ,
#endif
constructStyleContextDirection ,
getStyleContextDirection ,
setStyleContextDirection ,
#if defined(ENABLE_OVERLOADING)
styleContextDirection ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleContextPaintClockPropertyInfo ,
#endif
clearStyleContextPaintClock ,
constructStyleContextPaintClock ,
getStyleContextPaintClock ,
setStyleContextPaintClock ,
#if defined(ENABLE_OVERLOADING)
styleContextPaintClock ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleContextParentPropertyInfo ,
#endif
clearStyleContextParent ,
constructStyleContextParent ,
getStyleContextParent ,
setStyleContextParent ,
#if defined(ENABLE_OVERLOADING)
styleContextParent ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleContextScreenPropertyInfo ,
#endif
constructStyleContextScreen ,
getStyleContextScreen ,
setStyleContextScreen ,
#if defined(ENABLE_OVERLOADING)
styleContextScreen ,
#endif
StyleContextChangedCallback ,
#if defined(ENABLE_OVERLOADING)
StyleContextChangedSignalInfo ,
#endif
afterStyleContextChanged ,
onStyleContextChanged ,
) 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.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Screen as Gdk.Screen
import qualified GI.Gdk.Objects.Window as Gdk.Window
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.CssSection as Gtk.CssSection
import {-# SOURCE #-} qualified GI.Gtk.Structs.IconSet as Gtk.IconSet
import {-# SOURCE #-} qualified GI.Gtk.Structs.WidgetPath as Gtk.WidgetPath
import qualified GI.Pango.Structs.FontDescription as Pango.FontDescription
newtype StyleContext = StyleContext (SP.ManagedPtr StyleContext)
deriving (StyleContext -> StyleContext -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StyleContext -> StyleContext -> Bool
$c/= :: StyleContext -> StyleContext -> Bool
== :: StyleContext -> StyleContext -> Bool
$c== :: StyleContext -> StyleContext -> Bool
Eq)
instance SP.ManagedPtrNewtype StyleContext where
toManagedPtr :: StyleContext -> ManagedPtr StyleContext
toManagedPtr (StyleContext ManagedPtr StyleContext
p) = ManagedPtr StyleContext
p
foreign import ccall "gtk_style_context_get_type"
c_gtk_style_context_get_type :: IO B.Types.GType
instance B.Types.TypedObject StyleContext where
glibType :: IO GType
glibType = IO GType
c_gtk_style_context_get_type
instance B.Types.GObject StyleContext
class (SP.GObject o, O.IsDescendantOf StyleContext o) => IsStyleContext o
instance (SP.GObject o, O.IsDescendantOf StyleContext o) => IsStyleContext o
instance O.HasParentTypes StyleContext
type instance O.ParentTypes StyleContext = '[GObject.Object.Object]
toStyleContext :: (MIO.MonadIO m, IsStyleContext o) => o -> m StyleContext
toStyleContext :: forall (m :: * -> *) o.
(MonadIO m, IsStyleContext o) =>
o -> m StyleContext
toStyleContext = 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 StyleContext -> StyleContext
StyleContext
instance B.GValue.IsGValue (Maybe StyleContext) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_style_context_get_type
gvalueSet_ :: Ptr GValue -> Maybe StyleContext -> IO ()
gvalueSet_ Ptr GValue
gv Maybe StyleContext
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 StyleContext)
gvalueSet_ Ptr GValue
gv (P.Just StyleContext
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StyleContext
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe StyleContext)
gvalueGet_ Ptr GValue
gv = do
Ptr StyleContext
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr StyleContext)
if Ptr StyleContext
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 StyleContext -> StyleContext
StyleContext Ptr StyleContext
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStyleContextMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveStyleContextMethod "addClass" o = StyleContextAddClassMethodInfo
ResolveStyleContextMethod "addProvider" o = StyleContextAddProviderMethodInfo
ResolveStyleContextMethod "addRegion" o = StyleContextAddRegionMethodInfo
ResolveStyleContextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStyleContextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStyleContextMethod "cancelAnimations" o = StyleContextCancelAnimationsMethodInfo
ResolveStyleContextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStyleContextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStyleContextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStyleContextMethod "hasClass" o = StyleContextHasClassMethodInfo
ResolveStyleContextMethod "hasRegion" o = StyleContextHasRegionMethodInfo
ResolveStyleContextMethod "invalidate" o = StyleContextInvalidateMethodInfo
ResolveStyleContextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStyleContextMethod "listClasses" o = StyleContextListClassesMethodInfo
ResolveStyleContextMethod "listRegions" o = StyleContextListRegionsMethodInfo
ResolveStyleContextMethod "lookupColor" o = StyleContextLookupColorMethodInfo
ResolveStyleContextMethod "lookupIconSet" o = StyleContextLookupIconSetMethodInfo
ResolveStyleContextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStyleContextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStyleContextMethod "notifyStateChange" o = StyleContextNotifyStateChangeMethodInfo
ResolveStyleContextMethod "popAnimatableRegion" o = StyleContextPopAnimatableRegionMethodInfo
ResolveStyleContextMethod "pushAnimatableRegion" o = StyleContextPushAnimatableRegionMethodInfo
ResolveStyleContextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStyleContextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStyleContextMethod "removeClass" o = StyleContextRemoveClassMethodInfo
ResolveStyleContextMethod "removeProvider" o = StyleContextRemoveProviderMethodInfo
ResolveStyleContextMethod "removeRegion" o = StyleContextRemoveRegionMethodInfo
ResolveStyleContextMethod "restore" o = StyleContextRestoreMethodInfo
ResolveStyleContextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStyleContextMethod "save" o = StyleContextSaveMethodInfo
ResolveStyleContextMethod "scrollAnimations" o = StyleContextScrollAnimationsMethodInfo
ResolveStyleContextMethod "stateIsRunning" o = StyleContextStateIsRunningMethodInfo
ResolveStyleContextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStyleContextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStyleContextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStyleContextMethod "toString" o = StyleContextToStringMethodInfo
ResolveStyleContextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStyleContextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStyleContextMethod "getBackgroundColor" o = StyleContextGetBackgroundColorMethodInfo
ResolveStyleContextMethod "getBorder" o = StyleContextGetBorderMethodInfo
ResolveStyleContextMethod "getBorderColor" o = StyleContextGetBorderColorMethodInfo
ResolveStyleContextMethod "getColor" o = StyleContextGetColorMethodInfo
ResolveStyleContextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStyleContextMethod "getDirection" o = StyleContextGetDirectionMethodInfo
ResolveStyleContextMethod "getFont" o = StyleContextGetFontMethodInfo
ResolveStyleContextMethod "getFrameClock" o = StyleContextGetFrameClockMethodInfo
ResolveStyleContextMethod "getJunctionSides" o = StyleContextGetJunctionSidesMethodInfo
ResolveStyleContextMethod "getMargin" o = StyleContextGetMarginMethodInfo
ResolveStyleContextMethod "getPadding" o = StyleContextGetPaddingMethodInfo
ResolveStyleContextMethod "getParent" o = StyleContextGetParentMethodInfo
ResolveStyleContextMethod "getPath" o = StyleContextGetPathMethodInfo
ResolveStyleContextMethod "getProperty" o = StyleContextGetPropertyMethodInfo
ResolveStyleContextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStyleContextMethod "getScale" o = StyleContextGetScaleMethodInfo
ResolveStyleContextMethod "getScreen" o = StyleContextGetScreenMethodInfo
ResolveStyleContextMethod "getSection" o = StyleContextGetSectionMethodInfo
ResolveStyleContextMethod "getState" o = StyleContextGetStateMethodInfo
ResolveStyleContextMethod "getStyleProperty" o = StyleContextGetStylePropertyMethodInfo
ResolveStyleContextMethod "setBackground" o = StyleContextSetBackgroundMethodInfo
ResolveStyleContextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStyleContextMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStyleContextMethod "setDirection" o = StyleContextSetDirectionMethodInfo
ResolveStyleContextMethod "setFrameClock" o = StyleContextSetFrameClockMethodInfo
ResolveStyleContextMethod "setJunctionSides" o = StyleContextSetJunctionSidesMethodInfo
ResolveStyleContextMethod "setParent" o = StyleContextSetParentMethodInfo
ResolveStyleContextMethod "setPath" o = StyleContextSetPathMethodInfo
ResolveStyleContextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStyleContextMethod "setScale" o = StyleContextSetScaleMethodInfo
ResolveStyleContextMethod "setScreen" o = StyleContextSetScreenMethodInfo
ResolveStyleContextMethod "setState" o = StyleContextSetStateMethodInfo
ResolveStyleContextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStyleContextMethod t StyleContext, O.OverloadedMethod info StyleContext p) => OL.IsLabel t (StyleContext -> 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 ~ ResolveStyleContextMethod t StyleContext, O.OverloadedMethod info StyleContext p, R.HasField t StyleContext p) => R.HasField t StyleContext p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveStyleContextMethod t StyleContext, O.OverloadedMethodInfo info StyleContext) => OL.IsLabel t (O.MethodProxy info StyleContext) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type StyleContextChangedCallback =
IO ()
type C_StyleContextChangedCallback =
Ptr StyleContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StyleContextChangedCallback :: C_StyleContextChangedCallback -> IO (FunPtr C_StyleContextChangedCallback)
wrap_StyleContextChangedCallback ::
GObject a => (a -> StyleContextChangedCallback) ->
C_StyleContextChangedCallback
wrap_StyleContextChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_StyleContextChangedCallback
wrap_StyleContextChangedCallback a -> IO ()
gi'cb Ptr StyleContext
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr StyleContext
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \StyleContext
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce StyleContext
gi'self)
onStyleContextChanged :: (IsStyleContext a, MonadIO m) => a -> ((?self :: a) => StyleContextChangedCallback) -> m SignalHandlerId
onStyleContextChanged :: forall a (m :: * -> *).
(IsStyleContext a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onStyleContextChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_StyleContextChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_StyleContextChangedCallback
wrap_StyleContextChangedCallback a -> IO ()
wrapped
FunPtr C_StyleContextChangedCallback
wrapped'' <- C_StyleContextChangedCallback
-> IO (FunPtr C_StyleContextChangedCallback)
mk_StyleContextChangedCallback C_StyleContextChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_StyleContextChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterStyleContextChanged :: (IsStyleContext a, MonadIO m) => a -> ((?self :: a) => StyleContextChangedCallback) -> m SignalHandlerId
afterStyleContextChanged :: forall a (m :: * -> *).
(IsStyleContext a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterStyleContextChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_StyleContextChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_StyleContextChangedCallback
wrap_StyleContextChangedCallback a -> IO ()
wrapped
FunPtr C_StyleContextChangedCallback
wrapped'' <- C_StyleContextChangedCallback
-> IO (FunPtr C_StyleContextChangedCallback)
mk_StyleContextChangedCallback C_StyleContextChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_StyleContextChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StyleContextChangedSignalInfo
instance SignalInfo StyleContextChangedSignalInfo where
type HaskellCallbackType StyleContextChangedSignalInfo = StyleContextChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StyleContextChangedCallback cb
cb'' <- mk_StyleContextChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext::changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#g:signal:changed"})
#endif
getStyleContextDirection :: (MonadIO m, IsStyleContext o) => o -> m Gtk.Enums.TextDirection
getStyleContextDirection :: forall (m :: * -> *) o.
(MonadIO m, IsStyleContext o) =>
o -> m TextDirection
getStyleContextDirection o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"direction"
setStyleContextDirection :: (MonadIO m, IsStyleContext o) => o -> Gtk.Enums.TextDirection -> m ()
setStyleContextDirection :: forall (m :: * -> *) o.
(MonadIO m, IsStyleContext o) =>
o -> TextDirection -> m ()
setStyleContextDirection o
obj TextDirection
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"direction" TextDirection
val
constructStyleContextDirection :: (IsStyleContext o, MIO.MonadIO m) => Gtk.Enums.TextDirection -> m (GValueConstruct o)
constructStyleContextDirection :: forall o (m :: * -> *).
(IsStyleContext o, MonadIO m) =>
TextDirection -> m (GValueConstruct o)
constructStyleContextDirection TextDirection
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"direction" TextDirection
val
#if defined(ENABLE_OVERLOADING)
data StyleContextDirectionPropertyInfo
instance AttrInfo StyleContextDirectionPropertyInfo where
type AttrAllowedOps StyleContextDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleContextDirectionPropertyInfo = IsStyleContext
type AttrSetTypeConstraint StyleContextDirectionPropertyInfo = (~) Gtk.Enums.TextDirection
type AttrTransferTypeConstraint StyleContextDirectionPropertyInfo = (~) Gtk.Enums.TextDirection
type AttrTransferType StyleContextDirectionPropertyInfo = Gtk.Enums.TextDirection
type AttrGetType StyleContextDirectionPropertyInfo = Gtk.Enums.TextDirection
type AttrLabel StyleContextDirectionPropertyInfo = "direction"
type AttrOrigin StyleContextDirectionPropertyInfo = StyleContext
attrGet = getStyleContextDirection
attrSet = setStyleContextDirection
attrTransfer _ v = do
return v
attrConstruct = constructStyleContextDirection
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.direction"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#g:attr:direction"
})
#endif
getStyleContextPaintClock :: (MonadIO m, IsStyleContext o) => o -> m (Maybe Gdk.FrameClock.FrameClock)
getStyleContextPaintClock :: forall (m :: * -> *) o.
(MonadIO m, IsStyleContext o) =>
o -> m (Maybe FrameClock)
getStyleContextPaintClock o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"paint-clock" ManagedPtr FrameClock -> FrameClock
Gdk.FrameClock.FrameClock
setStyleContextPaintClock :: (MonadIO m, IsStyleContext o, Gdk.FrameClock.IsFrameClock a) => o -> a -> m ()
setStyleContextPaintClock :: forall (m :: * -> *) o a.
(MonadIO m, IsStyleContext o, IsFrameClock a) =>
o -> a -> m ()
setStyleContextPaintClock o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"paint-clock" (forall a. a -> Maybe a
Just a
val)
constructStyleContextPaintClock :: (IsStyleContext o, MIO.MonadIO m, Gdk.FrameClock.IsFrameClock a) => a -> m (GValueConstruct o)
constructStyleContextPaintClock :: forall o (m :: * -> *) a.
(IsStyleContext o, MonadIO m, IsFrameClock a) =>
a -> m (GValueConstruct o)
constructStyleContextPaintClock a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"paint-clock" (forall a. a -> Maybe a
P.Just a
val)
clearStyleContextPaintClock :: (MonadIO m, IsStyleContext o) => o -> m ()
clearStyleContextPaintClock :: forall (m :: * -> *) o. (MonadIO m, IsStyleContext o) => o -> m ()
clearStyleContextPaintClock o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"paint-clock" (forall a. Maybe a
Nothing :: Maybe Gdk.FrameClock.FrameClock)
#if defined(ENABLE_OVERLOADING)
data StyleContextPaintClockPropertyInfo
instance AttrInfo StyleContextPaintClockPropertyInfo where
type AttrAllowedOps StyleContextPaintClockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleContextPaintClockPropertyInfo = IsStyleContext
type AttrSetTypeConstraint StyleContextPaintClockPropertyInfo = Gdk.FrameClock.IsFrameClock
type AttrTransferTypeConstraint StyleContextPaintClockPropertyInfo = Gdk.FrameClock.IsFrameClock
type AttrTransferType StyleContextPaintClockPropertyInfo = Gdk.FrameClock.FrameClock
type AttrGetType StyleContextPaintClockPropertyInfo = (Maybe Gdk.FrameClock.FrameClock)
type AttrLabel StyleContextPaintClockPropertyInfo = "paint-clock"
type AttrOrigin StyleContextPaintClockPropertyInfo = StyleContext
attrGet = getStyleContextPaintClock
attrSet = setStyleContextPaintClock
attrTransfer _ v = do
unsafeCastTo Gdk.FrameClock.FrameClock v
attrConstruct = constructStyleContextPaintClock
attrClear = clearStyleContextPaintClock
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.paintClock"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#g:attr:paintClock"
})
#endif
getStyleContextParent :: (MonadIO m, IsStyleContext o) => o -> m (Maybe StyleContext)
getStyleContextParent :: forall (m :: * -> *) o.
(MonadIO m, IsStyleContext o) =>
o -> m (Maybe StyleContext)
getStyleContextParent o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"parent" ManagedPtr StyleContext -> StyleContext
StyleContext
setStyleContextParent :: (MonadIO m, IsStyleContext o, IsStyleContext a) => o -> a -> m ()
setStyleContextParent :: forall (m :: * -> *) o a.
(MonadIO m, IsStyleContext o, IsStyleContext a) =>
o -> a -> m ()
setStyleContextParent o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"parent" (forall a. a -> Maybe a
Just a
val)
constructStyleContextParent :: (IsStyleContext o, MIO.MonadIO m, IsStyleContext a) => a -> m (GValueConstruct o)
constructStyleContextParent :: forall o (m :: * -> *) a.
(IsStyleContext o, MonadIO m, IsStyleContext a) =>
a -> m (GValueConstruct o)
constructStyleContextParent a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"parent" (forall a. a -> Maybe a
P.Just a
val)
clearStyleContextParent :: (MonadIO m, IsStyleContext o) => o -> m ()
clearStyleContextParent :: forall (m :: * -> *) o. (MonadIO m, IsStyleContext o) => o -> m ()
clearStyleContextParent o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"parent" (forall a. Maybe a
Nothing :: Maybe StyleContext)
#if defined(ENABLE_OVERLOADING)
data StyleContextParentPropertyInfo
instance AttrInfo StyleContextParentPropertyInfo where
type AttrAllowedOps StyleContextParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleContextParentPropertyInfo = IsStyleContext
type AttrSetTypeConstraint StyleContextParentPropertyInfo = IsStyleContext
type AttrTransferTypeConstraint StyleContextParentPropertyInfo = IsStyleContext
type AttrTransferType StyleContextParentPropertyInfo = StyleContext
type AttrGetType StyleContextParentPropertyInfo = (Maybe StyleContext)
type AttrLabel StyleContextParentPropertyInfo = "parent"
type AttrOrigin StyleContextParentPropertyInfo = StyleContext
attrGet = getStyleContextParent
attrSet = setStyleContextParent
attrTransfer _ v = do
unsafeCastTo StyleContext v
attrConstruct = constructStyleContextParent
attrClear = clearStyleContextParent
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.parent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#g:attr:parent"
})
#endif
getStyleContextScreen :: (MonadIO m, IsStyleContext o) => o -> m Gdk.Screen.Screen
getStyleContextScreen :: forall (m :: * -> *) o.
(MonadIO m, IsStyleContext o) =>
o -> m Screen
getStyleContextScreen o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getStyleContextScreen" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"screen" ManagedPtr Screen -> Screen
Gdk.Screen.Screen
setStyleContextScreen :: (MonadIO m, IsStyleContext o, Gdk.Screen.IsScreen a) => o -> a -> m ()
setStyleContextScreen :: forall (m :: * -> *) o a.
(MonadIO m, IsStyleContext o, IsScreen a) =>
o -> a -> m ()
setStyleContextScreen o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"screen" (forall a. a -> Maybe a
Just a
val)
constructStyleContextScreen :: (IsStyleContext o, MIO.MonadIO m, Gdk.Screen.IsScreen a) => a -> m (GValueConstruct o)
constructStyleContextScreen :: forall o (m :: * -> *) a.
(IsStyleContext o, MonadIO m, IsScreen a) =>
a -> m (GValueConstruct o)
constructStyleContextScreen a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"screen" (forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data StyleContextScreenPropertyInfo
instance AttrInfo StyleContextScreenPropertyInfo where
type AttrAllowedOps StyleContextScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleContextScreenPropertyInfo = IsStyleContext
type AttrSetTypeConstraint StyleContextScreenPropertyInfo = Gdk.Screen.IsScreen
type AttrTransferTypeConstraint StyleContextScreenPropertyInfo = Gdk.Screen.IsScreen
type AttrTransferType StyleContextScreenPropertyInfo = Gdk.Screen.Screen
type AttrGetType StyleContextScreenPropertyInfo = Gdk.Screen.Screen
type AttrLabel StyleContextScreenPropertyInfo = "screen"
type AttrOrigin StyleContextScreenPropertyInfo = StyleContext
attrGet = getStyleContextScreen
attrSet = setStyleContextScreen
attrTransfer _ v = do
unsafeCastTo Gdk.Screen.Screen v
attrConstruct = constructStyleContextScreen
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.screen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#g:attr:screen"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList StyleContext
type instance O.AttributeList StyleContext = StyleContextAttributeList
type StyleContextAttributeList = ('[ '("direction", StyleContextDirectionPropertyInfo), '("paintClock", StyleContextPaintClockPropertyInfo), '("parent", StyleContextParentPropertyInfo), '("screen", StyleContextScreenPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
styleContextDirection :: AttrLabelProxy "direction"
styleContextDirection = AttrLabelProxy
styleContextPaintClock :: AttrLabelProxy "paintClock"
styleContextPaintClock = AttrLabelProxy
styleContextParent :: AttrLabelProxy "parent"
styleContextParent = AttrLabelProxy
styleContextScreen :: AttrLabelProxy "screen"
styleContextScreen = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList StyleContext = StyleContextSignalList
type StyleContextSignalList = ('[ '("changed", StyleContextChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_style_context_new" gtk_style_context_new ::
IO (Ptr StyleContext)
styleContextNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m StyleContext
styleContextNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m StyleContext
styleContextNew = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
result <- IO (Ptr StyleContext)
gtk_style_context_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"styleContextNew" Ptr StyleContext
result
StyleContext
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr StyleContext -> StyleContext
StyleContext) Ptr StyleContext
result
forall (m :: * -> *) a. Monad m => a -> m a
return StyleContext
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_style_context_add_class" gtk_style_context_add_class ::
Ptr StyleContext ->
CString ->
IO ()
styleContextAddClass ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> m ()
styleContextAddClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> m ()
styleContextAddClass a
context Text
className = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
className' <- Text -> IO CString
textToCString Text
className
Ptr StyleContext -> CString -> IO ()
gtk_style_context_add_class Ptr StyleContext
context' CString
className'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
className'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextAddClassMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextAddClassMethodInfo a signature where
overloadedMethod = styleContextAddClass
instance O.OverloadedMethodInfo StyleContextAddClassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextAddClass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextAddClass"
})
#endif
foreign import ccall "gtk_style_context_add_provider" gtk_style_context_add_provider ::
Ptr StyleContext ->
Ptr Gtk.StyleProvider.StyleProvider ->
Word32 ->
IO ()
styleContextAddProvider ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a, Gtk.StyleProvider.IsStyleProvider b) =>
a
-> b
-> Word32
-> m ()
styleContextAddProvider :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStyleContext a, IsStyleProvider b) =>
a -> b -> Word32 -> m ()
styleContextAddProvider a
context b
provider Word32
priority = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr StyleProvider
provider' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
provider
Ptr StyleContext -> Ptr StyleProvider -> Word32 -> IO ()
gtk_style_context_add_provider Ptr StyleContext
context' Ptr StyleProvider
provider' Word32
priority
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
provider
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextAddProviderMethodInfo
instance (signature ~ (b -> Word32 -> m ()), MonadIO m, IsStyleContext a, Gtk.StyleProvider.IsStyleProvider b) => O.OverloadedMethod StyleContextAddProviderMethodInfo a signature where
overloadedMethod = styleContextAddProvider
instance O.OverloadedMethodInfo StyleContextAddProviderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextAddProvider",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextAddProvider"
})
#endif
foreign import ccall "gtk_style_context_add_region" gtk_style_context_add_region ::
Ptr StyleContext ->
CString ->
CUInt ->
IO ()
{-# DEPRECATED styleContextAddRegion ["(Since version 3.14)"] #-}
styleContextAddRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> [Gtk.Flags.RegionFlags]
-> m ()
styleContextAddRegion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> [RegionFlags] -> m ()
styleContextAddRegion a
context Text
regionName [RegionFlags]
flags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
regionName' <- Text -> IO CString
textToCString Text
regionName
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [RegionFlags]
flags
Ptr StyleContext -> CString -> CUInt -> IO ()
gtk_style_context_add_region Ptr StyleContext
context' CString
regionName' CUInt
flags'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
regionName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextAddRegionMethodInfo
instance (signature ~ (T.Text -> [Gtk.Flags.RegionFlags] -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextAddRegionMethodInfo a signature where
overloadedMethod = styleContextAddRegion
instance O.OverloadedMethodInfo StyleContextAddRegionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextAddRegion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextAddRegion"
})
#endif
foreign import ccall "gtk_style_context_cancel_animations" gtk_style_context_cancel_animations ::
Ptr StyleContext ->
Ptr () ->
IO ()
{-# DEPRECATED styleContextCancelAnimations ["(Since version 3.6)","This function does nothing."] #-}
styleContextCancelAnimations ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> Ptr ()
-> m ()
styleContextCancelAnimations :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Ptr () -> m ()
styleContextCancelAnimations a
context Ptr ()
regionId = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
C_StyleContextChangedCallback
gtk_style_context_cancel_animations Ptr StyleContext
context' Ptr ()
regionId
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextCancelAnimationsMethodInfo
instance (signature ~ (Ptr () -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextCancelAnimationsMethodInfo a signature where
overloadedMethod = styleContextCancelAnimations
instance O.OverloadedMethodInfo StyleContextCancelAnimationsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextCancelAnimations",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextCancelAnimations"
})
#endif
foreign import ccall "gtk_style_context_get_background_color" gtk_style_context_get_background_color ::
Ptr StyleContext ->
CUInt ->
Ptr Gdk.RGBA.RGBA ->
IO ()
{-# DEPRECATED styleContextGetBackgroundColor ["(Since version 3.16)","Use 'GI.Gtk.Functions.renderBackground' instead."] #-}
styleContextGetBackgroundColor ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.StateFlags]
-> m (Gdk.RGBA.RGBA)
styleContextGetBackgroundColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [StateFlags] -> m RGBA
styleContextGetBackgroundColor a
context [StateFlags]
state = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let state' :: CUInt
state' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
state
Ptr RGBA
color <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gdk.RGBA.RGBA)
Ptr StyleContext -> CUInt -> Ptr RGBA -> IO ()
gtk_style_context_get_background_color Ptr StyleContext
context' CUInt
state' Ptr RGBA
color
RGBA
color' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
color
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return RGBA
color'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetBackgroundColorMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> m (Gdk.RGBA.RGBA)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetBackgroundColorMethodInfo a signature where
overloadedMethod = styleContextGetBackgroundColor
instance O.OverloadedMethodInfo StyleContextGetBackgroundColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetBackgroundColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetBackgroundColor"
})
#endif
foreign import ccall "gtk_style_context_get_border" gtk_style_context_get_border ::
Ptr StyleContext ->
CUInt ->
Ptr Gtk.Border.Border ->
IO ()
styleContextGetBorder ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.StateFlags]
-> m (Gtk.Border.Border)
styleContextGetBorder :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [StateFlags] -> m Border
styleContextGetBorder a
context [StateFlags]
state = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let state' :: CUInt
state' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
state
Ptr Border
border <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
8 :: IO (Ptr Gtk.Border.Border)
Ptr StyleContext -> CUInt -> Ptr Border -> IO ()
gtk_style_context_get_border Ptr StyleContext
context' CUInt
state' Ptr Border
border
Border
border' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Border -> Border
Gtk.Border.Border) Ptr Border
border
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return Border
border'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetBorderMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> m (Gtk.Border.Border)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetBorderMethodInfo a signature where
overloadedMethod = styleContextGetBorder
instance O.OverloadedMethodInfo StyleContextGetBorderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetBorder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetBorder"
})
#endif
foreign import ccall "gtk_style_context_get_border_color" gtk_style_context_get_border_color ::
Ptr StyleContext ->
CUInt ->
Ptr Gdk.RGBA.RGBA ->
IO ()
{-# DEPRECATED styleContextGetBorderColor ["(Since version 3.16)","Use 'GI.Gtk.Functions.renderFrame' instead."] #-}
styleContextGetBorderColor ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.StateFlags]
-> m (Gdk.RGBA.RGBA)
styleContextGetBorderColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [StateFlags] -> m RGBA
styleContextGetBorderColor a
context [StateFlags]
state = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let state' :: CUInt
state' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
state
Ptr RGBA
color <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gdk.RGBA.RGBA)
Ptr StyleContext -> CUInt -> Ptr RGBA -> IO ()
gtk_style_context_get_border_color Ptr StyleContext
context' CUInt
state' Ptr RGBA
color
RGBA
color' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
color
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return RGBA
color'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetBorderColorMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> m (Gdk.RGBA.RGBA)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetBorderColorMethodInfo a signature where
overloadedMethod = styleContextGetBorderColor
instance O.OverloadedMethodInfo StyleContextGetBorderColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetBorderColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetBorderColor"
})
#endif
foreign import ccall "gtk_style_context_get_color" gtk_style_context_get_color ::
Ptr StyleContext ->
CUInt ->
Ptr Gdk.RGBA.RGBA ->
IO ()
styleContextGetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.StateFlags]
-> m (Gdk.RGBA.RGBA)
styleContextGetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [StateFlags] -> m RGBA
styleContextGetColor a
context [StateFlags]
state = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let state' :: CUInt
state' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
state
Ptr RGBA
color <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gdk.RGBA.RGBA)
Ptr StyleContext -> CUInt -> Ptr RGBA -> IO ()
gtk_style_context_get_color Ptr StyleContext
context' CUInt
state' Ptr RGBA
color
RGBA
color' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
color
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return RGBA
color'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetColorMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> m (Gdk.RGBA.RGBA)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetColorMethodInfo a signature where
overloadedMethod = styleContextGetColor
instance O.OverloadedMethodInfo StyleContextGetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetColor"
})
#endif
foreign import ccall "gtk_style_context_get_direction" gtk_style_context_get_direction ::
Ptr StyleContext ->
IO CUInt
{-# DEPRECATED styleContextGetDirection ["(Since version 3.8)","Use 'GI.Gtk.Objects.StyleContext.styleContextGetState' and"," check for @/GTK_STATE_FLAG_DIR_LTR/@ and"," @/GTK_STATE_FLAG_DIR_RTL/@ instead."] #-}
styleContextGetDirection ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m Gtk.Enums.TextDirection
styleContextGetDirection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m TextDirection
styleContextGetDirection a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CUInt
result <- Ptr StyleContext -> IO CUInt
gtk_style_context_get_direction Ptr StyleContext
context'
let result' :: TextDirection
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return TextDirection
result'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetDirectionMethodInfo
instance (signature ~ (m Gtk.Enums.TextDirection), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetDirectionMethodInfo a signature where
overloadedMethod = styleContextGetDirection
instance O.OverloadedMethodInfo StyleContextGetDirectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetDirection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetDirection"
})
#endif
foreign import ccall "gtk_style_context_get_font" gtk_style_context_get_font ::
Ptr StyleContext ->
CUInt ->
IO (Ptr Pango.FontDescription.FontDescription)
{-# DEPRECATED styleContextGetFont ["(Since version 3.8)","Use @/gtk_style_context_get()/@ for \\\"font\\\" or"," subproperties instead."] #-}
styleContextGetFont ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.StateFlags]
-> m Pango.FontDescription.FontDescription
styleContextGetFont :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [StateFlags] -> m FontDescription
styleContextGetFont a
context [StateFlags]
state = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let state' :: CUInt
state' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
state
Ptr FontDescription
result <- Ptr StyleContext -> CUInt -> IO (Ptr FontDescription)
gtk_style_context_get_font Ptr StyleContext
context' CUInt
state'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"styleContextGetFont" Ptr FontDescription
result
FontDescription
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr FontDescription -> FontDescription
Pango.FontDescription.FontDescription) Ptr FontDescription
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return FontDescription
result'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetFontMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> m Pango.FontDescription.FontDescription), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetFontMethodInfo a signature where
overloadedMethod = styleContextGetFont
instance O.OverloadedMethodInfo StyleContextGetFontMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetFont",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetFont"
})
#endif
foreign import ccall "gtk_style_context_get_frame_clock" gtk_style_context_get_frame_clock ::
Ptr StyleContext ->
IO (Ptr Gdk.FrameClock.FrameClock)
styleContextGetFrameClock ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m (Maybe Gdk.FrameClock.FrameClock)
styleContextGetFrameClock :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m (Maybe FrameClock)
styleContextGetFrameClock a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr FrameClock
result <- Ptr StyleContext -> IO (Ptr FrameClock)
gtk_style_context_get_frame_clock Ptr StyleContext
context'
Maybe FrameClock
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr FrameClock
result forall a b. (a -> b) -> a -> b
$ \Ptr FrameClock
result' -> do
FrameClock
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FrameClock -> FrameClock
Gdk.FrameClock.FrameClock) Ptr FrameClock
result'
forall (m :: * -> *) a. Monad m => a -> m a
return FrameClock
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FrameClock
maybeResult
#if defined(ENABLE_OVERLOADING)
data StyleContextGetFrameClockMethodInfo
instance (signature ~ (m (Maybe Gdk.FrameClock.FrameClock)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetFrameClockMethodInfo a signature where
overloadedMethod = styleContextGetFrameClock
instance O.OverloadedMethodInfo StyleContextGetFrameClockMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetFrameClock",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetFrameClock"
})
#endif
foreign import ccall "gtk_style_context_get_junction_sides" gtk_style_context_get_junction_sides ::
Ptr StyleContext ->
IO CUInt
styleContextGetJunctionSides ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m [Gtk.Flags.JunctionSides]
styleContextGetJunctionSides :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m [JunctionSides]
styleContextGetJunctionSides a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CUInt
result <- Ptr StyleContext -> IO CUInt
gtk_style_context_get_junction_sides Ptr StyleContext
context'
let result' :: [JunctionSides]
result' = forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return [JunctionSides]
result'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetJunctionSidesMethodInfo
instance (signature ~ (m [Gtk.Flags.JunctionSides]), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetJunctionSidesMethodInfo a signature where
overloadedMethod = styleContextGetJunctionSides
instance O.OverloadedMethodInfo StyleContextGetJunctionSidesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetJunctionSides",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetJunctionSides"
})
#endif
foreign import ccall "gtk_style_context_get_margin" gtk_style_context_get_margin ::
Ptr StyleContext ->
CUInt ->
Ptr Gtk.Border.Border ->
IO ()
styleContextGetMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.StateFlags]
-> m (Gtk.Border.Border)
styleContextGetMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [StateFlags] -> m Border
styleContextGetMargin a
context [StateFlags]
state = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let state' :: CUInt
state' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
state
Ptr Border
margin <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
8 :: IO (Ptr Gtk.Border.Border)
Ptr StyleContext -> CUInt -> Ptr Border -> IO ()
gtk_style_context_get_margin Ptr StyleContext
context' CUInt
state' Ptr Border
margin
Border
margin' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Border -> Border
Gtk.Border.Border) Ptr Border
margin
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return Border
margin'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetMarginMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> m (Gtk.Border.Border)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetMarginMethodInfo a signature where
overloadedMethod = styleContextGetMargin
instance O.OverloadedMethodInfo StyleContextGetMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetMargin"
})
#endif
foreign import ccall "gtk_style_context_get_padding" gtk_style_context_get_padding ::
Ptr StyleContext ->
CUInt ->
Ptr Gtk.Border.Border ->
IO ()
styleContextGetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.StateFlags]
-> m (Gtk.Border.Border)
styleContextGetPadding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [StateFlags] -> m Border
styleContextGetPadding a
context [StateFlags]
state = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let state' :: CUInt
state' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
state
Ptr Border
padding <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
8 :: IO (Ptr Gtk.Border.Border)
Ptr StyleContext -> CUInt -> Ptr Border -> IO ()
gtk_style_context_get_padding Ptr StyleContext
context' CUInt
state' Ptr Border
padding
Border
padding' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Border -> Border
Gtk.Border.Border) Ptr Border
padding
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return Border
padding'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetPaddingMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> m (Gtk.Border.Border)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetPaddingMethodInfo a signature where
overloadedMethod = styleContextGetPadding
instance O.OverloadedMethodInfo StyleContextGetPaddingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetPadding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetPadding"
})
#endif
foreign import ccall "gtk_style_context_get_parent" gtk_style_context_get_parent ::
Ptr StyleContext ->
IO (Ptr StyleContext)
styleContextGetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m (Maybe StyleContext)
styleContextGetParent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m (Maybe StyleContext)
styleContextGetParent a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr StyleContext
result <- Ptr StyleContext -> IO (Ptr StyleContext)
gtk_style_context_get_parent Ptr StyleContext
context'
Maybe StyleContext
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr StyleContext
result forall a b. (a -> b) -> a -> b
$ \Ptr StyleContext
result' -> do
StyleContext
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr StyleContext -> StyleContext
StyleContext) Ptr StyleContext
result'
forall (m :: * -> *) a. Monad m => a -> m a
return StyleContext
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe StyleContext
maybeResult
#if defined(ENABLE_OVERLOADING)
data StyleContextGetParentMethodInfo
instance (signature ~ (m (Maybe StyleContext)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetParentMethodInfo a signature where
overloadedMethod = styleContextGetParent
instance O.OverloadedMethodInfo StyleContextGetParentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetParent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetParent"
})
#endif
foreign import ccall "gtk_style_context_get_path" gtk_style_context_get_path ::
Ptr StyleContext ->
IO (Ptr Gtk.WidgetPath.WidgetPath)
styleContextGetPath ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m Gtk.WidgetPath.WidgetPath
styleContextGetPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m WidgetPath
styleContextGetPath a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr WidgetPath
result <- Ptr StyleContext -> IO (Ptr WidgetPath)
gtk_style_context_get_path Ptr StyleContext
context'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"styleContextGetPath" Ptr WidgetPath
result
WidgetPath
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr WidgetPath -> WidgetPath
Gtk.WidgetPath.WidgetPath) Ptr WidgetPath
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return WidgetPath
result'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetPathMethodInfo
instance (signature ~ (m Gtk.WidgetPath.WidgetPath), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetPathMethodInfo a signature where
overloadedMethod = styleContextGetPath
instance O.OverloadedMethodInfo StyleContextGetPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetPath"
})
#endif
foreign import ccall "gtk_style_context_get_property" gtk_style_context_get_property ::
Ptr StyleContext ->
CString ->
CUInt ->
Ptr GValue ->
IO ()
styleContextGetProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> [Gtk.Flags.StateFlags]
-> m (GValue)
styleContextGetProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> [StateFlags] -> m GValue
styleContextGetProperty a
context Text
property [StateFlags]
state = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
property' <- Text -> IO CString
textToCString Text
property
let state' :: CUInt
state' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
state
Ptr GValue
value <- forall a. Int -> IO (Ptr a)
SP.callocBytes Int
24 :: IO (Ptr GValue)
Ptr StyleContext -> CString -> CUInt -> Ptr GValue -> IO ()
gtk_style_context_get_property Ptr StyleContext
context' CString
property' CUInt
state' Ptr GValue
value
GValue
value' <- Ptr GValue -> IO GValue
B.GValue.wrapGValuePtr Ptr GValue
value
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
property'
forall (m :: * -> *) a. Monad m => a -> m a
return GValue
value'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetPropertyMethodInfo
instance (signature ~ (T.Text -> [Gtk.Flags.StateFlags] -> m (GValue)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetPropertyMethodInfo a signature where
overloadedMethod = styleContextGetProperty
instance O.OverloadedMethodInfo StyleContextGetPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetProperty"
})
#endif
foreign import ccall "gtk_style_context_get_scale" gtk_style_context_get_scale ::
Ptr StyleContext ->
IO Int32
styleContextGetScale ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m Int32
styleContextGetScale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m Int32
styleContextGetScale a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Int32
result <- Ptr StyleContext -> IO Int32
gtk_style_context_get_scale Ptr StyleContext
context'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data StyleContextGetScaleMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetScaleMethodInfo a signature where
overloadedMethod = styleContextGetScale
instance O.OverloadedMethodInfo StyleContextGetScaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetScale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetScale"
})
#endif
foreign import ccall "gtk_style_context_get_screen" gtk_style_context_get_screen ::
Ptr StyleContext ->
IO (Ptr Gdk.Screen.Screen)
styleContextGetScreen ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m Gdk.Screen.Screen
styleContextGetScreen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m Screen
styleContextGetScreen a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr Screen
result <- Ptr StyleContext -> IO (Ptr Screen)
gtk_style_context_get_screen Ptr StyleContext
context'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"styleContextGetScreen" Ptr Screen
result
Screen
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Screen -> Screen
Gdk.Screen.Screen) Ptr Screen
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return Screen
result'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetScreenMethodInfo
instance (signature ~ (m Gdk.Screen.Screen), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetScreenMethodInfo a signature where
overloadedMethod = styleContextGetScreen
instance O.OverloadedMethodInfo StyleContextGetScreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetScreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetScreen"
})
#endif
foreign import ccall "gtk_style_context_get_section" gtk_style_context_get_section ::
Ptr StyleContext ->
CString ->
IO (Ptr Gtk.CssSection.CssSection)
styleContextGetSection ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> m (Maybe Gtk.CssSection.CssSection)
styleContextGetSection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> m (Maybe CssSection)
styleContextGetSection a
context Text
property = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
property' <- Text -> IO CString
textToCString Text
property
Ptr CssSection
result <- Ptr StyleContext -> CString -> IO (Ptr CssSection)
gtk_style_context_get_section Ptr StyleContext
context' CString
property'
Maybe CssSection
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CssSection
result forall a b. (a -> b) -> a -> b
$ \Ptr CssSection
result' -> do
CssSection
result'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr CssSection -> CssSection
Gtk.CssSection.CssSection) Ptr CssSection
result'
forall (m :: * -> *) a. Monad m => a -> m a
return CssSection
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
property'
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CssSection
maybeResult
#if defined(ENABLE_OVERLOADING)
data StyleContextGetSectionMethodInfo
instance (signature ~ (T.Text -> m (Maybe Gtk.CssSection.CssSection)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetSectionMethodInfo a signature where
overloadedMethod = styleContextGetSection
instance O.OverloadedMethodInfo StyleContextGetSectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetSection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetSection"
})
#endif
foreign import ccall "gtk_style_context_get_state" gtk_style_context_get_state ::
Ptr StyleContext ->
IO CUInt
styleContextGetState ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m [Gtk.Flags.StateFlags]
styleContextGetState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m [StateFlags]
styleContextGetState a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CUInt
result <- Ptr StyleContext -> IO CUInt
gtk_style_context_get_state Ptr StyleContext
context'
let result' :: [StateFlags]
result' = forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return [StateFlags]
result'
#if defined(ENABLE_OVERLOADING)
data StyleContextGetStateMethodInfo
instance (signature ~ (m [Gtk.Flags.StateFlags]), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetStateMethodInfo a signature where
overloadedMethod = styleContextGetState
instance O.OverloadedMethodInfo StyleContextGetStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetState"
})
#endif
foreign import ccall "gtk_style_context_get_style_property" gtk_style_context_get_style_property ::
Ptr StyleContext ->
CString ->
Ptr GValue ->
IO ()
styleContextGetStyleProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> GValue
-> m ()
styleContextGetStyleProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> GValue -> m ()
styleContextGetStyleProperty a
context Text
propertyName GValue
value = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GValue
value' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
Ptr StyleContext -> CString -> Ptr GValue -> IO ()
gtk_style_context_get_style_property Ptr StyleContext
context' CString
propertyName' Ptr GValue
value'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextGetStylePropertyMethodInfo
instance (signature ~ (T.Text -> GValue -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextGetStylePropertyMethodInfo a signature where
overloadedMethod = styleContextGetStyleProperty
instance O.OverloadedMethodInfo StyleContextGetStylePropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextGetStyleProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextGetStyleProperty"
})
#endif
foreign import ccall "gtk_style_context_has_class" gtk_style_context_has_class ::
Ptr StyleContext ->
CString ->
IO CInt
styleContextHasClass ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> m Bool
styleContextHasClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> m Bool
styleContextHasClass a
context Text
className = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
className' <- Text -> IO CString
textToCString Text
className
CInt
result <- Ptr StyleContext -> CString -> IO CInt
gtk_style_context_has_class Ptr StyleContext
context' CString
className'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
className'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StyleContextHasClassMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextHasClassMethodInfo a signature where
overloadedMethod = styleContextHasClass
instance O.OverloadedMethodInfo StyleContextHasClassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextHasClass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextHasClass"
})
#endif
foreign import ccall "gtk_style_context_has_region" gtk_style_context_has_region ::
Ptr StyleContext ->
CString ->
Ptr CUInt ->
IO CInt
{-# DEPRECATED styleContextHasRegion ["(Since version 3.14)"] #-}
styleContextHasRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> m ((Bool, [Gtk.Flags.RegionFlags]))
styleContextHasRegion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> m (Bool, [RegionFlags])
styleContextHasRegion a
context Text
regionName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
regionName' <- Text -> IO CString
textToCString Text
regionName
Ptr CUInt
flagsReturn <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
CInt
result <- Ptr StyleContext -> CString -> Ptr CUInt -> IO CInt
gtk_style_context_has_region Ptr StyleContext
context' CString
regionName' Ptr CUInt
flagsReturn
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CUInt
flagsReturn' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
flagsReturn
let flagsReturn'' :: [RegionFlags]
flagsReturn'' = forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
flagsReturn'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
regionName'
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
flagsReturn
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', [RegionFlags]
flagsReturn'')
#if defined(ENABLE_OVERLOADING)
data StyleContextHasRegionMethodInfo
instance (signature ~ (T.Text -> m ((Bool, [Gtk.Flags.RegionFlags]))), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextHasRegionMethodInfo a signature where
overloadedMethod = styleContextHasRegion
instance O.OverloadedMethodInfo StyleContextHasRegionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextHasRegion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextHasRegion"
})
#endif
foreign import ccall "gtk_style_context_invalidate" gtk_style_context_invalidate ::
Ptr StyleContext ->
IO ()
{-# DEPRECATED styleContextInvalidate ["(Since version 3.12)","Style contexts are invalidated automatically."] #-}
styleContextInvalidate ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m ()
styleContextInvalidate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m ()
styleContextInvalidate a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr StyleContext -> IO ()
gtk_style_context_invalidate Ptr StyleContext
context'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextInvalidateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextInvalidateMethodInfo a signature where
overloadedMethod = styleContextInvalidate
instance O.OverloadedMethodInfo StyleContextInvalidateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextInvalidate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextInvalidate"
})
#endif
foreign import ccall "gtk_style_context_list_classes" gtk_style_context_list_classes ::
Ptr StyleContext ->
IO (Ptr (GList CString))
styleContextListClasses ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m [T.Text]
styleContextListClasses :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m [Text]
styleContextListClasses a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr (GList CString)
result <- Ptr StyleContext -> IO (Ptr (GList CString))
gtk_style_context_list_classes Ptr StyleContext
context'
[CString]
result' <- forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList CString)
result
[Text]
result'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM HasCallStack => CString -> IO Text
cstringToText [CString]
result'
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList CString)
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result''
#if defined(ENABLE_OVERLOADING)
data StyleContextListClassesMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextListClassesMethodInfo a signature where
overloadedMethod = styleContextListClasses
instance O.OverloadedMethodInfo StyleContextListClassesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextListClasses",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextListClasses"
})
#endif
foreign import ccall "gtk_style_context_list_regions" gtk_style_context_list_regions ::
Ptr StyleContext ->
IO (Ptr (GList CString))
{-# DEPRECATED styleContextListRegions ["(Since version 3.14)"] #-}
styleContextListRegions ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m [T.Text]
styleContextListRegions :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m [Text]
styleContextListRegions a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr (GList CString)
result <- Ptr StyleContext -> IO (Ptr (GList CString))
gtk_style_context_list_regions Ptr StyleContext
context'
[CString]
result' <- forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList CString)
result
[Text]
result'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM HasCallStack => CString -> IO Text
cstringToText [CString]
result'
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList CString)
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result''
#if defined(ENABLE_OVERLOADING)
data StyleContextListRegionsMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextListRegionsMethodInfo a signature where
overloadedMethod = styleContextListRegions
instance O.OverloadedMethodInfo StyleContextListRegionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextListRegions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextListRegions"
})
#endif
foreign import ccall "gtk_style_context_lookup_color" gtk_style_context_lookup_color ::
Ptr StyleContext ->
CString ->
Ptr Gdk.RGBA.RGBA ->
IO CInt
styleContextLookupColor ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> m ((Bool, Gdk.RGBA.RGBA))
styleContextLookupColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> m (Bool, RGBA)
styleContextLookupColor a
context Text
colorName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
colorName' <- Text -> IO CString
textToCString Text
colorName
Ptr RGBA
color <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gdk.RGBA.RGBA)
CInt
result <- Ptr StyleContext -> CString -> Ptr RGBA -> IO CInt
gtk_style_context_lookup_color Ptr StyleContext
context' CString
colorName' Ptr RGBA
color
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
RGBA
color' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
color
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
colorName'
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', RGBA
color')
#if defined(ENABLE_OVERLOADING)
data StyleContextLookupColorMethodInfo
instance (signature ~ (T.Text -> m ((Bool, Gdk.RGBA.RGBA))), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextLookupColorMethodInfo a signature where
overloadedMethod = styleContextLookupColor
instance O.OverloadedMethodInfo StyleContextLookupColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextLookupColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextLookupColor"
})
#endif
foreign import ccall "gtk_style_context_lookup_icon_set" gtk_style_context_lookup_icon_set ::
Ptr StyleContext ->
CString ->
IO (Ptr Gtk.IconSet.IconSet)
{-# DEPRECATED styleContextLookupIconSet ["(Since version 3.10)","Use 'GI.Gtk.Objects.IconTheme.iconThemeLookupIcon' instead."] #-}
styleContextLookupIconSet ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> m (Maybe Gtk.IconSet.IconSet)
styleContextLookupIconSet :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> m (Maybe IconSet)
styleContextLookupIconSet a
context Text
stockId = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
stockId' <- Text -> IO CString
textToCString Text
stockId
Ptr IconSet
result <- Ptr StyleContext -> CString -> IO (Ptr IconSet)
gtk_style_context_lookup_icon_set Ptr StyleContext
context' CString
stockId'
Maybe IconSet
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr IconSet
result forall a b. (a -> b) -> a -> b
$ \Ptr IconSet
result' -> do
IconSet
result'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr IconSet -> IconSet
Gtk.IconSet.IconSet) Ptr IconSet
result'
forall (m :: * -> *) a. Monad m => a -> m a
return IconSet
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
stockId'
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IconSet
maybeResult
#if defined(ENABLE_OVERLOADING)
data StyleContextLookupIconSetMethodInfo
instance (signature ~ (T.Text -> m (Maybe Gtk.IconSet.IconSet)), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextLookupIconSetMethodInfo a signature where
overloadedMethod = styleContextLookupIconSet
instance O.OverloadedMethodInfo StyleContextLookupIconSetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextLookupIconSet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextLookupIconSet"
})
#endif
foreign import ccall "gtk_style_context_notify_state_change" gtk_style_context_notify_state_change ::
Ptr StyleContext ->
Ptr Gdk.Window.Window ->
Ptr () ->
CUInt ->
CInt ->
IO ()
{-# DEPRECATED styleContextNotifyStateChange ["(Since version 3.6)","This function does nothing."] #-}
styleContextNotifyStateChange ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a, Gdk.Window.IsWindow b) =>
a
-> b
-> Ptr ()
-> Gtk.Enums.StateType
-> Bool
-> m ()
styleContextNotifyStateChange :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStyleContext a, IsWindow b) =>
a -> b -> Ptr () -> StateType -> Bool -> m ()
styleContextNotifyStateChange a
context b
window Ptr ()
regionId StateType
state Bool
stateValue = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr Window
window' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
window
let state' :: CUInt
state' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) StateType
state
let stateValue' :: CInt
stateValue' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
stateValue
Ptr StyleContext -> Ptr Window -> Ptr () -> CUInt -> CInt -> IO ()
gtk_style_context_notify_state_change Ptr StyleContext
context' Ptr Window
window' Ptr ()
regionId CUInt
state' CInt
stateValue'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
window
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextNotifyStateChangeMethodInfo
instance (signature ~ (b -> Ptr () -> Gtk.Enums.StateType -> Bool -> m ()), MonadIO m, IsStyleContext a, Gdk.Window.IsWindow b) => O.OverloadedMethod StyleContextNotifyStateChangeMethodInfo a signature where
overloadedMethod = styleContextNotifyStateChange
instance O.OverloadedMethodInfo StyleContextNotifyStateChangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextNotifyStateChange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextNotifyStateChange"
})
#endif
foreign import ccall "gtk_style_context_pop_animatable_region" gtk_style_context_pop_animatable_region ::
Ptr StyleContext ->
IO ()
{-# DEPRECATED styleContextPopAnimatableRegion ["(Since version 3.6)","This function does nothing."] #-}
styleContextPopAnimatableRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m ()
styleContextPopAnimatableRegion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m ()
styleContextPopAnimatableRegion a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr StyleContext -> IO ()
gtk_style_context_pop_animatable_region Ptr StyleContext
context'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextPopAnimatableRegionMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextPopAnimatableRegionMethodInfo a signature where
overloadedMethod = styleContextPopAnimatableRegion
instance O.OverloadedMethodInfo StyleContextPopAnimatableRegionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextPopAnimatableRegion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextPopAnimatableRegion"
})
#endif
foreign import ccall "gtk_style_context_push_animatable_region" gtk_style_context_push_animatable_region ::
Ptr StyleContext ->
Ptr () ->
IO ()
{-# DEPRECATED styleContextPushAnimatableRegion ["(Since version 3.6)","This function does nothing."] #-}
styleContextPushAnimatableRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> Ptr ()
-> m ()
styleContextPushAnimatableRegion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Ptr () -> m ()
styleContextPushAnimatableRegion a
context Ptr ()
regionId = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
C_StyleContextChangedCallback
gtk_style_context_push_animatable_region Ptr StyleContext
context' Ptr ()
regionId
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextPushAnimatableRegionMethodInfo
instance (signature ~ (Ptr () -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextPushAnimatableRegionMethodInfo a signature where
overloadedMethod = styleContextPushAnimatableRegion
instance O.OverloadedMethodInfo StyleContextPushAnimatableRegionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextPushAnimatableRegion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextPushAnimatableRegion"
})
#endif
foreign import ccall "gtk_style_context_remove_class" gtk_style_context_remove_class ::
Ptr StyleContext ->
CString ->
IO ()
styleContextRemoveClass ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> m ()
styleContextRemoveClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> m ()
styleContextRemoveClass a
context Text
className = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
className' <- Text -> IO CString
textToCString Text
className
Ptr StyleContext -> CString -> IO ()
gtk_style_context_remove_class Ptr StyleContext
context' CString
className'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
className'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextRemoveClassMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextRemoveClassMethodInfo a signature where
overloadedMethod = styleContextRemoveClass
instance O.OverloadedMethodInfo StyleContextRemoveClassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextRemoveClass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextRemoveClass"
})
#endif
foreign import ccall "gtk_style_context_remove_provider" gtk_style_context_remove_provider ::
Ptr StyleContext ->
Ptr Gtk.StyleProvider.StyleProvider ->
IO ()
styleContextRemoveProvider ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a, Gtk.StyleProvider.IsStyleProvider b) =>
a
-> b
-> m ()
styleContextRemoveProvider :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStyleContext a, IsStyleProvider b) =>
a -> b -> m ()
styleContextRemoveProvider a
context b
provider = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr StyleProvider
provider' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
provider
Ptr StyleContext -> Ptr StyleProvider -> IO ()
gtk_style_context_remove_provider Ptr StyleContext
context' Ptr StyleProvider
provider'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
provider
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextRemoveProviderMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStyleContext a, Gtk.StyleProvider.IsStyleProvider b) => O.OverloadedMethod StyleContextRemoveProviderMethodInfo a signature where
overloadedMethod = styleContextRemoveProvider
instance O.OverloadedMethodInfo StyleContextRemoveProviderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextRemoveProvider",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextRemoveProvider"
})
#endif
foreign import ccall "gtk_style_context_remove_region" gtk_style_context_remove_region ::
Ptr StyleContext ->
CString ->
IO ()
{-# DEPRECATED styleContextRemoveRegion ["(Since version 3.14)"] #-}
styleContextRemoveRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> T.Text
-> m ()
styleContextRemoveRegion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Text -> m ()
styleContextRemoveRegion a
context Text
regionName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
regionName' <- Text -> IO CString
textToCString Text
regionName
Ptr StyleContext -> CString -> IO ()
gtk_style_context_remove_region Ptr StyleContext
context' CString
regionName'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
regionName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextRemoveRegionMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextRemoveRegionMethodInfo a signature where
overloadedMethod = styleContextRemoveRegion
instance O.OverloadedMethodInfo StyleContextRemoveRegionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextRemoveRegion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextRemoveRegion"
})
#endif
foreign import ccall "gtk_style_context_restore" gtk_style_context_restore ::
Ptr StyleContext ->
IO ()
styleContextRestore ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m ()
styleContextRestore :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m ()
styleContextRestore a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr StyleContext -> IO ()
gtk_style_context_restore Ptr StyleContext
context'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextRestoreMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextRestoreMethodInfo a signature where
overloadedMethod = styleContextRestore
instance O.OverloadedMethodInfo StyleContextRestoreMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextRestore",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextRestore"
})
#endif
foreign import ccall "gtk_style_context_save" gtk_style_context_save ::
Ptr StyleContext ->
IO ()
styleContextSave ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> m ()
styleContextSave :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> m ()
styleContextSave a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr StyleContext -> IO ()
gtk_style_context_save Ptr StyleContext
context'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSaveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextSaveMethodInfo a signature where
overloadedMethod = styleContextSave
instance O.OverloadedMethodInfo StyleContextSaveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSave",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSave"
})
#endif
foreign import ccall "gtk_style_context_scroll_animations" gtk_style_context_scroll_animations ::
Ptr StyleContext ->
Ptr Gdk.Window.Window ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED styleContextScrollAnimations ["(Since version 3.6)","This function does nothing."] #-}
styleContextScrollAnimations ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a, Gdk.Window.IsWindow b) =>
a
-> b
-> Int32
-> Int32
-> m ()
styleContextScrollAnimations :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStyleContext a, IsWindow b) =>
a -> b -> Int32 -> Int32 -> m ()
styleContextScrollAnimations a
context b
window Int32
dx Int32
dy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr Window
window' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
window
Ptr StyleContext -> Ptr Window -> Int32 -> Int32 -> IO ()
gtk_style_context_scroll_animations Ptr StyleContext
context' Ptr Window
window' Int32
dx Int32
dy
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
window
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextScrollAnimationsMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, IsStyleContext a, Gdk.Window.IsWindow b) => O.OverloadedMethod StyleContextScrollAnimationsMethodInfo a signature where
overloadedMethod = styleContextScrollAnimations
instance O.OverloadedMethodInfo StyleContextScrollAnimationsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextScrollAnimations",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextScrollAnimations"
})
#endif
foreign import ccall "gtk_style_context_set_background" gtk_style_context_set_background ::
Ptr StyleContext ->
Ptr Gdk.Window.Window ->
IO ()
{-# DEPRECATED styleContextSetBackground ["(Since version 3.18)","Use 'GI.Gtk.Functions.renderBackground' instead."," Note that clients still using this function are now responsible"," for calling this function again whenever /@context@/ is invalidated."] #-}
styleContextSetBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a, Gdk.Window.IsWindow b) =>
a
-> b
-> m ()
styleContextSetBackground :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStyleContext a, IsWindow b) =>
a -> b -> m ()
styleContextSetBackground a
context b
window = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr Window
window' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
window
Ptr StyleContext -> Ptr Window -> IO ()
gtk_style_context_set_background Ptr StyleContext
context' Ptr Window
window'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
window
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSetBackgroundMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStyleContext a, Gdk.Window.IsWindow b) => O.OverloadedMethod StyleContextSetBackgroundMethodInfo a signature where
overloadedMethod = styleContextSetBackground
instance O.OverloadedMethodInfo StyleContextSetBackgroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSetBackground",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSetBackground"
})
#endif
foreign import ccall "gtk_style_context_set_direction" gtk_style_context_set_direction ::
Ptr StyleContext ->
CUInt ->
IO ()
{-# DEPRECATED styleContextSetDirection ["(Since version 3.8)","Use 'GI.Gtk.Objects.StyleContext.styleContextSetState' with"," @/GTK_STATE_FLAG_DIR_LTR/@ and @/GTK_STATE_FLAG_DIR_RTL/@"," instead."] #-}
styleContextSetDirection ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> Gtk.Enums.TextDirection
-> m ()
styleContextSetDirection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> TextDirection -> m ()
styleContextSetDirection a
context TextDirection
direction = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let direction' :: CUInt
direction' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) TextDirection
direction
Ptr StyleContext -> CUInt -> IO ()
gtk_style_context_set_direction Ptr StyleContext
context' CUInt
direction'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSetDirectionMethodInfo
instance (signature ~ (Gtk.Enums.TextDirection -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextSetDirectionMethodInfo a signature where
overloadedMethod = styleContextSetDirection
instance O.OverloadedMethodInfo StyleContextSetDirectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSetDirection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSetDirection"
})
#endif
foreign import ccall "gtk_style_context_set_frame_clock" gtk_style_context_set_frame_clock ::
Ptr StyleContext ->
Ptr Gdk.FrameClock.FrameClock ->
IO ()
styleContextSetFrameClock ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a, Gdk.FrameClock.IsFrameClock b) =>
a
-> b
-> m ()
styleContextSetFrameClock :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStyleContext a, IsFrameClock b) =>
a -> b -> m ()
styleContextSetFrameClock a
context b
frameClock = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr FrameClock
frameClock' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
frameClock
Ptr StyleContext -> Ptr FrameClock -> IO ()
gtk_style_context_set_frame_clock Ptr StyleContext
context' Ptr FrameClock
frameClock'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
frameClock
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSetFrameClockMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStyleContext a, Gdk.FrameClock.IsFrameClock b) => O.OverloadedMethod StyleContextSetFrameClockMethodInfo a signature where
overloadedMethod = styleContextSetFrameClock
instance O.OverloadedMethodInfo StyleContextSetFrameClockMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSetFrameClock",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSetFrameClock"
})
#endif
foreign import ccall "gtk_style_context_set_junction_sides" gtk_style_context_set_junction_sides ::
Ptr StyleContext ->
CUInt ->
IO ()
styleContextSetJunctionSides ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.JunctionSides]
-> m ()
styleContextSetJunctionSides :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [JunctionSides] -> m ()
styleContextSetJunctionSides a
context [JunctionSides]
sides = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let sides' :: CUInt
sides' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [JunctionSides]
sides
Ptr StyleContext -> CUInt -> IO ()
gtk_style_context_set_junction_sides Ptr StyleContext
context' CUInt
sides'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSetJunctionSidesMethodInfo
instance (signature ~ ([Gtk.Flags.JunctionSides] -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextSetJunctionSidesMethodInfo a signature where
overloadedMethod = styleContextSetJunctionSides
instance O.OverloadedMethodInfo StyleContextSetJunctionSidesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSetJunctionSides",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSetJunctionSides"
})
#endif
foreign import ccall "gtk_style_context_set_parent" gtk_style_context_set_parent ::
Ptr StyleContext ->
Ptr StyleContext ->
IO ()
styleContextSetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a, IsStyleContext b) =>
a
-> Maybe (b)
-> m ()
styleContextSetParent :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStyleContext a, IsStyleContext b) =>
a -> Maybe b -> m ()
styleContextSetParent a
context Maybe b
parent = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr StyleContext
maybeParent <- case Maybe b
parent of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jParent -> do
Ptr StyleContext
jParent' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jParent
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr StyleContext
jParent'
Ptr StyleContext -> Ptr StyleContext -> IO ()
gtk_style_context_set_parent Ptr StyleContext
context' Ptr StyleContext
maybeParent
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
parent forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSetParentMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsStyleContext a, IsStyleContext b) => O.OverloadedMethod StyleContextSetParentMethodInfo a signature where
overloadedMethod = styleContextSetParent
instance O.OverloadedMethodInfo StyleContextSetParentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSetParent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSetParent"
})
#endif
foreign import ccall "gtk_style_context_set_path" gtk_style_context_set_path ::
Ptr StyleContext ->
Ptr Gtk.WidgetPath.WidgetPath ->
IO ()
styleContextSetPath ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> Gtk.WidgetPath.WidgetPath
-> m ()
styleContextSetPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> WidgetPath -> m ()
styleContextSetPath a
context WidgetPath
path = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr WidgetPath
path' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr WidgetPath
path
Ptr StyleContext -> Ptr WidgetPath -> IO ()
gtk_style_context_set_path Ptr StyleContext
context' Ptr WidgetPath
path'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr WidgetPath
path
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSetPathMethodInfo
instance (signature ~ (Gtk.WidgetPath.WidgetPath -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextSetPathMethodInfo a signature where
overloadedMethod = styleContextSetPath
instance O.OverloadedMethodInfo StyleContextSetPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSetPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSetPath"
})
#endif
foreign import ccall "gtk_style_context_set_scale" gtk_style_context_set_scale ::
Ptr StyleContext ->
Int32 ->
IO ()
styleContextSetScale ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> Int32
-> m ()
styleContextSetScale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> Int32 -> m ()
styleContextSetScale a
context Int32
scale = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr StyleContext -> Int32 -> IO ()
gtk_style_context_set_scale Ptr StyleContext
context' Int32
scale
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSetScaleMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextSetScaleMethodInfo a signature where
overloadedMethod = styleContextSetScale
instance O.OverloadedMethodInfo StyleContextSetScaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSetScale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSetScale"
})
#endif
foreign import ccall "gtk_style_context_set_screen" gtk_style_context_set_screen ::
Ptr StyleContext ->
Ptr Gdk.Screen.Screen ->
IO ()
styleContextSetScreen ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a, Gdk.Screen.IsScreen b) =>
a
-> b
-> m ()
styleContextSetScreen :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStyleContext a, IsScreen b) =>
a -> b -> m ()
styleContextSetScreen a
context b
screen = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr Screen
screen' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
screen
Ptr StyleContext -> Ptr Screen -> IO ()
gtk_style_context_set_screen Ptr StyleContext
context' Ptr Screen
screen'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
screen
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSetScreenMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStyleContext a, Gdk.Screen.IsScreen b) => O.OverloadedMethod StyleContextSetScreenMethodInfo a signature where
overloadedMethod = styleContextSetScreen
instance O.OverloadedMethodInfo StyleContextSetScreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSetScreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSetScreen"
})
#endif
foreign import ccall "gtk_style_context_set_state" gtk_style_context_set_state ::
Ptr StyleContext ->
CUInt ->
IO ()
styleContextSetState ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.StateFlags]
-> m ()
styleContextSetState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [StateFlags] -> m ()
styleContextSetState a
context [StateFlags]
flags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
flags
Ptr StyleContext -> CUInt -> IO ()
gtk_style_context_set_state Ptr StyleContext
context' CUInt
flags'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleContextSetStateMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> m ()), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextSetStateMethodInfo a signature where
overloadedMethod = styleContextSetState
instance O.OverloadedMethodInfo StyleContextSetStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextSetState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextSetState"
})
#endif
foreign import ccall "gtk_style_context_state_is_running" gtk_style_context_state_is_running ::
Ptr StyleContext ->
CUInt ->
Ptr CDouble ->
IO CInt
{-# DEPRECATED styleContextStateIsRunning ["(Since version 3.6)","This function always returns 'P.False'"] #-}
styleContextStateIsRunning ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> Gtk.Enums.StateType
-> m ((Bool, Double))
styleContextStateIsRunning :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> StateType -> m (Bool, Double)
styleContextStateIsRunning a
context StateType
state = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let state' :: CUInt
state' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) StateType
state
Ptr CDouble
progress <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CInt
result <- Ptr StyleContext -> CUInt -> Ptr CDouble -> IO CInt
gtk_style_context_state_is_running Ptr StyleContext
context' CUInt
state' Ptr CDouble
progress
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CDouble
progress' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
progress
let progress'' :: Double
progress'' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
progress'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
progress
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Double
progress'')
#if defined(ENABLE_OVERLOADING)
data StyleContextStateIsRunningMethodInfo
instance (signature ~ (Gtk.Enums.StateType -> m ((Bool, Double))), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextStateIsRunningMethodInfo a signature where
overloadedMethod = styleContextStateIsRunning
instance O.OverloadedMethodInfo StyleContextStateIsRunningMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextStateIsRunning",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextStateIsRunning"
})
#endif
foreign import ccall "gtk_style_context_to_string" gtk_style_context_to_string ::
Ptr StyleContext ->
CUInt ->
IO CString
styleContextToString ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleContext a) =>
a
-> [Gtk.Flags.StyleContextPrintFlags]
-> m T.Text
styleContextToString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleContext a) =>
a -> [StyleContextPrintFlags] -> m Text
styleContextToString a
context [StyleContextPrintFlags]
flags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StyleContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StyleContextPrintFlags]
flags
CString
result <- Ptr StyleContext -> CUInt -> IO CString
gtk_style_context_to_string Ptr StyleContext
context' CUInt
flags'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"styleContextToString" 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
context
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StyleContextToStringMethodInfo
instance (signature ~ ([Gtk.Flags.StyleContextPrintFlags] -> m T.Text), MonadIO m, IsStyleContext a) => O.OverloadedMethod StyleContextToStringMethodInfo a signature where
overloadedMethod = styleContextToString
instance O.OverloadedMethodInfo StyleContextToStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StyleContext.styleContextToString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StyleContext.html#v:styleContextToString"
})
#endif
foreign import ccall "gtk_style_context_add_provider_for_screen" gtk_style_context_add_provider_for_screen ::
Ptr Gdk.Screen.Screen ->
Ptr Gtk.StyleProvider.StyleProvider ->
Word32 ->
IO ()
styleContextAddProviderForScreen ::
(B.CallStack.HasCallStack, MonadIO m, Gdk.Screen.IsScreen a, Gtk.StyleProvider.IsStyleProvider b) =>
a
-> b
-> Word32
-> m ()
styleContextAddProviderForScreen :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsScreen a, IsStyleProvider b) =>
a -> b -> Word32 -> m ()
styleContextAddProviderForScreen a
screen b
provider Word32
priority = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Screen
screen' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
screen
Ptr StyleProvider
provider' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
provider
Ptr Screen -> Ptr StyleProvider -> Word32 -> IO ()
gtk_style_context_add_provider_for_screen Ptr Screen
screen' Ptr StyleProvider
provider' Word32
priority
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
screen
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
provider
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_style_context_remove_provider_for_screen" gtk_style_context_remove_provider_for_screen ::
Ptr Gdk.Screen.Screen ->
Ptr Gtk.StyleProvider.StyleProvider ->
IO ()
styleContextRemoveProviderForScreen ::
(B.CallStack.HasCallStack, MonadIO m, Gdk.Screen.IsScreen a, Gtk.StyleProvider.IsStyleProvider b) =>
a
-> b
-> m ()
styleContextRemoveProviderForScreen :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsScreen a, IsStyleProvider b) =>
a -> b -> m ()
styleContextRemoveProviderForScreen a
screen b
provider = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Screen
screen' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
screen
Ptr StyleProvider
provider' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
provider
Ptr Screen -> Ptr StyleProvider -> IO ()
gtk_style_context_remove_provider_for_screen Ptr Screen
screen' Ptr StyleProvider
provider'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
screen
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
provider
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_style_context_reset_widgets" gtk_style_context_reset_widgets ::
Ptr Gdk.Screen.Screen ->
IO ()
styleContextResetWidgets ::
(B.CallStack.HasCallStack, MonadIO m, Gdk.Screen.IsScreen a) =>
a
-> m ()
styleContextResetWidgets :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScreen a) =>
a -> m ()
styleContextResetWidgets a
screen = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Screen
screen' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
screen
Ptr Screen -> IO ()
gtk_style_context_reset_widgets Ptr Screen
screen'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
screen
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif