{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.CellRendererText
(
CellRendererText(..) ,
IsCellRendererText ,
toCellRendererText ,
#if defined(ENABLE_OVERLOADING)
ResolveCellRendererTextMethod ,
#endif
cellRendererTextNew ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextSetFixedHeightFromFontMethodInfo,
#endif
cellRendererTextSetFixedHeightFromFont ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextAlignSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextAlignSet ,
#endif
constructCellRendererTextAlignSet ,
getCellRendererTextAlignSet ,
setCellRendererTextAlignSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextAlignmentPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextAlignment ,
#endif
constructCellRendererTextAlignment ,
getCellRendererTextAlignment ,
setCellRendererTextAlignment ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextAttributesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextAttributes ,
#endif
clearCellRendererTextAttributes ,
constructCellRendererTextAttributes ,
getCellRendererTextAttributes ,
setCellRendererTextAttributes ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextBackgroundPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextBackground ,
#endif
clearCellRendererTextBackground ,
constructCellRendererTextBackground ,
setCellRendererTextBackground ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextBackgroundGdkPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextBackgroundGdk ,
#endif
clearCellRendererTextBackgroundGdk ,
constructCellRendererTextBackgroundGdk ,
getCellRendererTextBackgroundGdk ,
setCellRendererTextBackgroundGdk ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextBackgroundRgbaPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextBackgroundRgba ,
#endif
clearCellRendererTextBackgroundRgba ,
constructCellRendererTextBackgroundRgba ,
getCellRendererTextBackgroundRgba ,
setCellRendererTextBackgroundRgba ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextBackgroundSetPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextBackgroundSet ,
#endif
constructCellRendererTextBackgroundSet ,
getCellRendererTextBackgroundSet ,
setCellRendererTextBackgroundSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextEditablePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextEditable ,
#endif
constructCellRendererTextEditable ,
getCellRendererTextEditable ,
setCellRendererTextEditable ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextEditableSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextEditableSet ,
#endif
constructCellRendererTextEditableSet ,
getCellRendererTextEditableSet ,
setCellRendererTextEditableSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextEllipsizePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextEllipsize ,
#endif
constructCellRendererTextEllipsize ,
getCellRendererTextEllipsize ,
setCellRendererTextEllipsize ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextEllipsizeSetPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextEllipsizeSet ,
#endif
constructCellRendererTextEllipsizeSet ,
getCellRendererTextEllipsizeSet ,
setCellRendererTextEllipsizeSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextFamilyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextFamily ,
#endif
clearCellRendererTextFamily ,
constructCellRendererTextFamily ,
getCellRendererTextFamily ,
setCellRendererTextFamily ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextFamilySetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextFamilySet ,
#endif
constructCellRendererTextFamilySet ,
getCellRendererTextFamilySet ,
setCellRendererTextFamilySet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextFontPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextFont ,
#endif
clearCellRendererTextFont ,
constructCellRendererTextFont ,
getCellRendererTextFont ,
setCellRendererTextFont ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextFontDescPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextFontDesc ,
#endif
clearCellRendererTextFontDesc ,
constructCellRendererTextFontDesc ,
getCellRendererTextFontDesc ,
setCellRendererTextFontDesc ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextForegroundPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextForeground ,
#endif
clearCellRendererTextForeground ,
constructCellRendererTextForeground ,
setCellRendererTextForeground ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextForegroundGdkPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextForegroundGdk ,
#endif
clearCellRendererTextForegroundGdk ,
constructCellRendererTextForegroundGdk ,
getCellRendererTextForegroundGdk ,
setCellRendererTextForegroundGdk ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextForegroundRgbaPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextForegroundRgba ,
#endif
clearCellRendererTextForegroundRgba ,
constructCellRendererTextForegroundRgba ,
getCellRendererTextForegroundRgba ,
setCellRendererTextForegroundRgba ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextForegroundSetPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextForegroundSet ,
#endif
constructCellRendererTextForegroundSet ,
getCellRendererTextForegroundSet ,
setCellRendererTextForegroundSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextLanguagePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextLanguage ,
#endif
clearCellRendererTextLanguage ,
constructCellRendererTextLanguage ,
getCellRendererTextLanguage ,
setCellRendererTextLanguage ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextLanguageSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextLanguageSet ,
#endif
constructCellRendererTextLanguageSet ,
getCellRendererTextLanguageSet ,
setCellRendererTextLanguageSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextMarkupPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextMarkup ,
#endif
clearCellRendererTextMarkup ,
constructCellRendererTextMarkup ,
setCellRendererTextMarkup ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextMaxWidthCharsPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextMaxWidthChars ,
#endif
constructCellRendererTextMaxWidthChars ,
getCellRendererTextMaxWidthChars ,
setCellRendererTextMaxWidthChars ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextPlaceholderTextPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextPlaceholderText ,
#endif
clearCellRendererTextPlaceholderText ,
constructCellRendererTextPlaceholderText,
getCellRendererTextPlaceholderText ,
setCellRendererTextPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextRisePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextRise ,
#endif
constructCellRendererTextRise ,
getCellRendererTextRise ,
setCellRendererTextRise ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextRiseSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextRiseSet ,
#endif
constructCellRendererTextRiseSet ,
getCellRendererTextRiseSet ,
setCellRendererTextRiseSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextScalePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextScale ,
#endif
constructCellRendererTextScale ,
getCellRendererTextScale ,
setCellRendererTextScale ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextScaleSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextScaleSet ,
#endif
constructCellRendererTextScaleSet ,
getCellRendererTextScaleSet ,
setCellRendererTextScaleSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextSingleParagraphModePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextSingleParagraphMode ,
#endif
constructCellRendererTextSingleParagraphMode,
getCellRendererTextSingleParagraphMode ,
setCellRendererTextSingleParagraphMode ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextSizePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextSize ,
#endif
constructCellRendererTextSize ,
getCellRendererTextSize ,
setCellRendererTextSize ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextSizePointsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextSizePoints ,
#endif
constructCellRendererTextSizePoints ,
getCellRendererTextSizePoints ,
setCellRendererTextSizePoints ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextSizeSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextSizeSet ,
#endif
constructCellRendererTextSizeSet ,
getCellRendererTextSizeSet ,
setCellRendererTextSizeSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextStretchPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextStretch ,
#endif
constructCellRendererTextStretch ,
getCellRendererTextStretch ,
setCellRendererTextStretch ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextStretchSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextStretchSet ,
#endif
constructCellRendererTextStretchSet ,
getCellRendererTextStretchSet ,
setCellRendererTextStretchSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextStrikethroughPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextStrikethrough ,
#endif
constructCellRendererTextStrikethrough ,
getCellRendererTextStrikethrough ,
setCellRendererTextStrikethrough ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextStrikethroughSetPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextStrikethroughSet ,
#endif
constructCellRendererTextStrikethroughSet,
getCellRendererTextStrikethroughSet ,
setCellRendererTextStrikethroughSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextStylePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextStyle ,
#endif
constructCellRendererTextStyle ,
getCellRendererTextStyle ,
setCellRendererTextStyle ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextStyleSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextStyleSet ,
#endif
constructCellRendererTextStyleSet ,
getCellRendererTextStyleSet ,
setCellRendererTextStyleSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextTextPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextText ,
#endif
clearCellRendererTextText ,
constructCellRendererTextText ,
getCellRendererTextText ,
setCellRendererTextText ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextUnderlinePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextUnderline ,
#endif
constructCellRendererTextUnderline ,
getCellRendererTextUnderline ,
setCellRendererTextUnderline ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextUnderlineSetPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextUnderlineSet ,
#endif
constructCellRendererTextUnderlineSet ,
getCellRendererTextUnderlineSet ,
setCellRendererTextUnderlineSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextVariantPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextVariant ,
#endif
constructCellRendererTextVariant ,
getCellRendererTextVariant ,
setCellRendererTextVariant ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextVariantSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextVariantSet ,
#endif
constructCellRendererTextVariantSet ,
getCellRendererTextVariantSet ,
setCellRendererTextVariantSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextWeightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextWeight ,
#endif
constructCellRendererTextWeight ,
getCellRendererTextWeight ,
setCellRendererTextWeight ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextWeightSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextWeightSet ,
#endif
constructCellRendererTextWeightSet ,
getCellRendererTextWeightSet ,
setCellRendererTextWeightSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextWidthCharsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextWidthChars ,
#endif
constructCellRendererTextWidthChars ,
getCellRendererTextWidthChars ,
setCellRendererTextWidthChars ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextWrapModePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextWrapMode ,
#endif
constructCellRendererTextWrapMode ,
getCellRendererTextWrapMode ,
setCellRendererTextWrapMode ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextWrapWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextWrapWidth ,
#endif
constructCellRendererTextWrapWidth ,
getCellRendererTextWrapWidth ,
setCellRendererTextWrapWidth ,
C_CellRendererTextEditedCallback ,
CellRendererTextEditedCallback ,
#if defined(ENABLE_OVERLOADING)
CellRendererTextEditedSignalInfo ,
#endif
afterCellRendererTextEdited ,
genClosure_CellRendererTextEdited ,
mk_CellRendererTextEditedCallback ,
noCellRendererTextEditedCallback ,
onCellRendererTextEdited ,
wrap_CellRendererTextEditedCallback ,
) 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.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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Color as Gdk.Color
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Structs.AttrList as Pango.AttrList
import qualified GI.Pango.Structs.FontDescription as Pango.FontDescription
newtype CellRendererText = CellRendererText (SP.ManagedPtr CellRendererText)
deriving (CellRendererText -> CellRendererText -> Bool
(CellRendererText -> CellRendererText -> Bool)
-> (CellRendererText -> CellRendererText -> Bool)
-> Eq CellRendererText
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CellRendererText -> CellRendererText -> Bool
$c/= :: CellRendererText -> CellRendererText -> Bool
== :: CellRendererText -> CellRendererText -> Bool
$c== :: CellRendererText -> CellRendererText -> Bool
Eq)
instance SP.ManagedPtrNewtype CellRendererText where
toManagedPtr :: CellRendererText -> ManagedPtr CellRendererText
toManagedPtr (CellRendererText ManagedPtr CellRendererText
p) = ManagedPtr CellRendererText
p
foreign import ccall "gtk_cell_renderer_text_get_type"
c_gtk_cell_renderer_text_get_type :: IO B.Types.GType
instance B.Types.TypedObject CellRendererText where
glibType :: IO GType
glibType = IO GType
c_gtk_cell_renderer_text_get_type
instance B.Types.GObject CellRendererText
class (SP.GObject o, O.IsDescendantOf CellRendererText o) => IsCellRendererText o
instance (SP.GObject o, O.IsDescendantOf CellRendererText o) => IsCellRendererText o
instance O.HasParentTypes CellRendererText
type instance O.ParentTypes CellRendererText = '[Gtk.CellRenderer.CellRenderer, GObject.Object.Object]
toCellRendererText :: (MIO.MonadIO m, IsCellRendererText o) => o -> m CellRendererText
toCellRendererText :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m CellRendererText
toCellRendererText = IO CellRendererText -> m CellRendererText
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CellRendererText -> m CellRendererText)
-> (o -> IO CellRendererText) -> o -> m CellRendererText
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CellRendererText -> CellRendererText)
-> o -> IO CellRendererText
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CellRendererText -> CellRendererText
CellRendererText
instance B.GValue.IsGValue (Maybe CellRendererText) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_cell_renderer_text_get_type
gvalueSet_ :: Ptr GValue -> Maybe CellRendererText -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CellRendererText
P.Nothing = Ptr GValue -> Ptr CellRendererText -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CellRendererText
forall a. Ptr a
FP.nullPtr :: FP.Ptr CellRendererText)
gvalueSet_ Ptr GValue
gv (P.Just CellRendererText
obj) = CellRendererText -> (Ptr CellRendererText -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CellRendererText
obj (Ptr GValue -> Ptr CellRendererText -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CellRendererText)
gvalueGet_ Ptr GValue
gv = do
Ptr CellRendererText
ptr <- Ptr GValue -> IO (Ptr CellRendererText)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CellRendererText)
if Ptr CellRendererText
ptr Ptr CellRendererText -> Ptr CellRendererText -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CellRendererText
forall a. Ptr a
FP.nullPtr
then CellRendererText -> Maybe CellRendererText
forall a. a -> Maybe a
P.Just (CellRendererText -> Maybe CellRendererText)
-> IO CellRendererText -> IO (Maybe CellRendererText)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CellRendererText -> CellRendererText)
-> Ptr CellRendererText -> IO CellRendererText
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CellRendererText -> CellRendererText
CellRendererText Ptr CellRendererText
ptr
else Maybe CellRendererText -> IO (Maybe CellRendererText)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CellRendererText
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCellRendererTextMethod (t :: Symbol) (o :: *) :: * where
ResolveCellRendererTextMethod "activate" o = Gtk.CellRenderer.CellRendererActivateMethodInfo
ResolveCellRendererTextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCellRendererTextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCellRendererTextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCellRendererTextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCellRendererTextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCellRendererTextMethod "isActivatable" o = Gtk.CellRenderer.CellRendererIsActivatableMethodInfo
ResolveCellRendererTextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCellRendererTextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCellRendererTextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCellRendererTextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCellRendererTextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCellRendererTextMethod "render" o = Gtk.CellRenderer.CellRendererRenderMethodInfo
ResolveCellRendererTextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCellRendererTextMethod "startEditing" o = Gtk.CellRenderer.CellRendererStartEditingMethodInfo
ResolveCellRendererTextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCellRendererTextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCellRendererTextMethod "stopEditing" o = Gtk.CellRenderer.CellRendererStopEditingMethodInfo
ResolveCellRendererTextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCellRendererTextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCellRendererTextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCellRendererTextMethod "getAlignedArea" o = Gtk.CellRenderer.CellRendererGetAlignedAreaMethodInfo
ResolveCellRendererTextMethod "getAlignment" o = Gtk.CellRenderer.CellRendererGetAlignmentMethodInfo
ResolveCellRendererTextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCellRendererTextMethod "getFixedSize" o = Gtk.CellRenderer.CellRendererGetFixedSizeMethodInfo
ResolveCellRendererTextMethod "getPadding" o = Gtk.CellRenderer.CellRendererGetPaddingMethodInfo
ResolveCellRendererTextMethod "getPreferredHeight" o = Gtk.CellRenderer.CellRendererGetPreferredHeightMethodInfo
ResolveCellRendererTextMethod "getPreferredHeightForWidth" o = Gtk.CellRenderer.CellRendererGetPreferredHeightForWidthMethodInfo
ResolveCellRendererTextMethod "getPreferredSize" o = Gtk.CellRenderer.CellRendererGetPreferredSizeMethodInfo
ResolveCellRendererTextMethod "getPreferredWidth" o = Gtk.CellRenderer.CellRendererGetPreferredWidthMethodInfo
ResolveCellRendererTextMethod "getPreferredWidthForHeight" o = Gtk.CellRenderer.CellRendererGetPreferredWidthForHeightMethodInfo
ResolveCellRendererTextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCellRendererTextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCellRendererTextMethod "getRequestMode" o = Gtk.CellRenderer.CellRendererGetRequestModeMethodInfo
ResolveCellRendererTextMethod "getSensitive" o = Gtk.CellRenderer.CellRendererGetSensitiveMethodInfo
ResolveCellRendererTextMethod "getSize" o = Gtk.CellRenderer.CellRendererGetSizeMethodInfo
ResolveCellRendererTextMethod "getState" o = Gtk.CellRenderer.CellRendererGetStateMethodInfo
ResolveCellRendererTextMethod "getVisible" o = Gtk.CellRenderer.CellRendererGetVisibleMethodInfo
ResolveCellRendererTextMethod "setAlignment" o = Gtk.CellRenderer.CellRendererSetAlignmentMethodInfo
ResolveCellRendererTextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCellRendererTextMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCellRendererTextMethod "setFixedHeightFromFont" o = CellRendererTextSetFixedHeightFromFontMethodInfo
ResolveCellRendererTextMethod "setFixedSize" o = Gtk.CellRenderer.CellRendererSetFixedSizeMethodInfo
ResolveCellRendererTextMethod "setPadding" o = Gtk.CellRenderer.CellRendererSetPaddingMethodInfo
ResolveCellRendererTextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCellRendererTextMethod "setSensitive" o = Gtk.CellRenderer.CellRendererSetSensitiveMethodInfo
ResolveCellRendererTextMethod "setVisible" o = Gtk.CellRenderer.CellRendererSetVisibleMethodInfo
ResolveCellRendererTextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCellRendererTextMethod t CellRendererText, O.OverloadedMethod info CellRendererText p) => OL.IsLabel t (CellRendererText -> 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 ~ ResolveCellRendererTextMethod t CellRendererText, O.OverloadedMethod info CellRendererText p, R.HasField t CellRendererText p) => R.HasField t CellRendererText p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCellRendererTextMethod t CellRendererText, O.OverloadedMethodInfo info CellRendererText) => OL.IsLabel t (O.MethodProxy info CellRendererText) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type CellRendererTextEditedCallback =
T.Text
-> T.Text
-> IO ()
noCellRendererTextEditedCallback :: Maybe CellRendererTextEditedCallback
noCellRendererTextEditedCallback :: Maybe CellRendererTextEditedCallback
noCellRendererTextEditedCallback = Maybe CellRendererTextEditedCallback
forall a. Maybe a
Nothing
type C_CellRendererTextEditedCallback =
Ptr () ->
CString ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellRendererTextEditedCallback :: C_CellRendererTextEditedCallback -> IO (FunPtr C_CellRendererTextEditedCallback)
genClosure_CellRendererTextEdited :: MonadIO m => CellRendererTextEditedCallback -> m (GClosure C_CellRendererTextEditedCallback)
genClosure_CellRendererTextEdited :: forall (m :: * -> *).
MonadIO m =>
CellRendererTextEditedCallback
-> m (GClosure C_CellRendererTextEditedCallback)
genClosure_CellRendererTextEdited CellRendererTextEditedCallback
cb = IO (GClosure C_CellRendererTextEditedCallback)
-> m (GClosure C_CellRendererTextEditedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellRendererTextEditedCallback)
-> m (GClosure C_CellRendererTextEditedCallback))
-> IO (GClosure C_CellRendererTextEditedCallback)
-> m (GClosure C_CellRendererTextEditedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellRendererTextEditedCallback
cb' = CellRendererTextEditedCallback -> C_CellRendererTextEditedCallback
wrap_CellRendererTextEditedCallback CellRendererTextEditedCallback
cb
C_CellRendererTextEditedCallback
-> IO (FunPtr C_CellRendererTextEditedCallback)
mk_CellRendererTextEditedCallback C_CellRendererTextEditedCallback
cb' IO (FunPtr C_CellRendererTextEditedCallback)
-> (FunPtr C_CellRendererTextEditedCallback
-> IO (GClosure C_CellRendererTextEditedCallback))
-> IO (GClosure C_CellRendererTextEditedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellRendererTextEditedCallback
-> IO (GClosure C_CellRendererTextEditedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellRendererTextEditedCallback ::
CellRendererTextEditedCallback ->
C_CellRendererTextEditedCallback
wrap_CellRendererTextEditedCallback :: CellRendererTextEditedCallback -> C_CellRendererTextEditedCallback
wrap_CellRendererTextEditedCallback CellRendererTextEditedCallback
_cb Ptr ()
_ CString
path CString
newText Ptr ()
_ = do
Text
path' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
path
Text
newText' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
newText
CellRendererTextEditedCallback
_cb Text
path' Text
newText'
onCellRendererTextEdited :: (IsCellRendererText a, MonadIO m) => a -> CellRendererTextEditedCallback -> m SignalHandlerId
onCellRendererTextEdited :: forall a (m :: * -> *).
(IsCellRendererText a, MonadIO m) =>
a -> CellRendererTextEditedCallback -> m SignalHandlerId
onCellRendererTextEdited a
obj CellRendererTextEditedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellRendererTextEditedCallback
cb' = CellRendererTextEditedCallback -> C_CellRendererTextEditedCallback
wrap_CellRendererTextEditedCallback CellRendererTextEditedCallback
cb
FunPtr C_CellRendererTextEditedCallback
cb'' <- C_CellRendererTextEditedCallback
-> IO (FunPtr C_CellRendererTextEditedCallback)
mk_CellRendererTextEditedCallback C_CellRendererTextEditedCallback
cb'
a
-> Text
-> FunPtr C_CellRendererTextEditedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"edited" FunPtr C_CellRendererTextEditedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCellRendererTextEdited :: (IsCellRendererText a, MonadIO m) => a -> CellRendererTextEditedCallback -> m SignalHandlerId
afterCellRendererTextEdited :: forall a (m :: * -> *).
(IsCellRendererText a, MonadIO m) =>
a -> CellRendererTextEditedCallback -> m SignalHandlerId
afterCellRendererTextEdited a
obj CellRendererTextEditedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellRendererTextEditedCallback
cb' = CellRendererTextEditedCallback -> C_CellRendererTextEditedCallback
wrap_CellRendererTextEditedCallback CellRendererTextEditedCallback
cb
FunPtr C_CellRendererTextEditedCallback
cb'' <- C_CellRendererTextEditedCallback
-> IO (FunPtr C_CellRendererTextEditedCallback)
mk_CellRendererTextEditedCallback C_CellRendererTextEditedCallback
cb'
a
-> Text
-> FunPtr C_CellRendererTextEditedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"edited" FunPtr C_CellRendererTextEditedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CellRendererTextEditedSignalInfo
instance SignalInfo CellRendererTextEditedSignalInfo where
type HaskellCallbackType CellRendererTextEditedSignalInfo = CellRendererTextEditedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CellRendererTextEditedCallback cb
cb'' <- mk_CellRendererTextEditedCallback cb'
connectSignalFunPtr obj "edited" cb'' connectMode detail
#endif
getCellRendererTextAlignSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextAlignSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextAlignSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"align-set"
setCellRendererTextAlignSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextAlignSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextAlignSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"align-set" Bool
val
constructCellRendererTextAlignSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextAlignSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextAlignSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"align-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextAlignSetPropertyInfo
instance AttrInfo CellRendererTextAlignSetPropertyInfo where
type AttrAllowedOps CellRendererTextAlignSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextAlignSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextAlignSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextAlignSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextAlignSetPropertyInfo = Bool
type AttrGetType CellRendererTextAlignSetPropertyInfo = Bool
type AttrLabel CellRendererTextAlignSetPropertyInfo = "align-set"
type AttrOrigin CellRendererTextAlignSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextAlignSet
attrSet = setCellRendererTextAlignSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextAlignSet
attrClear = undefined
#endif
getCellRendererTextAlignment :: (MonadIO m, IsCellRendererText o) => o -> m Pango.Enums.Alignment
getCellRendererTextAlignment :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Alignment
getCellRendererTextAlignment o
obj = IO Alignment -> m Alignment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Alignment -> m Alignment) -> IO Alignment -> m Alignment
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Alignment
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"alignment"
setCellRendererTextAlignment :: (MonadIO m, IsCellRendererText o) => o -> Pango.Enums.Alignment -> m ()
setCellRendererTextAlignment :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Alignment -> m ()
setCellRendererTextAlignment o
obj Alignment
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Alignment -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"alignment" Alignment
val
constructCellRendererTextAlignment :: (IsCellRendererText o, MIO.MonadIO m) => Pango.Enums.Alignment -> m (GValueConstruct o)
constructCellRendererTextAlignment :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Alignment -> m (GValueConstruct o)
constructCellRendererTextAlignment Alignment
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Alignment -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"alignment" Alignment
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextAlignmentPropertyInfo
instance AttrInfo CellRendererTextAlignmentPropertyInfo where
type AttrAllowedOps CellRendererTextAlignmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextAlignmentPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextAlignmentPropertyInfo = (~) Pango.Enums.Alignment
type AttrTransferTypeConstraint CellRendererTextAlignmentPropertyInfo = (~) Pango.Enums.Alignment
type AttrTransferType CellRendererTextAlignmentPropertyInfo = Pango.Enums.Alignment
type AttrGetType CellRendererTextAlignmentPropertyInfo = Pango.Enums.Alignment
type AttrLabel CellRendererTextAlignmentPropertyInfo = "alignment"
type AttrOrigin CellRendererTextAlignmentPropertyInfo = CellRendererText
attrGet = getCellRendererTextAlignment
attrSet = setCellRendererTextAlignment
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextAlignment
attrClear = undefined
#endif
getCellRendererTextAttributes :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe Pango.AttrList.AttrList)
getCellRendererTextAttributes :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe AttrList)
getCellRendererTextAttributes o
obj = IO (Maybe AttrList) -> m (Maybe AttrList)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe AttrList) -> m (Maybe AttrList))
-> IO (Maybe AttrList) -> m (Maybe AttrList)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr AttrList -> AttrList)
-> IO (Maybe AttrList)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"attributes" ManagedPtr AttrList -> AttrList
Pango.AttrList.AttrList
setCellRendererTextAttributes :: (MonadIO m, IsCellRendererText o) => o -> Pango.AttrList.AttrList -> m ()
setCellRendererTextAttributes :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> AttrList -> m ()
setCellRendererTextAttributes o
obj AttrList
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe AttrList -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"attributes" (AttrList -> Maybe AttrList
forall a. a -> Maybe a
Just AttrList
val)
constructCellRendererTextAttributes :: (IsCellRendererText o, MIO.MonadIO m) => Pango.AttrList.AttrList -> m (GValueConstruct o)
constructCellRendererTextAttributes :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
AttrList -> m (GValueConstruct o)
constructCellRendererTextAttributes AttrList
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe AttrList -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"attributes" (AttrList -> Maybe AttrList
forall a. a -> Maybe a
P.Just AttrList
val)
clearCellRendererTextAttributes :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextAttributes :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextAttributes o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe AttrList -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"attributes" (Maybe AttrList
forall a. Maybe a
Nothing :: Maybe Pango.AttrList.AttrList)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextAttributesPropertyInfo
instance AttrInfo CellRendererTextAttributesPropertyInfo where
type AttrAllowedOps CellRendererTextAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextAttributesPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextAttributesPropertyInfo = (~) Pango.AttrList.AttrList
type AttrTransferTypeConstraint CellRendererTextAttributesPropertyInfo = (~) Pango.AttrList.AttrList
type AttrTransferType CellRendererTextAttributesPropertyInfo = Pango.AttrList.AttrList
type AttrGetType CellRendererTextAttributesPropertyInfo = (Maybe Pango.AttrList.AttrList)
type AttrLabel CellRendererTextAttributesPropertyInfo = "attributes"
type AttrOrigin CellRendererTextAttributesPropertyInfo = CellRendererText
attrGet = getCellRendererTextAttributes
attrSet = setCellRendererTextAttributes
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextAttributes
attrClear = clearCellRendererTextAttributes
#endif
setCellRendererTextBackground :: (MonadIO m, IsCellRendererText o) => o -> T.Text -> m ()
setCellRendererTextBackground :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Text -> m ()
setCellRendererTextBackground o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"background" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCellRendererTextBackground :: (IsCellRendererText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCellRendererTextBackground :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCellRendererTextBackground 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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)
clearCellRendererTextBackground :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextBackground :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextBackground o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"background" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextBackgroundPropertyInfo
instance AttrInfo CellRendererTextBackgroundPropertyInfo where
type AttrAllowedOps CellRendererTextBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextBackgroundPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextBackgroundPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CellRendererTextBackgroundPropertyInfo = (~) T.Text
type AttrTransferType CellRendererTextBackgroundPropertyInfo = T.Text
type AttrGetType CellRendererTextBackgroundPropertyInfo = ()
type AttrLabel CellRendererTextBackgroundPropertyInfo = "background"
type AttrOrigin CellRendererTextBackgroundPropertyInfo = CellRendererText
attrGet = undefined
attrSet = setCellRendererTextBackground
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextBackground
attrClear = clearCellRendererTextBackground
#endif
getCellRendererTextBackgroundGdk :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe Gdk.Color.Color)
getCellRendererTextBackgroundGdk :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe Color)
getCellRendererTextBackgroundGdk o
obj = IO (Maybe Color) -> m (Maybe Color)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Color) -> m (Maybe Color))
-> IO (Maybe Color) -> m (Maybe Color)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Color -> Color) -> IO (Maybe Color)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"background-gdk" ManagedPtr Color -> Color
Gdk.Color.Color
setCellRendererTextBackgroundGdk :: (MonadIO m, IsCellRendererText o) => o -> Gdk.Color.Color -> m ()
setCellRendererTextBackgroundGdk :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Color -> m ()
setCellRendererTextBackgroundGdk o
obj Color
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"background-gdk" (Color -> Maybe Color
forall a. a -> Maybe a
Just Color
val)
constructCellRendererTextBackgroundGdk :: (IsCellRendererText o, MIO.MonadIO m) => Gdk.Color.Color -> m (GValueConstruct o)
constructCellRendererTextBackgroundGdk :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Color -> m (GValueConstruct o)
constructCellRendererTextBackgroundGdk Color
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Color -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"background-gdk" (Color -> Maybe Color
forall a. a -> Maybe a
P.Just Color
val)
clearCellRendererTextBackgroundGdk :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextBackgroundGdk :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextBackgroundGdk o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"background-gdk" (Maybe Color
forall a. Maybe a
Nothing :: Maybe Gdk.Color.Color)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextBackgroundGdkPropertyInfo
instance AttrInfo CellRendererTextBackgroundGdkPropertyInfo where
type AttrAllowedOps CellRendererTextBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = (~) Gdk.Color.Color
type AttrTransferTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = (~) Gdk.Color.Color
type AttrTransferType CellRendererTextBackgroundGdkPropertyInfo = Gdk.Color.Color
type AttrGetType CellRendererTextBackgroundGdkPropertyInfo = (Maybe Gdk.Color.Color)
type AttrLabel CellRendererTextBackgroundGdkPropertyInfo = "background-gdk"
type AttrOrigin CellRendererTextBackgroundGdkPropertyInfo = CellRendererText
attrGet = getCellRendererTextBackgroundGdk
attrSet = setCellRendererTextBackgroundGdk
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextBackgroundGdk
attrClear = clearCellRendererTextBackgroundGdk
#endif
getCellRendererTextBackgroundRgba :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe Gdk.RGBA.RGBA)
getCellRendererTextBackgroundRgba :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe RGBA)
getCellRendererTextBackgroundRgba o
obj = IO (Maybe RGBA) -> m (Maybe RGBA)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe RGBA) -> m (Maybe RGBA))
-> IO (Maybe RGBA) -> m (Maybe RGBA)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr RGBA -> RGBA) -> IO (Maybe RGBA)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"background-rgba" ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA
setCellRendererTextBackgroundRgba :: (MonadIO m, IsCellRendererText o) => o -> Gdk.RGBA.RGBA -> m ()
setCellRendererTextBackgroundRgba :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> RGBA -> m ()
setCellRendererTextBackgroundRgba o
obj RGBA
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"background-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
Just RGBA
val)
constructCellRendererTextBackgroundRgba :: (IsCellRendererText o, MIO.MonadIO m) => Gdk.RGBA.RGBA -> m (GValueConstruct o)
constructCellRendererTextBackgroundRgba :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
RGBA -> m (GValueConstruct o)
constructCellRendererTextBackgroundRgba RGBA
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe RGBA -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"background-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
P.Just RGBA
val)
clearCellRendererTextBackgroundRgba :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextBackgroundRgba :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextBackgroundRgba o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"background-rgba" (Maybe RGBA
forall a. Maybe a
Nothing :: Maybe Gdk.RGBA.RGBA)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextBackgroundRgbaPropertyInfo
instance AttrInfo CellRendererTextBackgroundRgbaPropertyInfo where
type AttrAllowedOps CellRendererTextBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferType CellRendererTextBackgroundRgbaPropertyInfo = Gdk.RGBA.RGBA
type AttrGetType CellRendererTextBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel CellRendererTextBackgroundRgbaPropertyInfo = "background-rgba"
type AttrOrigin CellRendererTextBackgroundRgbaPropertyInfo = CellRendererText
attrGet = getCellRendererTextBackgroundRgba
attrSet = setCellRendererTextBackgroundRgba
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextBackgroundRgba
attrClear = clearCellRendererTextBackgroundRgba
#endif
getCellRendererTextBackgroundSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextBackgroundSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextBackgroundSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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"
setCellRendererTextBackgroundSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextBackgroundSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextBackgroundSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"background-set" Bool
val
constructCellRendererTextBackgroundSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextBackgroundSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextBackgroundSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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 CellRendererTextBackgroundSetPropertyInfo
instance AttrInfo CellRendererTextBackgroundSetPropertyInfo where
type AttrAllowedOps CellRendererTextBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextBackgroundSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextBackgroundSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextBackgroundSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextBackgroundSetPropertyInfo = Bool
type AttrGetType CellRendererTextBackgroundSetPropertyInfo = Bool
type AttrLabel CellRendererTextBackgroundSetPropertyInfo = "background-set"
type AttrOrigin CellRendererTextBackgroundSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextBackgroundSet
attrSet = setCellRendererTextBackgroundSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextBackgroundSet
attrClear = undefined
#endif
getCellRendererTextEditable :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextEditable :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextEditable o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"editable"
setCellRendererTextEditable :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextEditable :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextEditable o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"editable" Bool
val
constructCellRendererTextEditable :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextEditable :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextEditable 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"editable" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextEditablePropertyInfo
instance AttrInfo CellRendererTextEditablePropertyInfo where
type AttrAllowedOps CellRendererTextEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextEditablePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextEditablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextEditablePropertyInfo = (~) Bool
type AttrTransferType CellRendererTextEditablePropertyInfo = Bool
type AttrGetType CellRendererTextEditablePropertyInfo = Bool
type AttrLabel CellRendererTextEditablePropertyInfo = "editable"
type AttrOrigin CellRendererTextEditablePropertyInfo = CellRendererText
attrGet = getCellRendererTextEditable
attrSet = setCellRendererTextEditable
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextEditable
attrClear = undefined
#endif
getCellRendererTextEditableSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextEditableSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextEditableSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"editable-set"
setCellRendererTextEditableSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextEditableSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextEditableSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"editable-set" Bool
val
constructCellRendererTextEditableSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextEditableSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextEditableSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"editable-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextEditableSetPropertyInfo
instance AttrInfo CellRendererTextEditableSetPropertyInfo where
type AttrAllowedOps CellRendererTextEditableSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextEditableSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextEditableSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextEditableSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextEditableSetPropertyInfo = Bool
type AttrGetType CellRendererTextEditableSetPropertyInfo = Bool
type AttrLabel CellRendererTextEditableSetPropertyInfo = "editable-set"
type AttrOrigin CellRendererTextEditableSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextEditableSet
attrSet = setCellRendererTextEditableSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextEditableSet
attrClear = undefined
#endif
getCellRendererTextEllipsize :: (MonadIO m, IsCellRendererText o) => o -> m Pango.Enums.EllipsizeMode
getCellRendererTextEllipsize :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m EllipsizeMode
getCellRendererTextEllipsize o
obj = IO EllipsizeMode -> m EllipsizeMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO EllipsizeMode -> m EllipsizeMode)
-> IO EllipsizeMode -> m EllipsizeMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO EllipsizeMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"ellipsize"
setCellRendererTextEllipsize :: (MonadIO m, IsCellRendererText o) => o -> Pango.Enums.EllipsizeMode -> m ()
setCellRendererTextEllipsize :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> EllipsizeMode -> m ()
setCellRendererTextEllipsize o
obj EllipsizeMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> EllipsizeMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"ellipsize" EllipsizeMode
val
constructCellRendererTextEllipsize :: (IsCellRendererText o, MIO.MonadIO m) => Pango.Enums.EllipsizeMode -> m (GValueConstruct o)
constructCellRendererTextEllipsize :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
EllipsizeMode -> m (GValueConstruct o)
constructCellRendererTextEllipsize EllipsizeMode
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> EllipsizeMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"ellipsize" EllipsizeMode
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextEllipsizePropertyInfo
instance AttrInfo CellRendererTextEllipsizePropertyInfo where
type AttrAllowedOps CellRendererTextEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextEllipsizePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextEllipsizePropertyInfo = (~) Pango.Enums.EllipsizeMode
type AttrTransferTypeConstraint CellRendererTextEllipsizePropertyInfo = (~) Pango.Enums.EllipsizeMode
type AttrTransferType CellRendererTextEllipsizePropertyInfo = Pango.Enums.EllipsizeMode
type AttrGetType CellRendererTextEllipsizePropertyInfo = Pango.Enums.EllipsizeMode
type AttrLabel CellRendererTextEllipsizePropertyInfo = "ellipsize"
type AttrOrigin CellRendererTextEllipsizePropertyInfo = CellRendererText
attrGet = getCellRendererTextEllipsize
attrSet = setCellRendererTextEllipsize
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextEllipsize
attrClear = undefined
#endif
getCellRendererTextEllipsizeSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextEllipsizeSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextEllipsizeSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"ellipsize-set"
setCellRendererTextEllipsizeSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextEllipsizeSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextEllipsizeSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"ellipsize-set" Bool
val
constructCellRendererTextEllipsizeSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextEllipsizeSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextEllipsizeSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"ellipsize-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextEllipsizeSetPropertyInfo
instance AttrInfo CellRendererTextEllipsizeSetPropertyInfo where
type AttrAllowedOps CellRendererTextEllipsizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextEllipsizeSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextEllipsizeSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextEllipsizeSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextEllipsizeSetPropertyInfo = Bool
type AttrGetType CellRendererTextEllipsizeSetPropertyInfo = Bool
type AttrLabel CellRendererTextEllipsizeSetPropertyInfo = "ellipsize-set"
type AttrOrigin CellRendererTextEllipsizeSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextEllipsizeSet
attrSet = setCellRendererTextEllipsizeSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextEllipsizeSet
attrClear = undefined
#endif
getCellRendererTextFamily :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe T.Text)
getCellRendererTextFamily :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe Text)
getCellRendererTextFamily o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"family"
setCellRendererTextFamily :: (MonadIO m, IsCellRendererText o) => o -> T.Text -> m ()
setCellRendererTextFamily :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Text -> m ()
setCellRendererTextFamily o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"family" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCellRendererTextFamily :: (IsCellRendererText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCellRendererTextFamily :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCellRendererTextFamily 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"family" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCellRendererTextFamily :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextFamily :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextFamily o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"family" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextFamilyPropertyInfo
instance AttrInfo CellRendererTextFamilyPropertyInfo where
type AttrAllowedOps CellRendererTextFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextFamilyPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextFamilyPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CellRendererTextFamilyPropertyInfo = (~) T.Text
type AttrTransferType CellRendererTextFamilyPropertyInfo = T.Text
type AttrGetType CellRendererTextFamilyPropertyInfo = (Maybe T.Text)
type AttrLabel CellRendererTextFamilyPropertyInfo = "family"
type AttrOrigin CellRendererTextFamilyPropertyInfo = CellRendererText
attrGet = getCellRendererTextFamily
attrSet = setCellRendererTextFamily
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextFamily
attrClear = clearCellRendererTextFamily
#endif
getCellRendererTextFamilySet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextFamilySet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextFamilySet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"family-set"
setCellRendererTextFamilySet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextFamilySet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextFamilySet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"family-set" Bool
val
constructCellRendererTextFamilySet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextFamilySet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextFamilySet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"family-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextFamilySetPropertyInfo
instance AttrInfo CellRendererTextFamilySetPropertyInfo where
type AttrAllowedOps CellRendererTextFamilySetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextFamilySetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextFamilySetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextFamilySetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextFamilySetPropertyInfo = Bool
type AttrGetType CellRendererTextFamilySetPropertyInfo = Bool
type AttrLabel CellRendererTextFamilySetPropertyInfo = "family-set"
type AttrOrigin CellRendererTextFamilySetPropertyInfo = CellRendererText
attrGet = getCellRendererTextFamilySet
attrSet = setCellRendererTextFamilySet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextFamilySet
attrClear = undefined
#endif
getCellRendererTextFont :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe T.Text)
getCellRendererTextFont :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe Text)
getCellRendererTextFont o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"font"
setCellRendererTextFont :: (MonadIO m, IsCellRendererText o) => o -> T.Text -> m ()
setCellRendererTextFont :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Text -> m ()
setCellRendererTextFont o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"font" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCellRendererTextFont :: (IsCellRendererText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCellRendererTextFont :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCellRendererTextFont 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"font" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCellRendererTextFont :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextFont :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextFont o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"font" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextFontPropertyInfo
instance AttrInfo CellRendererTextFontPropertyInfo where
type AttrAllowedOps CellRendererTextFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextFontPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextFontPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CellRendererTextFontPropertyInfo = (~) T.Text
type AttrTransferType CellRendererTextFontPropertyInfo = T.Text
type AttrGetType CellRendererTextFontPropertyInfo = (Maybe T.Text)
type AttrLabel CellRendererTextFontPropertyInfo = "font"
type AttrOrigin CellRendererTextFontPropertyInfo = CellRendererText
attrGet = getCellRendererTextFont
attrSet = setCellRendererTextFont
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextFont
attrClear = clearCellRendererTextFont
#endif
getCellRendererTextFontDesc :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe Pango.FontDescription.FontDescription)
getCellRendererTextFontDesc :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe FontDescription)
getCellRendererTextFontDesc o
obj = IO (Maybe FontDescription) -> m (Maybe FontDescription)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe FontDescription) -> m (Maybe FontDescription))
-> IO (Maybe FontDescription) -> m (Maybe FontDescription)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr FontDescription -> FontDescription)
-> IO (Maybe FontDescription)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"font-desc" ManagedPtr FontDescription -> FontDescription
Pango.FontDescription.FontDescription
setCellRendererTextFontDesc :: (MonadIO m, IsCellRendererText o) => o -> Pango.FontDescription.FontDescription -> m ()
setCellRendererTextFontDesc :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> FontDescription -> m ()
setCellRendererTextFontDesc o
obj FontDescription
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe FontDescription -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"font-desc" (FontDescription -> Maybe FontDescription
forall a. a -> Maybe a
Just FontDescription
val)
constructCellRendererTextFontDesc :: (IsCellRendererText o, MIO.MonadIO m) => Pango.FontDescription.FontDescription -> m (GValueConstruct o)
constructCellRendererTextFontDesc :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
FontDescription -> m (GValueConstruct o)
constructCellRendererTextFontDesc FontDescription
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe FontDescription -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"font-desc" (FontDescription -> Maybe FontDescription
forall a. a -> Maybe a
P.Just FontDescription
val)
clearCellRendererTextFontDesc :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextFontDesc :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextFontDesc o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe FontDescription -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"font-desc" (Maybe FontDescription
forall a. Maybe a
Nothing :: Maybe Pango.FontDescription.FontDescription)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextFontDescPropertyInfo
instance AttrInfo CellRendererTextFontDescPropertyInfo where
type AttrAllowedOps CellRendererTextFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextFontDescPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextFontDescPropertyInfo = (~) Pango.FontDescription.FontDescription
type AttrTransferTypeConstraint CellRendererTextFontDescPropertyInfo = (~) Pango.FontDescription.FontDescription
type AttrTransferType CellRendererTextFontDescPropertyInfo = Pango.FontDescription.FontDescription
type AttrGetType CellRendererTextFontDescPropertyInfo = (Maybe Pango.FontDescription.FontDescription)
type AttrLabel CellRendererTextFontDescPropertyInfo = "font-desc"
type AttrOrigin CellRendererTextFontDescPropertyInfo = CellRendererText
attrGet = getCellRendererTextFontDesc
attrSet = setCellRendererTextFontDesc
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextFontDesc
attrClear = clearCellRendererTextFontDesc
#endif
setCellRendererTextForeground :: (MonadIO m, IsCellRendererText o) => o -> T.Text -> m ()
setCellRendererTextForeground :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Text -> m ()
setCellRendererTextForeground o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"foreground" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCellRendererTextForeground :: (IsCellRendererText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCellRendererTextForeground :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCellRendererTextForeground 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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)
clearCellRendererTextForeground :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextForeground :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextForeground o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"foreground" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextForegroundPropertyInfo
instance AttrInfo CellRendererTextForegroundPropertyInfo where
type AttrAllowedOps CellRendererTextForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextForegroundPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextForegroundPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CellRendererTextForegroundPropertyInfo = (~) T.Text
type AttrTransferType CellRendererTextForegroundPropertyInfo = T.Text
type AttrGetType CellRendererTextForegroundPropertyInfo = ()
type AttrLabel CellRendererTextForegroundPropertyInfo = "foreground"
type AttrOrigin CellRendererTextForegroundPropertyInfo = CellRendererText
attrGet = undefined
attrSet = setCellRendererTextForeground
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextForeground
attrClear = clearCellRendererTextForeground
#endif
getCellRendererTextForegroundGdk :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe Gdk.Color.Color)
getCellRendererTextForegroundGdk :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe Color)
getCellRendererTextForegroundGdk o
obj = IO (Maybe Color) -> m (Maybe Color)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Color) -> m (Maybe Color))
-> IO (Maybe Color) -> m (Maybe Color)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Color -> Color) -> IO (Maybe Color)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"foreground-gdk" ManagedPtr Color -> Color
Gdk.Color.Color
setCellRendererTextForegroundGdk :: (MonadIO m, IsCellRendererText o) => o -> Gdk.Color.Color -> m ()
setCellRendererTextForegroundGdk :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Color -> m ()
setCellRendererTextForegroundGdk o
obj Color
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"foreground-gdk" (Color -> Maybe Color
forall a. a -> Maybe a
Just Color
val)
constructCellRendererTextForegroundGdk :: (IsCellRendererText o, MIO.MonadIO m) => Gdk.Color.Color -> m (GValueConstruct o)
constructCellRendererTextForegroundGdk :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Color -> m (GValueConstruct o)
constructCellRendererTextForegroundGdk Color
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Color -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"foreground-gdk" (Color -> Maybe Color
forall a. a -> Maybe a
P.Just Color
val)
clearCellRendererTextForegroundGdk :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextForegroundGdk :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextForegroundGdk o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"foreground-gdk" (Maybe Color
forall a. Maybe a
Nothing :: Maybe Gdk.Color.Color)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextForegroundGdkPropertyInfo
instance AttrInfo CellRendererTextForegroundGdkPropertyInfo where
type AttrAllowedOps CellRendererTextForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextForegroundGdkPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextForegroundGdkPropertyInfo = (~) Gdk.Color.Color
type AttrTransferTypeConstraint CellRendererTextForegroundGdkPropertyInfo = (~) Gdk.Color.Color
type AttrTransferType CellRendererTextForegroundGdkPropertyInfo = Gdk.Color.Color
type AttrGetType CellRendererTextForegroundGdkPropertyInfo = (Maybe Gdk.Color.Color)
type AttrLabel CellRendererTextForegroundGdkPropertyInfo = "foreground-gdk"
type AttrOrigin CellRendererTextForegroundGdkPropertyInfo = CellRendererText
attrGet = getCellRendererTextForegroundGdk
attrSet = setCellRendererTextForegroundGdk
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextForegroundGdk
attrClear = clearCellRendererTextForegroundGdk
#endif
getCellRendererTextForegroundRgba :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe Gdk.RGBA.RGBA)
getCellRendererTextForegroundRgba :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe RGBA)
getCellRendererTextForegroundRgba o
obj = IO (Maybe RGBA) -> m (Maybe RGBA)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe RGBA) -> m (Maybe RGBA))
-> IO (Maybe RGBA) -> m (Maybe RGBA)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr RGBA -> RGBA) -> IO (Maybe RGBA)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"foreground-rgba" ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA
setCellRendererTextForegroundRgba :: (MonadIO m, IsCellRendererText o) => o -> Gdk.RGBA.RGBA -> m ()
setCellRendererTextForegroundRgba :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> RGBA -> m ()
setCellRendererTextForegroundRgba o
obj RGBA
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"foreground-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
Just RGBA
val)
constructCellRendererTextForegroundRgba :: (IsCellRendererText o, MIO.MonadIO m) => Gdk.RGBA.RGBA -> m (GValueConstruct o)
constructCellRendererTextForegroundRgba :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
RGBA -> m (GValueConstruct o)
constructCellRendererTextForegroundRgba RGBA
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe RGBA -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"foreground-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
P.Just RGBA
val)
clearCellRendererTextForegroundRgba :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextForegroundRgba :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextForegroundRgba o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"foreground-rgba" (Maybe RGBA
forall a. Maybe a
Nothing :: Maybe Gdk.RGBA.RGBA)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextForegroundRgbaPropertyInfo
instance AttrInfo CellRendererTextForegroundRgbaPropertyInfo where
type AttrAllowedOps CellRendererTextForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferType CellRendererTextForegroundRgbaPropertyInfo = Gdk.RGBA.RGBA
type AttrGetType CellRendererTextForegroundRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel CellRendererTextForegroundRgbaPropertyInfo = "foreground-rgba"
type AttrOrigin CellRendererTextForegroundRgbaPropertyInfo = CellRendererText
attrGet = getCellRendererTextForegroundRgba
attrSet = setCellRendererTextForegroundRgba
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextForegroundRgba
attrClear = clearCellRendererTextForegroundRgba
#endif
getCellRendererTextForegroundSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextForegroundSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextForegroundSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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"
setCellRendererTextForegroundSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextForegroundSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextForegroundSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"foreground-set" Bool
val
constructCellRendererTextForegroundSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextForegroundSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextForegroundSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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 CellRendererTextForegroundSetPropertyInfo
instance AttrInfo CellRendererTextForegroundSetPropertyInfo where
type AttrAllowedOps CellRendererTextForegroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextForegroundSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextForegroundSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextForegroundSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextForegroundSetPropertyInfo = Bool
type AttrGetType CellRendererTextForegroundSetPropertyInfo = Bool
type AttrLabel CellRendererTextForegroundSetPropertyInfo = "foreground-set"
type AttrOrigin CellRendererTextForegroundSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextForegroundSet
attrSet = setCellRendererTextForegroundSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextForegroundSet
attrClear = undefined
#endif
getCellRendererTextLanguage :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe T.Text)
getCellRendererTextLanguage :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe Text)
getCellRendererTextLanguage o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"language"
setCellRendererTextLanguage :: (MonadIO m, IsCellRendererText o) => o -> T.Text -> m ()
setCellRendererTextLanguage :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Text -> m ()
setCellRendererTextLanguage o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"language" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCellRendererTextLanguage :: (IsCellRendererText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCellRendererTextLanguage :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCellRendererTextLanguage 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"language" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCellRendererTextLanguage :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextLanguage :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextLanguage o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"language" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextLanguagePropertyInfo
instance AttrInfo CellRendererTextLanguagePropertyInfo where
type AttrAllowedOps CellRendererTextLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextLanguagePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextLanguagePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CellRendererTextLanguagePropertyInfo = (~) T.Text
type AttrTransferType CellRendererTextLanguagePropertyInfo = T.Text
type AttrGetType CellRendererTextLanguagePropertyInfo = (Maybe T.Text)
type AttrLabel CellRendererTextLanguagePropertyInfo = "language"
type AttrOrigin CellRendererTextLanguagePropertyInfo = CellRendererText
attrGet = getCellRendererTextLanguage
attrSet = setCellRendererTextLanguage
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextLanguage
attrClear = clearCellRendererTextLanguage
#endif
getCellRendererTextLanguageSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextLanguageSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextLanguageSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"language-set"
setCellRendererTextLanguageSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextLanguageSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextLanguageSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"language-set" Bool
val
constructCellRendererTextLanguageSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextLanguageSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextLanguageSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"language-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextLanguageSetPropertyInfo
instance AttrInfo CellRendererTextLanguageSetPropertyInfo where
type AttrAllowedOps CellRendererTextLanguageSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextLanguageSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextLanguageSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextLanguageSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextLanguageSetPropertyInfo = Bool
type AttrGetType CellRendererTextLanguageSetPropertyInfo = Bool
type AttrLabel CellRendererTextLanguageSetPropertyInfo = "language-set"
type AttrOrigin CellRendererTextLanguageSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextLanguageSet
attrSet = setCellRendererTextLanguageSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextLanguageSet
attrClear = undefined
#endif
setCellRendererTextMarkup :: (MonadIO m, IsCellRendererText o) => o -> T.Text -> m ()
setCellRendererTextMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Text -> m ()
setCellRendererTextMarkup o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"markup" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCellRendererTextMarkup :: (IsCellRendererText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCellRendererTextMarkup :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCellRendererTextMarkup 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"markup" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCellRendererTextMarkup :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextMarkup o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"markup" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextMarkupPropertyInfo
instance AttrInfo CellRendererTextMarkupPropertyInfo where
type AttrAllowedOps CellRendererTextMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextMarkupPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextMarkupPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CellRendererTextMarkupPropertyInfo = (~) T.Text
type AttrTransferType CellRendererTextMarkupPropertyInfo = T.Text
type AttrGetType CellRendererTextMarkupPropertyInfo = ()
type AttrLabel CellRendererTextMarkupPropertyInfo = "markup"
type AttrOrigin CellRendererTextMarkupPropertyInfo = CellRendererText
attrGet = undefined
attrSet = setCellRendererTextMarkup
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextMarkup
attrClear = clearCellRendererTextMarkup
#endif
getCellRendererTextMaxWidthChars :: (MonadIO m, IsCellRendererText o) => o -> m Int32
getCellRendererTextMaxWidthChars :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Int32
getCellRendererTextMaxWidthChars o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"max-width-chars"
setCellRendererTextMaxWidthChars :: (MonadIO m, IsCellRendererText o) => o -> Int32 -> m ()
setCellRendererTextMaxWidthChars :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Int32 -> m ()
setCellRendererTextMaxWidthChars o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"max-width-chars" Int32
val
constructCellRendererTextMaxWidthChars :: (IsCellRendererText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCellRendererTextMaxWidthChars :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCellRendererTextMaxWidthChars Int32
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"max-width-chars" Int32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextMaxWidthCharsPropertyInfo
instance AttrInfo CellRendererTextMaxWidthCharsPropertyInfo where
type AttrAllowedOps CellRendererTextMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextMaxWidthCharsPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextMaxWidthCharsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CellRendererTextMaxWidthCharsPropertyInfo = (~) Int32
type AttrTransferType CellRendererTextMaxWidthCharsPropertyInfo = Int32
type AttrGetType CellRendererTextMaxWidthCharsPropertyInfo = Int32
type AttrLabel CellRendererTextMaxWidthCharsPropertyInfo = "max-width-chars"
type AttrOrigin CellRendererTextMaxWidthCharsPropertyInfo = CellRendererText
attrGet = getCellRendererTextMaxWidthChars
attrSet = setCellRendererTextMaxWidthChars
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextMaxWidthChars
attrClear = undefined
#endif
getCellRendererTextPlaceholderText :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe T.Text)
getCellRendererTextPlaceholderText :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe Text)
getCellRendererTextPlaceholderText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"placeholder-text"
setCellRendererTextPlaceholderText :: (MonadIO m, IsCellRendererText o) => o -> T.Text -> m ()
setCellRendererTextPlaceholderText :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Text -> m ()
setCellRendererTextPlaceholderText o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"placeholder-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCellRendererTextPlaceholderText :: (IsCellRendererText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCellRendererTextPlaceholderText :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCellRendererTextPlaceholderText 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"placeholder-text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCellRendererTextPlaceholderText :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextPlaceholderText :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextPlaceholderText o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"placeholder-text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextPlaceholderTextPropertyInfo
instance AttrInfo CellRendererTextPlaceholderTextPropertyInfo where
type AttrAllowedOps CellRendererTextPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = (~) T.Text
type AttrTransferType CellRendererTextPlaceholderTextPropertyInfo = T.Text
type AttrGetType CellRendererTextPlaceholderTextPropertyInfo = (Maybe T.Text)
type AttrLabel CellRendererTextPlaceholderTextPropertyInfo = "placeholder-text"
type AttrOrigin CellRendererTextPlaceholderTextPropertyInfo = CellRendererText
attrGet = getCellRendererTextPlaceholderText
attrSet = setCellRendererTextPlaceholderText
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextPlaceholderText
attrClear = clearCellRendererTextPlaceholderText
#endif
getCellRendererTextRise :: (MonadIO m, IsCellRendererText o) => o -> m Int32
getCellRendererTextRise :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Int32
getCellRendererTextRise o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"rise"
setCellRendererTextRise :: (MonadIO m, IsCellRendererText o) => o -> Int32 -> m ()
setCellRendererTextRise :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Int32 -> m ()
setCellRendererTextRise o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"rise" Int32
val
constructCellRendererTextRise :: (IsCellRendererText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCellRendererTextRise :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCellRendererTextRise Int32
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"rise" Int32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextRisePropertyInfo
instance AttrInfo CellRendererTextRisePropertyInfo where
type AttrAllowedOps CellRendererTextRisePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextRisePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextRisePropertyInfo = (~) Int32
type AttrTransferTypeConstraint CellRendererTextRisePropertyInfo = (~) Int32
type AttrTransferType CellRendererTextRisePropertyInfo = Int32
type AttrGetType CellRendererTextRisePropertyInfo = Int32
type AttrLabel CellRendererTextRisePropertyInfo = "rise"
type AttrOrigin CellRendererTextRisePropertyInfo = CellRendererText
attrGet = getCellRendererTextRise
attrSet = setCellRendererTextRise
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextRise
attrClear = undefined
#endif
getCellRendererTextRiseSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextRiseSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextRiseSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"rise-set"
setCellRendererTextRiseSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextRiseSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextRiseSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"rise-set" Bool
val
constructCellRendererTextRiseSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextRiseSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextRiseSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"rise-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextRiseSetPropertyInfo
instance AttrInfo CellRendererTextRiseSetPropertyInfo where
type AttrAllowedOps CellRendererTextRiseSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextRiseSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextRiseSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextRiseSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextRiseSetPropertyInfo = Bool
type AttrGetType CellRendererTextRiseSetPropertyInfo = Bool
type AttrLabel CellRendererTextRiseSetPropertyInfo = "rise-set"
type AttrOrigin CellRendererTextRiseSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextRiseSet
attrSet = setCellRendererTextRiseSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextRiseSet
attrClear = undefined
#endif
getCellRendererTextScale :: (MonadIO m, IsCellRendererText o) => o -> m Double
getCellRendererTextScale :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Double
getCellRendererTextScale o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"scale"
setCellRendererTextScale :: (MonadIO m, IsCellRendererText o) => o -> Double -> m ()
setCellRendererTextScale :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Double -> m ()
setCellRendererTextScale o
obj Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"scale" Double
val
constructCellRendererTextScale :: (IsCellRendererText o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructCellRendererTextScale :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructCellRendererTextScale Double
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"scale" Double
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextScalePropertyInfo
instance AttrInfo CellRendererTextScalePropertyInfo where
type AttrAllowedOps CellRendererTextScalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextScalePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextScalePropertyInfo = (~) Double
type AttrTransferTypeConstraint CellRendererTextScalePropertyInfo = (~) Double
type AttrTransferType CellRendererTextScalePropertyInfo = Double
type AttrGetType CellRendererTextScalePropertyInfo = Double
type AttrLabel CellRendererTextScalePropertyInfo = "scale"
type AttrOrigin CellRendererTextScalePropertyInfo = CellRendererText
attrGet = getCellRendererTextScale
attrSet = setCellRendererTextScale
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextScale
attrClear = undefined
#endif
getCellRendererTextScaleSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextScaleSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextScaleSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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"
setCellRendererTextScaleSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextScaleSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextScaleSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"scale-set" Bool
val
constructCellRendererTextScaleSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextScaleSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextScaleSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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 CellRendererTextScaleSetPropertyInfo
instance AttrInfo CellRendererTextScaleSetPropertyInfo where
type AttrAllowedOps CellRendererTextScaleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextScaleSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextScaleSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextScaleSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextScaleSetPropertyInfo = Bool
type AttrGetType CellRendererTextScaleSetPropertyInfo = Bool
type AttrLabel CellRendererTextScaleSetPropertyInfo = "scale-set"
type AttrOrigin CellRendererTextScaleSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextScaleSet
attrSet = setCellRendererTextScaleSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextScaleSet
attrClear = undefined
#endif
getCellRendererTextSingleParagraphMode :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextSingleParagraphMode :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextSingleParagraphMode o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"single-paragraph-mode"
setCellRendererTextSingleParagraphMode :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextSingleParagraphMode :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextSingleParagraphMode o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"single-paragraph-mode" Bool
val
constructCellRendererTextSingleParagraphMode :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextSingleParagraphMode :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextSingleParagraphMode 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"single-paragraph-mode" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextSingleParagraphModePropertyInfo
instance AttrInfo CellRendererTextSingleParagraphModePropertyInfo where
type AttrAllowedOps CellRendererTextSingleParagraphModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextSingleParagraphModePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextSingleParagraphModePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextSingleParagraphModePropertyInfo = (~) Bool
type AttrTransferType CellRendererTextSingleParagraphModePropertyInfo = Bool
type AttrGetType CellRendererTextSingleParagraphModePropertyInfo = Bool
type AttrLabel CellRendererTextSingleParagraphModePropertyInfo = "single-paragraph-mode"
type AttrOrigin CellRendererTextSingleParagraphModePropertyInfo = CellRendererText
attrGet = getCellRendererTextSingleParagraphMode
attrSet = setCellRendererTextSingleParagraphMode
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextSingleParagraphMode
attrClear = undefined
#endif
getCellRendererTextSize :: (MonadIO m, IsCellRendererText o) => o -> m Int32
getCellRendererTextSize :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Int32
getCellRendererTextSize o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"size"
setCellRendererTextSize :: (MonadIO m, IsCellRendererText o) => o -> Int32 -> m ()
setCellRendererTextSize :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Int32 -> m ()
setCellRendererTextSize o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"size" Int32
val
constructCellRendererTextSize :: (IsCellRendererText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCellRendererTextSize :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCellRendererTextSize Int32
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"size" Int32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextSizePropertyInfo
instance AttrInfo CellRendererTextSizePropertyInfo where
type AttrAllowedOps CellRendererTextSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextSizePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextSizePropertyInfo = (~) Int32
type AttrTransferTypeConstraint CellRendererTextSizePropertyInfo = (~) Int32
type AttrTransferType CellRendererTextSizePropertyInfo = Int32
type AttrGetType CellRendererTextSizePropertyInfo = Int32
type AttrLabel CellRendererTextSizePropertyInfo = "size"
type AttrOrigin CellRendererTextSizePropertyInfo = CellRendererText
attrGet = getCellRendererTextSize
attrSet = setCellRendererTextSize
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextSize
attrClear = undefined
#endif
getCellRendererTextSizePoints :: (MonadIO m, IsCellRendererText o) => o -> m Double
getCellRendererTextSizePoints :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Double
getCellRendererTextSizePoints o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"size-points"
setCellRendererTextSizePoints :: (MonadIO m, IsCellRendererText o) => o -> Double -> m ()
setCellRendererTextSizePoints :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Double -> m ()
setCellRendererTextSizePoints o
obj Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"size-points" Double
val
constructCellRendererTextSizePoints :: (IsCellRendererText o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructCellRendererTextSizePoints :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructCellRendererTextSizePoints Double
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"size-points" Double
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextSizePointsPropertyInfo
instance AttrInfo CellRendererTextSizePointsPropertyInfo where
type AttrAllowedOps CellRendererTextSizePointsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextSizePointsPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextSizePointsPropertyInfo = (~) Double
type AttrTransferTypeConstraint CellRendererTextSizePointsPropertyInfo = (~) Double
type AttrTransferType CellRendererTextSizePointsPropertyInfo = Double
type AttrGetType CellRendererTextSizePointsPropertyInfo = Double
type AttrLabel CellRendererTextSizePointsPropertyInfo = "size-points"
type AttrOrigin CellRendererTextSizePointsPropertyInfo = CellRendererText
attrGet = getCellRendererTextSizePoints
attrSet = setCellRendererTextSizePoints
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextSizePoints
attrClear = undefined
#endif
getCellRendererTextSizeSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextSizeSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextSizeSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"size-set"
setCellRendererTextSizeSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextSizeSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextSizeSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"size-set" Bool
val
constructCellRendererTextSizeSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextSizeSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextSizeSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"size-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextSizeSetPropertyInfo
instance AttrInfo CellRendererTextSizeSetPropertyInfo where
type AttrAllowedOps CellRendererTextSizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextSizeSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextSizeSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextSizeSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextSizeSetPropertyInfo = Bool
type AttrGetType CellRendererTextSizeSetPropertyInfo = Bool
type AttrLabel CellRendererTextSizeSetPropertyInfo = "size-set"
type AttrOrigin CellRendererTextSizeSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextSizeSet
attrSet = setCellRendererTextSizeSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextSizeSet
attrClear = undefined
#endif
getCellRendererTextStretch :: (MonadIO m, IsCellRendererText o) => o -> m Pango.Enums.Stretch
getCellRendererTextStretch :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Stretch
getCellRendererTextStretch o
obj = IO Stretch -> m Stretch
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Stretch -> m Stretch) -> IO Stretch -> m Stretch
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Stretch
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"stretch"
setCellRendererTextStretch :: (MonadIO m, IsCellRendererText o) => o -> Pango.Enums.Stretch -> m ()
setCellRendererTextStretch :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Stretch -> m ()
setCellRendererTextStretch o
obj Stretch
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Stretch -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"stretch" Stretch
val
constructCellRendererTextStretch :: (IsCellRendererText o, MIO.MonadIO m) => Pango.Enums.Stretch -> m (GValueConstruct o)
constructCellRendererTextStretch :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Stretch -> m (GValueConstruct o)
constructCellRendererTextStretch Stretch
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Stretch -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"stretch" Stretch
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextStretchPropertyInfo
instance AttrInfo CellRendererTextStretchPropertyInfo where
type AttrAllowedOps CellRendererTextStretchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextStretchPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextStretchPropertyInfo = (~) Pango.Enums.Stretch
type AttrTransferTypeConstraint CellRendererTextStretchPropertyInfo = (~) Pango.Enums.Stretch
type AttrTransferType CellRendererTextStretchPropertyInfo = Pango.Enums.Stretch
type AttrGetType CellRendererTextStretchPropertyInfo = Pango.Enums.Stretch
type AttrLabel CellRendererTextStretchPropertyInfo = "stretch"
type AttrOrigin CellRendererTextStretchPropertyInfo = CellRendererText
attrGet = getCellRendererTextStretch
attrSet = setCellRendererTextStretch
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextStretch
attrClear = undefined
#endif
getCellRendererTextStretchSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextStretchSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextStretchSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"stretch-set"
setCellRendererTextStretchSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextStretchSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextStretchSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"stretch-set" Bool
val
constructCellRendererTextStretchSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextStretchSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextStretchSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"stretch-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextStretchSetPropertyInfo
instance AttrInfo CellRendererTextStretchSetPropertyInfo where
type AttrAllowedOps CellRendererTextStretchSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextStretchSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextStretchSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextStretchSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextStretchSetPropertyInfo = Bool
type AttrGetType CellRendererTextStretchSetPropertyInfo = Bool
type AttrLabel CellRendererTextStretchSetPropertyInfo = "stretch-set"
type AttrOrigin CellRendererTextStretchSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextStretchSet
attrSet = setCellRendererTextStretchSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextStretchSet
attrClear = undefined
#endif
getCellRendererTextStrikethrough :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextStrikethrough :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextStrikethrough o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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"
setCellRendererTextStrikethrough :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextStrikethrough :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextStrikethrough o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"strikethrough" Bool
val
constructCellRendererTextStrikethrough :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextStrikethrough :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextStrikethrough 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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 CellRendererTextStrikethroughPropertyInfo
instance AttrInfo CellRendererTextStrikethroughPropertyInfo where
type AttrAllowedOps CellRendererTextStrikethroughPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextStrikethroughPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextStrikethroughPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextStrikethroughPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextStrikethroughPropertyInfo = Bool
type AttrGetType CellRendererTextStrikethroughPropertyInfo = Bool
type AttrLabel CellRendererTextStrikethroughPropertyInfo = "strikethrough"
type AttrOrigin CellRendererTextStrikethroughPropertyInfo = CellRendererText
attrGet = getCellRendererTextStrikethrough
attrSet = setCellRendererTextStrikethrough
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextStrikethrough
attrClear = undefined
#endif
getCellRendererTextStrikethroughSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextStrikethroughSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextStrikethroughSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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"
setCellRendererTextStrikethroughSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextStrikethroughSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextStrikethroughSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"strikethrough-set" Bool
val
constructCellRendererTextStrikethroughSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextStrikethroughSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextStrikethroughSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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 CellRendererTextStrikethroughSetPropertyInfo
instance AttrInfo CellRendererTextStrikethroughSetPropertyInfo where
type AttrAllowedOps CellRendererTextStrikethroughSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextStrikethroughSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextStrikethroughSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextStrikethroughSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextStrikethroughSetPropertyInfo = Bool
type AttrGetType CellRendererTextStrikethroughSetPropertyInfo = Bool
type AttrLabel CellRendererTextStrikethroughSetPropertyInfo = "strikethrough-set"
type AttrOrigin CellRendererTextStrikethroughSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextStrikethroughSet
attrSet = setCellRendererTextStrikethroughSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextStrikethroughSet
attrClear = undefined
#endif
getCellRendererTextStyle :: (MonadIO m, IsCellRendererText o) => o -> m Pango.Enums.Style
getCellRendererTextStyle :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Style
getCellRendererTextStyle o
obj = IO Style -> m Style
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Style -> m Style) -> IO Style -> m Style
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Style
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"style"
setCellRendererTextStyle :: (MonadIO m, IsCellRendererText o) => o -> Pango.Enums.Style -> m ()
setCellRendererTextStyle :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Style -> m ()
setCellRendererTextStyle o
obj Style
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Style -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"style" Style
val
constructCellRendererTextStyle :: (IsCellRendererText o, MIO.MonadIO m) => Pango.Enums.Style -> m (GValueConstruct o)
constructCellRendererTextStyle :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Style -> m (GValueConstruct o)
constructCellRendererTextStyle Style
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Style -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"style" Style
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextStylePropertyInfo
instance AttrInfo CellRendererTextStylePropertyInfo where
type AttrAllowedOps CellRendererTextStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextStylePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextStylePropertyInfo = (~) Pango.Enums.Style
type AttrTransferTypeConstraint CellRendererTextStylePropertyInfo = (~) Pango.Enums.Style
type AttrTransferType CellRendererTextStylePropertyInfo = Pango.Enums.Style
type AttrGetType CellRendererTextStylePropertyInfo = Pango.Enums.Style
type AttrLabel CellRendererTextStylePropertyInfo = "style"
type AttrOrigin CellRendererTextStylePropertyInfo = CellRendererText
attrGet = getCellRendererTextStyle
attrSet = setCellRendererTextStyle
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextStyle
attrClear = undefined
#endif
getCellRendererTextStyleSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextStyleSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextStyleSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"style-set"
setCellRendererTextStyleSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextStyleSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextStyleSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"style-set" Bool
val
constructCellRendererTextStyleSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextStyleSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextStyleSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"style-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextStyleSetPropertyInfo
instance AttrInfo CellRendererTextStyleSetPropertyInfo where
type AttrAllowedOps CellRendererTextStyleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextStyleSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextStyleSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextStyleSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextStyleSetPropertyInfo = Bool
type AttrGetType CellRendererTextStyleSetPropertyInfo = Bool
type AttrLabel CellRendererTextStyleSetPropertyInfo = "style-set"
type AttrOrigin CellRendererTextStyleSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextStyleSet
attrSet = setCellRendererTextStyleSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextStyleSet
attrClear = undefined
#endif
getCellRendererTextText :: (MonadIO m, IsCellRendererText o) => o -> m (Maybe T.Text)
getCellRendererTextText :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m (Maybe Text)
getCellRendererTextText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"text"
setCellRendererTextText :: (MonadIO m, IsCellRendererText o) => o -> T.Text -> m ()
setCellRendererTextText :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Text -> m ()
setCellRendererTextText o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCellRendererTextText :: (IsCellRendererText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCellRendererTextText :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCellRendererTextText 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCellRendererTextText :: (MonadIO m, IsCellRendererText o) => o -> m ()
clearCellRendererTextText :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m ()
clearCellRendererTextText o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CellRendererTextTextPropertyInfo
instance AttrInfo CellRendererTextTextPropertyInfo where
type AttrAllowedOps CellRendererTextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererTextTextPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CellRendererTextTextPropertyInfo = (~) T.Text
type AttrTransferType CellRendererTextTextPropertyInfo = T.Text
type AttrGetType CellRendererTextTextPropertyInfo = (Maybe T.Text)
type AttrLabel CellRendererTextTextPropertyInfo = "text"
type AttrOrigin CellRendererTextTextPropertyInfo = CellRendererText
attrGet = getCellRendererTextText
attrSet = setCellRendererTextText
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextText
attrClear = clearCellRendererTextText
#endif
getCellRendererTextUnderline :: (MonadIO m, IsCellRendererText o) => o -> m Pango.Enums.Underline
getCellRendererTextUnderline :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Underline
getCellRendererTextUnderline o
obj = IO Underline -> m Underline
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"underline"
setCellRendererTextUnderline :: (MonadIO m, IsCellRendererText o) => o -> Pango.Enums.Underline -> m ()
setCellRendererTextUnderline :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Underline -> m ()
setCellRendererTextUnderline o
obj Underline
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Underline -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"underline" Underline
val
constructCellRendererTextUnderline :: (IsCellRendererText o, MIO.MonadIO m) => Pango.Enums.Underline -> m (GValueConstruct o)
constructCellRendererTextUnderline :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Underline -> m (GValueConstruct o)
constructCellRendererTextUnderline 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"underline" Underline
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextUnderlinePropertyInfo
instance AttrInfo CellRendererTextUnderlinePropertyInfo where
type AttrAllowedOps CellRendererTextUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextUnderlinePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextUnderlinePropertyInfo = (~) Pango.Enums.Underline
type AttrTransferTypeConstraint CellRendererTextUnderlinePropertyInfo = (~) Pango.Enums.Underline
type AttrTransferType CellRendererTextUnderlinePropertyInfo = Pango.Enums.Underline
type AttrGetType CellRendererTextUnderlinePropertyInfo = Pango.Enums.Underline
type AttrLabel CellRendererTextUnderlinePropertyInfo = "underline"
type AttrOrigin CellRendererTextUnderlinePropertyInfo = CellRendererText
attrGet = getCellRendererTextUnderline
attrSet = setCellRendererTextUnderline
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextUnderline
attrClear = undefined
#endif
getCellRendererTextUnderlineSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextUnderlineSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextUnderlineSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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"
setCellRendererTextUnderlineSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextUnderlineSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextUnderlineSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"underline-set" Bool
val
constructCellRendererTextUnderlineSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextUnderlineSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextUnderlineSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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 CellRendererTextUnderlineSetPropertyInfo
instance AttrInfo CellRendererTextUnderlineSetPropertyInfo where
type AttrAllowedOps CellRendererTextUnderlineSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextUnderlineSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextUnderlineSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextUnderlineSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextUnderlineSetPropertyInfo = Bool
type AttrGetType CellRendererTextUnderlineSetPropertyInfo = Bool
type AttrLabel CellRendererTextUnderlineSetPropertyInfo = "underline-set"
type AttrOrigin CellRendererTextUnderlineSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextUnderlineSet
attrSet = setCellRendererTextUnderlineSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextUnderlineSet
attrClear = undefined
#endif
getCellRendererTextVariant :: (MonadIO m, IsCellRendererText o) => o -> m Pango.Enums.Variant
getCellRendererTextVariant :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Variant
getCellRendererTextVariant o
obj = IO Variant -> m Variant
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Variant -> m Variant) -> IO Variant -> m Variant
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Variant
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"variant"
setCellRendererTextVariant :: (MonadIO m, IsCellRendererText o) => o -> Pango.Enums.Variant -> m ()
setCellRendererTextVariant :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Variant -> m ()
setCellRendererTextVariant o
obj Variant
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Variant -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"variant" Variant
val
constructCellRendererTextVariant :: (IsCellRendererText o, MIO.MonadIO m) => Pango.Enums.Variant -> m (GValueConstruct o)
constructCellRendererTextVariant :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Variant -> m (GValueConstruct o)
constructCellRendererTextVariant Variant
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Variant -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"variant" Variant
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextVariantPropertyInfo
instance AttrInfo CellRendererTextVariantPropertyInfo where
type AttrAllowedOps CellRendererTextVariantPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextVariantPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextVariantPropertyInfo = (~) Pango.Enums.Variant
type AttrTransferTypeConstraint CellRendererTextVariantPropertyInfo = (~) Pango.Enums.Variant
type AttrTransferType CellRendererTextVariantPropertyInfo = Pango.Enums.Variant
type AttrGetType CellRendererTextVariantPropertyInfo = Pango.Enums.Variant
type AttrLabel CellRendererTextVariantPropertyInfo = "variant"
type AttrOrigin CellRendererTextVariantPropertyInfo = CellRendererText
attrGet = getCellRendererTextVariant
attrSet = setCellRendererTextVariant
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextVariant
attrClear = undefined
#endif
getCellRendererTextVariantSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextVariantSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextVariantSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"variant-set"
setCellRendererTextVariantSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextVariantSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextVariantSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"variant-set" Bool
val
constructCellRendererTextVariantSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextVariantSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextVariantSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"variant-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextVariantSetPropertyInfo
instance AttrInfo CellRendererTextVariantSetPropertyInfo where
type AttrAllowedOps CellRendererTextVariantSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextVariantSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextVariantSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextVariantSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextVariantSetPropertyInfo = Bool
type AttrGetType CellRendererTextVariantSetPropertyInfo = Bool
type AttrLabel CellRendererTextVariantSetPropertyInfo = "variant-set"
type AttrOrigin CellRendererTextVariantSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextVariantSet
attrSet = setCellRendererTextVariantSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextVariantSet
attrClear = undefined
#endif
getCellRendererTextWeight :: (MonadIO m, IsCellRendererText o) => o -> m Int32
getCellRendererTextWeight :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Int32
getCellRendererTextWeight o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"weight"
setCellRendererTextWeight :: (MonadIO m, IsCellRendererText o) => o -> Int32 -> m ()
setCellRendererTextWeight :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Int32 -> m ()
setCellRendererTextWeight o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"weight" Int32
val
constructCellRendererTextWeight :: (IsCellRendererText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCellRendererTextWeight :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCellRendererTextWeight Int32
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"weight" Int32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextWeightPropertyInfo
instance AttrInfo CellRendererTextWeightPropertyInfo where
type AttrAllowedOps CellRendererTextWeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextWeightPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextWeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CellRendererTextWeightPropertyInfo = (~) Int32
type AttrTransferType CellRendererTextWeightPropertyInfo = Int32
type AttrGetType CellRendererTextWeightPropertyInfo = Int32
type AttrLabel CellRendererTextWeightPropertyInfo = "weight"
type AttrOrigin CellRendererTextWeightPropertyInfo = CellRendererText
attrGet = getCellRendererTextWeight
attrSet = setCellRendererTextWeight
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextWeight
attrClear = undefined
#endif
getCellRendererTextWeightSet :: (MonadIO m, IsCellRendererText o) => o -> m Bool
getCellRendererTextWeightSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Bool
getCellRendererTextWeightSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"weight-set"
setCellRendererTextWeightSet :: (MonadIO m, IsCellRendererText o) => o -> Bool -> m ()
setCellRendererTextWeightSet :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Bool -> m ()
setCellRendererTextWeightSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"weight-set" Bool
val
constructCellRendererTextWeightSet :: (IsCellRendererText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererTextWeightSet :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererTextWeightSet 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"weight-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextWeightSetPropertyInfo
instance AttrInfo CellRendererTextWeightSetPropertyInfo where
type AttrAllowedOps CellRendererTextWeightSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextWeightSetPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextWeightSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererTextWeightSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererTextWeightSetPropertyInfo = Bool
type AttrGetType CellRendererTextWeightSetPropertyInfo = Bool
type AttrLabel CellRendererTextWeightSetPropertyInfo = "weight-set"
type AttrOrigin CellRendererTextWeightSetPropertyInfo = CellRendererText
attrGet = getCellRendererTextWeightSet
attrSet = setCellRendererTextWeightSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextWeightSet
attrClear = undefined
#endif
getCellRendererTextWidthChars :: (MonadIO m, IsCellRendererText o) => o -> m Int32
getCellRendererTextWidthChars :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Int32
getCellRendererTextWidthChars o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"width-chars"
setCellRendererTextWidthChars :: (MonadIO m, IsCellRendererText o) => o -> Int32 -> m ()
setCellRendererTextWidthChars :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Int32 -> m ()
setCellRendererTextWidthChars o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"width-chars" Int32
val
constructCellRendererTextWidthChars :: (IsCellRendererText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCellRendererTextWidthChars :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCellRendererTextWidthChars Int32
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"width-chars" Int32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextWidthCharsPropertyInfo
instance AttrInfo CellRendererTextWidthCharsPropertyInfo where
type AttrAllowedOps CellRendererTextWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextWidthCharsPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextWidthCharsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CellRendererTextWidthCharsPropertyInfo = (~) Int32
type AttrTransferType CellRendererTextWidthCharsPropertyInfo = Int32
type AttrGetType CellRendererTextWidthCharsPropertyInfo = Int32
type AttrLabel CellRendererTextWidthCharsPropertyInfo = "width-chars"
type AttrOrigin CellRendererTextWidthCharsPropertyInfo = CellRendererText
attrGet = getCellRendererTextWidthChars
attrSet = setCellRendererTextWidthChars
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextWidthChars
attrClear = undefined
#endif
getCellRendererTextWrapMode :: (MonadIO m, IsCellRendererText o) => o -> m Pango.Enums.WrapMode
getCellRendererTextWrapMode :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m WrapMode
getCellRendererTextWrapMode o
obj = IO WrapMode -> m WrapMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WrapMode -> m WrapMode) -> IO WrapMode -> m WrapMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO WrapMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"wrap-mode"
setCellRendererTextWrapMode :: (MonadIO m, IsCellRendererText o) => o -> Pango.Enums.WrapMode -> m ()
setCellRendererTextWrapMode :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> WrapMode -> m ()
setCellRendererTextWrapMode o
obj WrapMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> WrapMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"wrap-mode" WrapMode
val
constructCellRendererTextWrapMode :: (IsCellRendererText o, MIO.MonadIO m) => Pango.Enums.WrapMode -> m (GValueConstruct o)
constructCellRendererTextWrapMode :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
WrapMode -> m (GValueConstruct o)
constructCellRendererTextWrapMode WrapMode
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> WrapMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"wrap-mode" WrapMode
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextWrapModePropertyInfo
instance AttrInfo CellRendererTextWrapModePropertyInfo where
type AttrAllowedOps CellRendererTextWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextWrapModePropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextWrapModePropertyInfo = (~) Pango.Enums.WrapMode
type AttrTransferTypeConstraint CellRendererTextWrapModePropertyInfo = (~) Pango.Enums.WrapMode
type AttrTransferType CellRendererTextWrapModePropertyInfo = Pango.Enums.WrapMode
type AttrGetType CellRendererTextWrapModePropertyInfo = Pango.Enums.WrapMode
type AttrLabel CellRendererTextWrapModePropertyInfo = "wrap-mode"
type AttrOrigin CellRendererTextWrapModePropertyInfo = CellRendererText
attrGet = getCellRendererTextWrapMode
attrSet = setCellRendererTextWrapMode
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextWrapMode
attrClear = undefined
#endif
getCellRendererTextWrapWidth :: (MonadIO m, IsCellRendererText o) => o -> m Int32
getCellRendererTextWrapWidth :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> m Int32
getCellRendererTextWrapWidth o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"wrap-width"
setCellRendererTextWrapWidth :: (MonadIO m, IsCellRendererText o) => o -> Int32 -> m ()
setCellRendererTextWrapWidth :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererText o) =>
o -> Int32 -> m ()
setCellRendererTextWrapWidth o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"wrap-width" Int32
val
constructCellRendererTextWrapWidth :: (IsCellRendererText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCellRendererTextWrapWidth :: forall o (m :: * -> *).
(IsCellRendererText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCellRendererTextWrapWidth Int32
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"wrap-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererTextWrapWidthPropertyInfo
instance AttrInfo CellRendererTextWrapWidthPropertyInfo where
type AttrAllowedOps CellRendererTextWrapWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererTextWrapWidthPropertyInfo = IsCellRendererText
type AttrSetTypeConstraint CellRendererTextWrapWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CellRendererTextWrapWidthPropertyInfo = (~) Int32
type AttrTransferType CellRendererTextWrapWidthPropertyInfo = Int32
type AttrGetType CellRendererTextWrapWidthPropertyInfo = Int32
type AttrLabel CellRendererTextWrapWidthPropertyInfo = "wrap-width"
type AttrOrigin CellRendererTextWrapWidthPropertyInfo = CellRendererText
attrGet = getCellRendererTextWrapWidth
attrSet = setCellRendererTextWrapWidth
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererTextWrapWidth
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CellRendererText
type instance O.AttributeList CellRendererText = CellRendererTextAttributeList
type CellRendererTextAttributeList = ('[ '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", Gtk.CellRenderer.CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", Gtk.CellRenderer.CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", Gtk.CellRenderer.CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", Gtk.CellRenderer.CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", Gtk.CellRenderer.CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", Gtk.CellRenderer.CellRendererHeightPropertyInfo), '("isExpanded", Gtk.CellRenderer.CellRendererIsExpandedPropertyInfo), '("isExpander", Gtk.CellRenderer.CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", Gtk.CellRenderer.CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", Gtk.CellRenderer.CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", Gtk.CellRenderer.CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", Gtk.CellRenderer.CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", Gtk.CellRenderer.CellRendererXalignPropertyInfo), '("xpad", Gtk.CellRenderer.CellRendererXpadPropertyInfo), '("yalign", Gtk.CellRenderer.CellRendererYalignPropertyInfo), '("ypad", Gtk.CellRenderer.CellRendererYpadPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererTextAlignSet :: AttrLabelProxy "alignSet"
cellRendererTextAlignSet = AttrLabelProxy
cellRendererTextAlignment :: AttrLabelProxy "alignment"
cellRendererTextAlignment = AttrLabelProxy
cellRendererTextAttributes :: AttrLabelProxy "attributes"
cellRendererTextAttributes = AttrLabelProxy
cellRendererTextBackground :: AttrLabelProxy "background"
cellRendererTextBackground = AttrLabelProxy
cellRendererTextBackgroundGdk :: AttrLabelProxy "backgroundGdk"
cellRendererTextBackgroundGdk = AttrLabelProxy
cellRendererTextBackgroundRgba :: AttrLabelProxy "backgroundRgba"
cellRendererTextBackgroundRgba = AttrLabelProxy
cellRendererTextBackgroundSet :: AttrLabelProxy "backgroundSet"
cellRendererTextBackgroundSet = AttrLabelProxy
cellRendererTextEditable :: AttrLabelProxy "editable"
cellRendererTextEditable = AttrLabelProxy
cellRendererTextEditableSet :: AttrLabelProxy "editableSet"
cellRendererTextEditableSet = AttrLabelProxy
cellRendererTextEllipsize :: AttrLabelProxy "ellipsize"
cellRendererTextEllipsize = AttrLabelProxy
cellRendererTextEllipsizeSet :: AttrLabelProxy "ellipsizeSet"
cellRendererTextEllipsizeSet = AttrLabelProxy
cellRendererTextFamily :: AttrLabelProxy "family"
cellRendererTextFamily = AttrLabelProxy
cellRendererTextFamilySet :: AttrLabelProxy "familySet"
cellRendererTextFamilySet = AttrLabelProxy
cellRendererTextFont :: AttrLabelProxy "font"
cellRendererTextFont = AttrLabelProxy
cellRendererTextFontDesc :: AttrLabelProxy "fontDesc"
cellRendererTextFontDesc = AttrLabelProxy
cellRendererTextForeground :: AttrLabelProxy "foreground"
cellRendererTextForeground = AttrLabelProxy
cellRendererTextForegroundGdk :: AttrLabelProxy "foregroundGdk"
cellRendererTextForegroundGdk = AttrLabelProxy
cellRendererTextForegroundRgba :: AttrLabelProxy "foregroundRgba"
cellRendererTextForegroundRgba = AttrLabelProxy
cellRendererTextForegroundSet :: AttrLabelProxy "foregroundSet"
cellRendererTextForegroundSet = AttrLabelProxy
cellRendererTextLanguage :: AttrLabelProxy "language"
cellRendererTextLanguage = AttrLabelProxy
cellRendererTextLanguageSet :: AttrLabelProxy "languageSet"
cellRendererTextLanguageSet = AttrLabelProxy
cellRendererTextMarkup :: AttrLabelProxy "markup"
cellRendererTextMarkup = AttrLabelProxy
cellRendererTextMaxWidthChars :: AttrLabelProxy "maxWidthChars"
cellRendererTextMaxWidthChars = AttrLabelProxy
cellRendererTextPlaceholderText :: AttrLabelProxy "placeholderText"
cellRendererTextPlaceholderText = AttrLabelProxy
cellRendererTextRise :: AttrLabelProxy "rise"
cellRendererTextRise = AttrLabelProxy
cellRendererTextRiseSet :: AttrLabelProxy "riseSet"
cellRendererTextRiseSet = AttrLabelProxy
cellRendererTextScale :: AttrLabelProxy "scale"
cellRendererTextScale = AttrLabelProxy
cellRendererTextScaleSet :: AttrLabelProxy "scaleSet"
cellRendererTextScaleSet = AttrLabelProxy
cellRendererTextSingleParagraphMode :: AttrLabelProxy "singleParagraphMode"
cellRendererTextSingleParagraphMode = AttrLabelProxy
cellRendererTextSize :: AttrLabelProxy "size"
cellRendererTextSize = AttrLabelProxy
cellRendererTextSizePoints :: AttrLabelProxy "sizePoints"
cellRendererTextSizePoints = AttrLabelProxy
cellRendererTextSizeSet :: AttrLabelProxy "sizeSet"
cellRendererTextSizeSet = AttrLabelProxy
cellRendererTextStretch :: AttrLabelProxy "stretch"
cellRendererTextStretch = AttrLabelProxy
cellRendererTextStretchSet :: AttrLabelProxy "stretchSet"
cellRendererTextStretchSet = AttrLabelProxy
cellRendererTextStrikethrough :: AttrLabelProxy "strikethrough"
cellRendererTextStrikethrough = AttrLabelProxy
cellRendererTextStrikethroughSet :: AttrLabelProxy "strikethroughSet"
cellRendererTextStrikethroughSet = AttrLabelProxy
cellRendererTextStyle :: AttrLabelProxy "style"
cellRendererTextStyle = AttrLabelProxy
cellRendererTextStyleSet :: AttrLabelProxy "styleSet"
cellRendererTextStyleSet = AttrLabelProxy
cellRendererTextText :: AttrLabelProxy "text"
cellRendererTextText = AttrLabelProxy
cellRendererTextUnderline :: AttrLabelProxy "underline"
cellRendererTextUnderline = AttrLabelProxy
cellRendererTextUnderlineSet :: AttrLabelProxy "underlineSet"
cellRendererTextUnderlineSet = AttrLabelProxy
cellRendererTextVariant :: AttrLabelProxy "variant"
cellRendererTextVariant = AttrLabelProxy
cellRendererTextVariantSet :: AttrLabelProxy "variantSet"
cellRendererTextVariantSet = AttrLabelProxy
cellRendererTextWeight :: AttrLabelProxy "weight"
cellRendererTextWeight = AttrLabelProxy
cellRendererTextWeightSet :: AttrLabelProxy "weightSet"
cellRendererTextWeightSet = AttrLabelProxy
cellRendererTextWidthChars :: AttrLabelProxy "widthChars"
cellRendererTextWidthChars = AttrLabelProxy
cellRendererTextWrapMode :: AttrLabelProxy "wrapMode"
cellRendererTextWrapMode = AttrLabelProxy
cellRendererTextWrapWidth :: AttrLabelProxy "wrapWidth"
cellRendererTextWrapWidth = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CellRendererText = CellRendererTextSignalList
type CellRendererTextSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", Gtk.CellRenderer.CellRendererEditingCanceledSignalInfo), '("editingStarted", Gtk.CellRenderer.CellRendererEditingStartedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_cell_renderer_text_new" gtk_cell_renderer_text_new ::
IO (Ptr CellRendererText)
cellRendererTextNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CellRendererText
cellRendererTextNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m CellRendererText
cellRendererTextNew = IO CellRendererText -> m CellRendererText
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellRendererText -> m CellRendererText)
-> IO CellRendererText -> m CellRendererText
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererText
result <- IO (Ptr CellRendererText)
gtk_cell_renderer_text_new
Text -> Ptr CellRendererText -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellRendererTextNew" Ptr CellRendererText
result
CellRendererText
result' <- ((ManagedPtr CellRendererText -> CellRendererText)
-> Ptr CellRendererText -> IO CellRendererText
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRendererText -> CellRendererText
CellRendererText) Ptr CellRendererText
result
CellRendererText -> IO CellRendererText
forall (m :: * -> *) a. Monad m => a -> m a
return CellRendererText
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_cell_renderer_text_set_fixed_height_from_font" gtk_cell_renderer_text_set_fixed_height_from_font ::
Ptr CellRendererText ->
Int32 ->
IO ()
cellRendererTextSetFixedHeightFromFont ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRendererText a) =>
a
-> Int32
-> m ()
cellRendererTextSetFixedHeightFromFont :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellRendererText a) =>
a -> Int32 -> m ()
cellRendererTextSetFixedHeightFromFont a
renderer Int32
numberOfRows = 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 CellRendererText
renderer' <- a -> IO (Ptr CellRendererText)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr CellRendererText -> Int32 -> IO ()
gtk_cell_renderer_text_set_fixed_height_from_font Ptr CellRendererText
renderer' Int32
numberOfRows
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererTextSetFixedHeightFromFontMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsCellRendererText a) => O.OverloadedMethod CellRendererTextSetFixedHeightFromFontMethodInfo a signature where
overloadedMethod = cellRendererTextSetFixedHeightFromFont
instance O.OverloadedMethodInfo CellRendererTextSetFixedHeightFromFontMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellRendererText.cellRendererTextSetFixedHeightFromFont",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-CellRendererText.html#v:cellRendererTextSetFixedHeightFromFont"
}
#endif