{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.Style
(
Style(..) ,
IsStyle ,
toStyle ,
#if defined(ENABLE_OVERLOADING)
ResolveStyleMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleApplyMethodInfo ,
#endif
styleApply ,
#if defined(ENABLE_OVERLOADING)
StyleCopyMethodInfo ,
#endif
styleCopy ,
#if defined(ENABLE_OVERLOADING)
StyleBackgroundPropertyInfo ,
#endif
constructStyleBackground ,
getStyleBackground ,
#if defined(ENABLE_OVERLOADING)
styleBackground ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleBackgroundSetPropertyInfo ,
#endif
constructStyleBackgroundSet ,
getStyleBackgroundSet ,
#if defined(ENABLE_OVERLOADING)
styleBackgroundSet ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleBoldPropertyInfo ,
#endif
constructStyleBold ,
getStyleBold ,
#if defined(ENABLE_OVERLOADING)
styleBold ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleBoldSetPropertyInfo ,
#endif
constructStyleBoldSet ,
getStyleBoldSet ,
#if defined(ENABLE_OVERLOADING)
styleBoldSet ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleForegroundPropertyInfo ,
#endif
constructStyleForeground ,
getStyleForeground ,
#if defined(ENABLE_OVERLOADING)
styleForeground ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleForegroundSetPropertyInfo ,
#endif
constructStyleForegroundSet ,
getStyleForegroundSet ,
#if defined(ENABLE_OVERLOADING)
styleForegroundSet ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleItalicPropertyInfo ,
#endif
constructStyleItalic ,
getStyleItalic ,
#if defined(ENABLE_OVERLOADING)
styleItalic ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleItalicSetPropertyInfo ,
#endif
constructStyleItalicSet ,
getStyleItalicSet ,
#if defined(ENABLE_OVERLOADING)
styleItalicSet ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleLineBackgroundPropertyInfo ,
#endif
constructStyleLineBackground ,
getStyleLineBackground ,
#if defined(ENABLE_OVERLOADING)
styleLineBackground ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleLineBackgroundSetPropertyInfo ,
#endif
constructStyleLineBackgroundSet ,
getStyleLineBackgroundSet ,
#if defined(ENABLE_OVERLOADING)
styleLineBackgroundSet ,
#endif
#if defined(ENABLE_OVERLOADING)
StylePangoUnderlinePropertyInfo ,
#endif
constructStylePangoUnderline ,
getStylePangoUnderline ,
#if defined(ENABLE_OVERLOADING)
stylePangoUnderline ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleScalePropertyInfo ,
#endif
constructStyleScale ,
getStyleScale ,
#if defined(ENABLE_OVERLOADING)
styleScale ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleScaleSetPropertyInfo ,
#endif
constructStyleScaleSet ,
getStyleScaleSet ,
#if defined(ENABLE_OVERLOADING)
styleScaleSet ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleStrikethroughPropertyInfo ,
#endif
constructStyleStrikethrough ,
getStyleStrikethrough ,
#if defined(ENABLE_OVERLOADING)
styleStrikethrough ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleStrikethroughSetPropertyInfo ,
#endif
constructStyleStrikethroughSet ,
getStyleStrikethroughSet ,
#if defined(ENABLE_OVERLOADING)
styleStrikethroughSet ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleUnderlinePropertyInfo ,
#endif
constructStyleUnderline ,
getStyleUnderline ,
#if defined(ENABLE_OVERLOADING)
styleUnderline ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleUnderlineColorPropertyInfo ,
#endif
constructStyleUnderlineColor ,
getStyleUnderlineColor ,
#if defined(ENABLE_OVERLOADING)
styleUnderlineColor ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleUnderlineColorSetPropertyInfo ,
#endif
constructStyleUnderlineColorSet ,
getStyleUnderlineColorSet ,
#if defined(ENABLE_OVERLOADING)
styleUnderlineColorSet ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleUnderlineSetPropertyInfo ,
#endif
constructStyleUnderlineSet ,
getStyleUnderlineSet ,
#if defined(ENABLE_OVERLOADING)
styleUnderlineSet ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Objects.TextTag as Gtk.TextTag
import qualified GI.Pango.Enums as Pango.Enums
newtype Style = Style (SP.ManagedPtr Style)
deriving (Style -> Style -> Bool
(Style -> Style -> Bool) -> (Style -> Style -> Bool) -> Eq Style
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Style -> Style -> Bool
$c/= :: Style -> Style -> Bool
== :: Style -> Style -> Bool
$c== :: Style -> Style -> Bool
Eq)
instance SP.ManagedPtrNewtype Style where
toManagedPtr :: Style -> ManagedPtr Style
toManagedPtr (Style ManagedPtr Style
p) = ManagedPtr Style
p
foreign import ccall "gtk_source_style_get_type"
c_gtk_source_style_get_type :: IO B.Types.GType
instance B.Types.TypedObject Style where
glibType :: IO GType
glibType = IO GType
c_gtk_source_style_get_type
instance B.Types.GObject Style
instance B.GValue.IsGValue Style where
toGValue :: Style -> IO GValue
toGValue Style
o = do
GType
gtype <- IO GType
c_gtk_source_style_get_type
Style -> (Ptr Style -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Style
o (GType -> (GValue -> Ptr Style -> IO ()) -> Ptr Style -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Style -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Style
fromGValue GValue
gv = do
Ptr Style
ptr <- GValue -> IO (Ptr Style)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Style)
(ManagedPtr Style -> Style) -> Ptr Style -> IO Style
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Style -> Style
Style Ptr Style
ptr
class (SP.GObject o, O.IsDescendantOf Style o) => IsStyle o
instance (SP.GObject o, O.IsDescendantOf Style o) => IsStyle o
instance O.HasParentTypes Style
type instance O.ParentTypes Style = '[GObject.Object.Object]
toStyle :: (MonadIO m, IsStyle o) => o -> m Style
toStyle :: o -> m Style
toStyle = IO Style -> m Style
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Style -> m Style) -> (o -> IO Style) -> o -> m Style
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Style -> Style) -> o -> IO Style
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Style -> Style
Style
#if defined(ENABLE_OVERLOADING)
type family ResolveStyleMethod (t :: Symbol) (o :: *) :: * where
ResolveStyleMethod "apply" o = StyleApplyMethodInfo
ResolveStyleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStyleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStyleMethod "copy" o = StyleCopyMethodInfo
ResolveStyleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStyleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStyleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStyleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStyleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStyleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStyleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStyleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStyleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStyleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStyleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStyleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStyleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStyleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStyleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStyleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStyleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStyleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStyleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStyleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStyleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStyleMethod t Style, O.MethodInfo info Style p) => OL.IsLabel t (Style -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getStyleBackground :: (MonadIO m, IsStyle o) => o -> m (Maybe T.Text)
getStyleBackground :: o -> m (Maybe Text)
getStyleBackground o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"background"
constructStyleBackground :: (IsStyle o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStyleBackground :: Text -> m (GValueConstruct o)
constructStyleBackground Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"background" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StyleBackgroundPropertyInfo
instance AttrInfo StyleBackgroundPropertyInfo where
type AttrAllowedOps StyleBackgroundPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleBackgroundPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleBackgroundPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StyleBackgroundPropertyInfo = (~) T.Text
type AttrTransferType StyleBackgroundPropertyInfo = T.Text
type AttrGetType StyleBackgroundPropertyInfo = (Maybe T.Text)
type AttrLabel StyleBackgroundPropertyInfo = "background"
type AttrOrigin StyleBackgroundPropertyInfo = Style
attrGet = getStyleBackground
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleBackground
attrClear = undefined
#endif
getStyleBackgroundSet :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleBackgroundSet :: o -> m Bool
getStyleBackgroundSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"background-set"
constructStyleBackgroundSet :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleBackgroundSet :: Bool -> m (GValueConstruct o)
constructStyleBackgroundSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"background-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleBackgroundSetPropertyInfo
instance AttrInfo StyleBackgroundSetPropertyInfo where
type AttrAllowedOps StyleBackgroundSetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleBackgroundSetPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleBackgroundSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleBackgroundSetPropertyInfo = (~) Bool
type AttrTransferType StyleBackgroundSetPropertyInfo = Bool
type AttrGetType StyleBackgroundSetPropertyInfo = Bool
type AttrLabel StyleBackgroundSetPropertyInfo = "background-set"
type AttrOrigin StyleBackgroundSetPropertyInfo = Style
attrGet = getStyleBackgroundSet
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleBackgroundSet
attrClear = undefined
#endif
getStyleBold :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleBold :: o -> m Bool
getStyleBold o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"bold"
constructStyleBold :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleBold :: Bool -> m (GValueConstruct o)
constructStyleBold Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"bold" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleBoldPropertyInfo
instance AttrInfo StyleBoldPropertyInfo where
type AttrAllowedOps StyleBoldPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleBoldPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleBoldPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleBoldPropertyInfo = (~) Bool
type AttrTransferType StyleBoldPropertyInfo = Bool
type AttrGetType StyleBoldPropertyInfo = Bool
type AttrLabel StyleBoldPropertyInfo = "bold"
type AttrOrigin StyleBoldPropertyInfo = Style
attrGet = getStyleBold
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleBold
attrClear = undefined
#endif
getStyleBoldSet :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleBoldSet :: o -> m Bool
getStyleBoldSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"bold-set"
constructStyleBoldSet :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleBoldSet :: Bool -> m (GValueConstruct o)
constructStyleBoldSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"bold-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleBoldSetPropertyInfo
instance AttrInfo StyleBoldSetPropertyInfo where
type AttrAllowedOps StyleBoldSetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleBoldSetPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleBoldSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleBoldSetPropertyInfo = (~) Bool
type AttrTransferType StyleBoldSetPropertyInfo = Bool
type AttrGetType StyleBoldSetPropertyInfo = Bool
type AttrLabel StyleBoldSetPropertyInfo = "bold-set"
type AttrOrigin StyleBoldSetPropertyInfo = Style
attrGet = getStyleBoldSet
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleBoldSet
attrClear = undefined
#endif
getStyleForeground :: (MonadIO m, IsStyle o) => o -> m (Maybe T.Text)
getStyleForeground :: o -> m (Maybe Text)
getStyleForeground o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"foreground"
constructStyleForeground :: (IsStyle o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStyleForeground :: Text -> m (GValueConstruct o)
constructStyleForeground Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"foreground" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StyleForegroundPropertyInfo
instance AttrInfo StyleForegroundPropertyInfo where
type AttrAllowedOps StyleForegroundPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleForegroundPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleForegroundPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StyleForegroundPropertyInfo = (~) T.Text
type AttrTransferType StyleForegroundPropertyInfo = T.Text
type AttrGetType StyleForegroundPropertyInfo = (Maybe T.Text)
type AttrLabel StyleForegroundPropertyInfo = "foreground"
type AttrOrigin StyleForegroundPropertyInfo = Style
attrGet = getStyleForeground
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleForeground
attrClear = undefined
#endif
getStyleForegroundSet :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleForegroundSet :: o -> m Bool
getStyleForegroundSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"foreground-set"
constructStyleForegroundSet :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleForegroundSet :: Bool -> m (GValueConstruct o)
constructStyleForegroundSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"foreground-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleForegroundSetPropertyInfo
instance AttrInfo StyleForegroundSetPropertyInfo where
type AttrAllowedOps StyleForegroundSetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleForegroundSetPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleForegroundSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleForegroundSetPropertyInfo = (~) Bool
type AttrTransferType StyleForegroundSetPropertyInfo = Bool
type AttrGetType StyleForegroundSetPropertyInfo = Bool
type AttrLabel StyleForegroundSetPropertyInfo = "foreground-set"
type AttrOrigin StyleForegroundSetPropertyInfo = Style
attrGet = getStyleForegroundSet
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleForegroundSet
attrClear = undefined
#endif
getStyleItalic :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleItalic :: o -> m Bool
getStyleItalic o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"italic"
constructStyleItalic :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleItalic :: Bool -> m (GValueConstruct o)
constructStyleItalic Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"italic" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleItalicPropertyInfo
instance AttrInfo StyleItalicPropertyInfo where
type AttrAllowedOps StyleItalicPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleItalicPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleItalicPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleItalicPropertyInfo = (~) Bool
type AttrTransferType StyleItalicPropertyInfo = Bool
type AttrGetType StyleItalicPropertyInfo = Bool
type AttrLabel StyleItalicPropertyInfo = "italic"
type AttrOrigin StyleItalicPropertyInfo = Style
attrGet = getStyleItalic
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleItalic
attrClear = undefined
#endif
getStyleItalicSet :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleItalicSet :: o -> m Bool
getStyleItalicSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"italic-set"
constructStyleItalicSet :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleItalicSet :: Bool -> m (GValueConstruct o)
constructStyleItalicSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"italic-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleItalicSetPropertyInfo
instance AttrInfo StyleItalicSetPropertyInfo where
type AttrAllowedOps StyleItalicSetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleItalicSetPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleItalicSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleItalicSetPropertyInfo = (~) Bool
type AttrTransferType StyleItalicSetPropertyInfo = Bool
type AttrGetType StyleItalicSetPropertyInfo = Bool
type AttrLabel StyleItalicSetPropertyInfo = "italic-set"
type AttrOrigin StyleItalicSetPropertyInfo = Style
attrGet = getStyleItalicSet
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleItalicSet
attrClear = undefined
#endif
getStyleLineBackground :: (MonadIO m, IsStyle o) => o -> m (Maybe T.Text)
getStyleLineBackground :: o -> m (Maybe Text)
getStyleLineBackground o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"line-background"
constructStyleLineBackground :: (IsStyle o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStyleLineBackground :: Text -> m (GValueConstruct o)
constructStyleLineBackground Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"line-background" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StyleLineBackgroundPropertyInfo
instance AttrInfo StyleLineBackgroundPropertyInfo where
type AttrAllowedOps StyleLineBackgroundPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleLineBackgroundPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleLineBackgroundPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StyleLineBackgroundPropertyInfo = (~) T.Text
type AttrTransferType StyleLineBackgroundPropertyInfo = T.Text
type AttrGetType StyleLineBackgroundPropertyInfo = (Maybe T.Text)
type AttrLabel StyleLineBackgroundPropertyInfo = "line-background"
type AttrOrigin StyleLineBackgroundPropertyInfo = Style
attrGet = getStyleLineBackground
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleLineBackground
attrClear = undefined
#endif
getStyleLineBackgroundSet :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleLineBackgroundSet :: o -> m Bool
getStyleLineBackgroundSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"line-background-set"
constructStyleLineBackgroundSet :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleLineBackgroundSet :: Bool -> m (GValueConstruct o)
constructStyleLineBackgroundSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"line-background-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleLineBackgroundSetPropertyInfo
instance AttrInfo StyleLineBackgroundSetPropertyInfo where
type AttrAllowedOps StyleLineBackgroundSetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleLineBackgroundSetPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleLineBackgroundSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleLineBackgroundSetPropertyInfo = (~) Bool
type AttrTransferType StyleLineBackgroundSetPropertyInfo = Bool
type AttrGetType StyleLineBackgroundSetPropertyInfo = Bool
type AttrLabel StyleLineBackgroundSetPropertyInfo = "line-background-set"
type AttrOrigin StyleLineBackgroundSetPropertyInfo = Style
attrGet = getStyleLineBackgroundSet
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleLineBackgroundSet
attrClear = undefined
#endif
getStylePangoUnderline :: (MonadIO m, IsStyle o) => o -> m Pango.Enums.Underline
getStylePangoUnderline :: o -> m Underline
getStylePangoUnderline o
obj = IO Underline -> m Underline
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Underline -> m Underline) -> IO Underline -> m Underline
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Underline
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"pango-underline"
constructStylePangoUnderline :: (IsStyle o, MIO.MonadIO m) => Pango.Enums.Underline -> m (GValueConstruct o)
constructStylePangoUnderline :: Underline -> m (GValueConstruct o)
constructStylePangoUnderline Underline
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Underline -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"pango-underline" Underline
val
#if defined(ENABLE_OVERLOADING)
data StylePangoUnderlinePropertyInfo
instance AttrInfo StylePangoUnderlinePropertyInfo where
type AttrAllowedOps StylePangoUnderlinePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StylePangoUnderlinePropertyInfo = IsStyle
type AttrSetTypeConstraint StylePangoUnderlinePropertyInfo = (~) Pango.Enums.Underline
type AttrTransferTypeConstraint StylePangoUnderlinePropertyInfo = (~) Pango.Enums.Underline
type AttrTransferType StylePangoUnderlinePropertyInfo = Pango.Enums.Underline
type AttrGetType StylePangoUnderlinePropertyInfo = Pango.Enums.Underline
type AttrLabel StylePangoUnderlinePropertyInfo = "pango-underline"
type AttrOrigin StylePangoUnderlinePropertyInfo = Style
attrGet = getStylePangoUnderline
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStylePangoUnderline
attrClear = undefined
#endif
getStyleScale :: (MonadIO m, IsStyle o) => o -> m (Maybe T.Text)
getStyleScale :: o -> m (Maybe Text)
getStyleScale o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"scale"
constructStyleScale :: (IsStyle o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStyleScale :: Text -> m (GValueConstruct o)
constructStyleScale Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"scale" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StyleScalePropertyInfo
instance AttrInfo StyleScalePropertyInfo where
type AttrAllowedOps StyleScalePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleScalePropertyInfo = IsStyle
type AttrSetTypeConstraint StyleScalePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StyleScalePropertyInfo = (~) T.Text
type AttrTransferType StyleScalePropertyInfo = T.Text
type AttrGetType StyleScalePropertyInfo = (Maybe T.Text)
type AttrLabel StyleScalePropertyInfo = "scale"
type AttrOrigin StyleScalePropertyInfo = Style
attrGet = getStyleScale
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleScale
attrClear = undefined
#endif
getStyleScaleSet :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleScaleSet :: o -> m Bool
getStyleScaleSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"scale-set"
constructStyleScaleSet :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleScaleSet :: Bool -> m (GValueConstruct o)
constructStyleScaleSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"scale-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleScaleSetPropertyInfo
instance AttrInfo StyleScaleSetPropertyInfo where
type AttrAllowedOps StyleScaleSetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleScaleSetPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleScaleSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleScaleSetPropertyInfo = (~) Bool
type AttrTransferType StyleScaleSetPropertyInfo = Bool
type AttrGetType StyleScaleSetPropertyInfo = Bool
type AttrLabel StyleScaleSetPropertyInfo = "scale-set"
type AttrOrigin StyleScaleSetPropertyInfo = Style
attrGet = getStyleScaleSet
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleScaleSet
attrClear = undefined
#endif
getStyleStrikethrough :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleStrikethrough :: o -> m Bool
getStyleStrikethrough o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"strikethrough"
constructStyleStrikethrough :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleStrikethrough :: Bool -> m (GValueConstruct o)
constructStyleStrikethrough Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"strikethrough" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleStrikethroughPropertyInfo
instance AttrInfo StyleStrikethroughPropertyInfo where
type AttrAllowedOps StyleStrikethroughPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleStrikethroughPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleStrikethroughPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleStrikethroughPropertyInfo = (~) Bool
type AttrTransferType StyleStrikethroughPropertyInfo = Bool
type AttrGetType StyleStrikethroughPropertyInfo = Bool
type AttrLabel StyleStrikethroughPropertyInfo = "strikethrough"
type AttrOrigin StyleStrikethroughPropertyInfo = Style
attrGet = getStyleStrikethrough
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleStrikethrough
attrClear = undefined
#endif
getStyleStrikethroughSet :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleStrikethroughSet :: o -> m Bool
getStyleStrikethroughSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"strikethrough-set"
constructStyleStrikethroughSet :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleStrikethroughSet :: Bool -> m (GValueConstruct o)
constructStyleStrikethroughSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"strikethrough-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleStrikethroughSetPropertyInfo
instance AttrInfo StyleStrikethroughSetPropertyInfo where
type AttrAllowedOps StyleStrikethroughSetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleStrikethroughSetPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleStrikethroughSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleStrikethroughSetPropertyInfo = (~) Bool
type AttrTransferType StyleStrikethroughSetPropertyInfo = Bool
type AttrGetType StyleStrikethroughSetPropertyInfo = Bool
type AttrLabel StyleStrikethroughSetPropertyInfo = "strikethrough-set"
type AttrOrigin StyleStrikethroughSetPropertyInfo = Style
attrGet = getStyleStrikethroughSet
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleStrikethroughSet
attrClear = undefined
#endif
getStyleUnderline :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleUnderline :: o -> m Bool
getStyleUnderline o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"underline"
constructStyleUnderline :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleUnderline :: Bool -> m (GValueConstruct o)
constructStyleUnderline Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"underline" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleUnderlinePropertyInfo
instance AttrInfo StyleUnderlinePropertyInfo where
type AttrAllowedOps StyleUnderlinePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleUnderlinePropertyInfo = IsStyle
type AttrSetTypeConstraint StyleUnderlinePropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleUnderlinePropertyInfo = (~) Bool
type AttrTransferType StyleUnderlinePropertyInfo = Bool
type AttrGetType StyleUnderlinePropertyInfo = Bool
type AttrLabel StyleUnderlinePropertyInfo = "underline"
type AttrOrigin StyleUnderlinePropertyInfo = Style
attrGet = getStyleUnderline
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleUnderline
attrClear = undefined
#endif
getStyleUnderlineColor :: (MonadIO m, IsStyle o) => o -> m (Maybe T.Text)
getStyleUnderlineColor :: o -> m (Maybe Text)
getStyleUnderlineColor o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"underline-color"
constructStyleUnderlineColor :: (IsStyle o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStyleUnderlineColor :: Text -> m (GValueConstruct o)
constructStyleUnderlineColor Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"underline-color" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StyleUnderlineColorPropertyInfo
instance AttrInfo StyleUnderlineColorPropertyInfo where
type AttrAllowedOps StyleUnderlineColorPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleUnderlineColorPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleUnderlineColorPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StyleUnderlineColorPropertyInfo = (~) T.Text
type AttrTransferType StyleUnderlineColorPropertyInfo = T.Text
type AttrGetType StyleUnderlineColorPropertyInfo = (Maybe T.Text)
type AttrLabel StyleUnderlineColorPropertyInfo = "underline-color"
type AttrOrigin StyleUnderlineColorPropertyInfo = Style
attrGet = getStyleUnderlineColor
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleUnderlineColor
attrClear = undefined
#endif
getStyleUnderlineColorSet :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleUnderlineColorSet :: o -> m Bool
getStyleUnderlineColorSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"underline-color-set"
constructStyleUnderlineColorSet :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleUnderlineColorSet :: Bool -> m (GValueConstruct o)
constructStyleUnderlineColorSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"underline-color-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleUnderlineColorSetPropertyInfo
instance AttrInfo StyleUnderlineColorSetPropertyInfo where
type AttrAllowedOps StyleUnderlineColorSetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleUnderlineColorSetPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleUnderlineColorSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleUnderlineColorSetPropertyInfo = (~) Bool
type AttrTransferType StyleUnderlineColorSetPropertyInfo = Bool
type AttrGetType StyleUnderlineColorSetPropertyInfo = Bool
type AttrLabel StyleUnderlineColorSetPropertyInfo = "underline-color-set"
type AttrOrigin StyleUnderlineColorSetPropertyInfo = Style
attrGet = getStyleUnderlineColorSet
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleUnderlineColorSet
attrClear = undefined
#endif
getStyleUnderlineSet :: (MonadIO m, IsStyle o) => o -> m Bool
getStyleUnderlineSet :: o -> m Bool
getStyleUnderlineSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"underline-set"
constructStyleUnderlineSet :: (IsStyle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStyleUnderlineSet :: Bool -> m (GValueConstruct o)
constructStyleUnderlineSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"underline-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data StyleUnderlineSetPropertyInfo
instance AttrInfo StyleUnderlineSetPropertyInfo where
type AttrAllowedOps StyleUnderlineSetPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StyleUnderlineSetPropertyInfo = IsStyle
type AttrSetTypeConstraint StyleUnderlineSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StyleUnderlineSetPropertyInfo = (~) Bool
type AttrTransferType StyleUnderlineSetPropertyInfo = Bool
type AttrGetType StyleUnderlineSetPropertyInfo = Bool
type AttrLabel StyleUnderlineSetPropertyInfo = "underline-set"
type AttrOrigin StyleUnderlineSetPropertyInfo = Style
attrGet = getStyleUnderlineSet
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleUnderlineSet
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Style
type instance O.AttributeList Style = StyleAttributeList
type StyleAttributeList = ('[ '("background", StyleBackgroundPropertyInfo), '("backgroundSet", StyleBackgroundSetPropertyInfo), '("bold", StyleBoldPropertyInfo), '("boldSet", StyleBoldSetPropertyInfo), '("foreground", StyleForegroundPropertyInfo), '("foregroundSet", StyleForegroundSetPropertyInfo), '("italic", StyleItalicPropertyInfo), '("italicSet", StyleItalicSetPropertyInfo), '("lineBackground", StyleLineBackgroundPropertyInfo), '("lineBackgroundSet", StyleLineBackgroundSetPropertyInfo), '("pangoUnderline", StylePangoUnderlinePropertyInfo), '("scale", StyleScalePropertyInfo), '("scaleSet", StyleScaleSetPropertyInfo), '("strikethrough", StyleStrikethroughPropertyInfo), '("strikethroughSet", StyleStrikethroughSetPropertyInfo), '("underline", StyleUnderlinePropertyInfo), '("underlineColor", StyleUnderlineColorPropertyInfo), '("underlineColorSet", StyleUnderlineColorSetPropertyInfo), '("underlineSet", StyleUnderlineSetPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
styleBackground :: AttrLabelProxy "background"
styleBackground = AttrLabelProxy
styleBackgroundSet :: AttrLabelProxy "backgroundSet"
styleBackgroundSet = AttrLabelProxy
styleBold :: AttrLabelProxy "bold"
styleBold = AttrLabelProxy
styleBoldSet :: AttrLabelProxy "boldSet"
styleBoldSet = AttrLabelProxy
styleForeground :: AttrLabelProxy "foreground"
styleForeground = AttrLabelProxy
styleForegroundSet :: AttrLabelProxy "foregroundSet"
styleForegroundSet = AttrLabelProxy
styleItalic :: AttrLabelProxy "italic"
styleItalic = AttrLabelProxy
styleItalicSet :: AttrLabelProxy "italicSet"
styleItalicSet = AttrLabelProxy
styleLineBackground :: AttrLabelProxy "lineBackground"
styleLineBackground = AttrLabelProxy
styleLineBackgroundSet :: AttrLabelProxy "lineBackgroundSet"
styleLineBackgroundSet = AttrLabelProxy
stylePangoUnderline :: AttrLabelProxy "pangoUnderline"
stylePangoUnderline = AttrLabelProxy
styleScale :: AttrLabelProxy "scale"
styleScale = AttrLabelProxy
styleScaleSet :: AttrLabelProxy "scaleSet"
styleScaleSet = AttrLabelProxy
styleStrikethrough :: AttrLabelProxy "strikethrough"
styleStrikethrough = AttrLabelProxy
styleStrikethroughSet :: AttrLabelProxy "strikethroughSet"
styleStrikethroughSet = AttrLabelProxy
styleUnderline :: AttrLabelProxy "underline"
styleUnderline = AttrLabelProxy
styleUnderlineColor :: AttrLabelProxy "underlineColor"
styleUnderlineColor = AttrLabelProxy
styleUnderlineColorSet :: AttrLabelProxy "underlineColorSet"
styleUnderlineColorSet = AttrLabelProxy
styleUnderlineSet :: AttrLabelProxy "underlineSet"
styleUnderlineSet = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Style = StyleSignalList
type StyleSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_style_apply" gtk_source_style_apply ::
Ptr Style ->
Ptr Gtk.TextTag.TextTag ->
IO ()
styleApply ::
(B.CallStack.HasCallStack, MonadIO m, IsStyle a, Gtk.TextTag.IsTextTag b) =>
a
-> b
-> m ()
styleApply :: a -> b -> m ()
styleApply a
style b
tag = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Style
style' <- a -> IO (Ptr Style)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
style
Ptr TextTag
tag' <- b -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tag
Ptr Style -> Ptr TextTag -> IO ()
gtk_source_style_apply Ptr Style
style' Ptr TextTag
tag'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
style
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tag
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StyleApplyMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStyle a, Gtk.TextTag.IsTextTag b) => O.MethodInfo StyleApplyMethodInfo a signature where
overloadedMethod = styleApply
#endif
foreign import ccall "gtk_source_style_copy" gtk_source_style_copy ::
Ptr Style ->
IO (Ptr Style)
styleCopy ::
(B.CallStack.HasCallStack, MonadIO m, IsStyle a) =>
a
-> m Style
styleCopy :: a -> m Style
styleCopy a
style = IO Style -> m Style
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Style -> m Style) -> IO Style -> m Style
forall a b. (a -> b) -> a -> b
$ do
Ptr Style
style' <- a -> IO (Ptr Style)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
style
Ptr Style
result <- Ptr Style -> IO (Ptr Style)
gtk_source_style_copy Ptr Style
style'
Text -> Ptr Style -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"styleCopy" Ptr Style
result
Style
result' <- ((ManagedPtr Style -> Style) -> Ptr Style -> IO Style
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Style -> Style
Style) Ptr Style
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
style
Style -> IO Style
forall (m :: * -> *) a. Monad m => a -> m a
return Style
result'
#if defined(ENABLE_OVERLOADING)
data StyleCopyMethodInfo
instance (signature ~ (m Style), MonadIO m, IsStyle a) => O.MethodInfo StyleCopyMethodInfo a signature where
overloadedMethod = styleCopy
#endif