module GI.Gtk.Objects.TextTag
(
TextTag(..) ,
TextTagK ,
toTextTag ,
noTextTag ,
textTagEvent ,
textTagGetPriority ,
textTagNew ,
textTagSetPriority ,
TextTagAccumulativeMarginPropertyInfo ,
constructTextTagAccumulativeMargin ,
getTextTagAccumulativeMargin ,
setTextTagAccumulativeMargin ,
TextTagBackgroundPropertyInfo ,
constructTextTagBackground ,
setTextTagBackground ,
TextTagBackgroundFullHeightPropertyInfo ,
constructTextTagBackgroundFullHeight ,
getTextTagBackgroundFullHeight ,
setTextTagBackgroundFullHeight ,
TextTagBackgroundFullHeightSetPropertyInfo,
constructTextTagBackgroundFullHeightSet ,
getTextTagBackgroundFullHeightSet ,
setTextTagBackgroundFullHeightSet ,
TextTagBackgroundGdkPropertyInfo ,
constructTextTagBackgroundGdk ,
getTextTagBackgroundGdk ,
setTextTagBackgroundGdk ,
TextTagBackgroundRgbaPropertyInfo ,
constructTextTagBackgroundRgba ,
getTextTagBackgroundRgba ,
setTextTagBackgroundRgba ,
TextTagBackgroundSetPropertyInfo ,
constructTextTagBackgroundSet ,
getTextTagBackgroundSet ,
setTextTagBackgroundSet ,
TextTagDirectionPropertyInfo ,
constructTextTagDirection ,
getTextTagDirection ,
setTextTagDirection ,
TextTagEditablePropertyInfo ,
constructTextTagEditable ,
getTextTagEditable ,
setTextTagEditable ,
TextTagEditableSetPropertyInfo ,
constructTextTagEditableSet ,
getTextTagEditableSet ,
setTextTagEditableSet ,
TextTagFallbackPropertyInfo ,
constructTextTagFallback ,
getTextTagFallback ,
setTextTagFallback ,
TextTagFallbackSetPropertyInfo ,
constructTextTagFallbackSet ,
getTextTagFallbackSet ,
setTextTagFallbackSet ,
TextTagFamilyPropertyInfo ,
constructTextTagFamily ,
getTextTagFamily ,
setTextTagFamily ,
TextTagFamilySetPropertyInfo ,
constructTextTagFamilySet ,
getTextTagFamilySet ,
setTextTagFamilySet ,
TextTagFontPropertyInfo ,
constructTextTagFont ,
getTextTagFont ,
setTextTagFont ,
TextTagFontDescPropertyInfo ,
constructTextTagFontDesc ,
getTextTagFontDesc ,
setTextTagFontDesc ,
TextTagForegroundPropertyInfo ,
constructTextTagForeground ,
setTextTagForeground ,
TextTagForegroundGdkPropertyInfo ,
constructTextTagForegroundGdk ,
getTextTagForegroundGdk ,
setTextTagForegroundGdk ,
TextTagForegroundRgbaPropertyInfo ,
constructTextTagForegroundRgba ,
getTextTagForegroundRgba ,
setTextTagForegroundRgba ,
TextTagForegroundSetPropertyInfo ,
constructTextTagForegroundSet ,
getTextTagForegroundSet ,
setTextTagForegroundSet ,
TextTagIndentPropertyInfo ,
constructTextTagIndent ,
getTextTagIndent ,
setTextTagIndent ,
TextTagIndentSetPropertyInfo ,
constructTextTagIndentSet ,
getTextTagIndentSet ,
setTextTagIndentSet ,
TextTagInvisiblePropertyInfo ,
constructTextTagInvisible ,
getTextTagInvisible ,
setTextTagInvisible ,
TextTagInvisibleSetPropertyInfo ,
constructTextTagInvisibleSet ,
getTextTagInvisibleSet ,
setTextTagInvisibleSet ,
TextTagJustificationPropertyInfo ,
constructTextTagJustification ,
getTextTagJustification ,
setTextTagJustification ,
TextTagJustificationSetPropertyInfo ,
constructTextTagJustificationSet ,
getTextTagJustificationSet ,
setTextTagJustificationSet ,
TextTagLanguagePropertyInfo ,
constructTextTagLanguage ,
getTextTagLanguage ,
setTextTagLanguage ,
TextTagLanguageSetPropertyInfo ,
constructTextTagLanguageSet ,
getTextTagLanguageSet ,
setTextTagLanguageSet ,
TextTagLeftMarginPropertyInfo ,
constructTextTagLeftMargin ,
getTextTagLeftMargin ,
setTextTagLeftMargin ,
TextTagLeftMarginSetPropertyInfo ,
constructTextTagLeftMarginSet ,
getTextTagLeftMarginSet ,
setTextTagLeftMarginSet ,
TextTagLetterSpacingPropertyInfo ,
constructTextTagLetterSpacing ,
getTextTagLetterSpacing ,
setTextTagLetterSpacing ,
TextTagLetterSpacingSetPropertyInfo ,
constructTextTagLetterSpacingSet ,
getTextTagLetterSpacingSet ,
setTextTagLetterSpacingSet ,
TextTagNamePropertyInfo ,
constructTextTagName ,
getTextTagName ,
TextTagParagraphBackgroundPropertyInfo ,
constructTextTagParagraphBackground ,
setTextTagParagraphBackground ,
TextTagParagraphBackgroundGdkPropertyInfo,
constructTextTagParagraphBackgroundGdk ,
getTextTagParagraphBackgroundGdk ,
setTextTagParagraphBackgroundGdk ,
TextTagParagraphBackgroundRgbaPropertyInfo,
constructTextTagParagraphBackgroundRgba ,
getTextTagParagraphBackgroundRgba ,
setTextTagParagraphBackgroundRgba ,
TextTagParagraphBackgroundSetPropertyInfo,
constructTextTagParagraphBackgroundSet ,
getTextTagParagraphBackgroundSet ,
setTextTagParagraphBackgroundSet ,
TextTagPixelsAboveLinesPropertyInfo ,
constructTextTagPixelsAboveLines ,
getTextTagPixelsAboveLines ,
setTextTagPixelsAboveLines ,
TextTagPixelsAboveLinesSetPropertyInfo ,
constructTextTagPixelsAboveLinesSet ,
getTextTagPixelsAboveLinesSet ,
setTextTagPixelsAboveLinesSet ,
TextTagPixelsBelowLinesPropertyInfo ,
constructTextTagPixelsBelowLines ,
getTextTagPixelsBelowLines ,
setTextTagPixelsBelowLines ,
TextTagPixelsBelowLinesSetPropertyInfo ,
constructTextTagPixelsBelowLinesSet ,
getTextTagPixelsBelowLinesSet ,
setTextTagPixelsBelowLinesSet ,
TextTagPixelsInsideWrapPropertyInfo ,
constructTextTagPixelsInsideWrap ,
getTextTagPixelsInsideWrap ,
setTextTagPixelsInsideWrap ,
TextTagPixelsInsideWrapSetPropertyInfo ,
constructTextTagPixelsInsideWrapSet ,
getTextTagPixelsInsideWrapSet ,
setTextTagPixelsInsideWrapSet ,
TextTagRightMarginPropertyInfo ,
constructTextTagRightMargin ,
getTextTagRightMargin ,
setTextTagRightMargin ,
TextTagRightMarginSetPropertyInfo ,
constructTextTagRightMarginSet ,
getTextTagRightMarginSet ,
setTextTagRightMarginSet ,
TextTagRisePropertyInfo ,
constructTextTagRise ,
getTextTagRise ,
setTextTagRise ,
TextTagRiseSetPropertyInfo ,
constructTextTagRiseSet ,
getTextTagRiseSet ,
setTextTagRiseSet ,
TextTagScalePropertyInfo ,
constructTextTagScale ,
getTextTagScale ,
setTextTagScale ,
TextTagScaleSetPropertyInfo ,
constructTextTagScaleSet ,
getTextTagScaleSet ,
setTextTagScaleSet ,
TextTagSizePropertyInfo ,
constructTextTagSize ,
getTextTagSize ,
setTextTagSize ,
TextTagSizePointsPropertyInfo ,
constructTextTagSizePoints ,
getTextTagSizePoints ,
setTextTagSizePoints ,
TextTagSizeSetPropertyInfo ,
constructTextTagSizeSet ,
getTextTagSizeSet ,
setTextTagSizeSet ,
TextTagStretchPropertyInfo ,
constructTextTagStretch ,
getTextTagStretch ,
setTextTagStretch ,
TextTagStretchSetPropertyInfo ,
constructTextTagStretchSet ,
getTextTagStretchSet ,
setTextTagStretchSet ,
TextTagStrikethroughPropertyInfo ,
constructTextTagStrikethrough ,
getTextTagStrikethrough ,
setTextTagStrikethrough ,
TextTagStrikethroughRgbaPropertyInfo ,
constructTextTagStrikethroughRgba ,
getTextTagStrikethroughRgba ,
setTextTagStrikethroughRgba ,
TextTagStrikethroughRgbaSetPropertyInfo ,
constructTextTagStrikethroughRgbaSet ,
getTextTagStrikethroughRgbaSet ,
setTextTagStrikethroughRgbaSet ,
TextTagStrikethroughSetPropertyInfo ,
constructTextTagStrikethroughSet ,
getTextTagStrikethroughSet ,
setTextTagStrikethroughSet ,
TextTagStylePropertyInfo ,
constructTextTagStyle ,
getTextTagStyle ,
setTextTagStyle ,
TextTagStyleSetPropertyInfo ,
constructTextTagStyleSet ,
getTextTagStyleSet ,
setTextTagStyleSet ,
TextTagTabsPropertyInfo ,
constructTextTagTabs ,
getTextTagTabs ,
setTextTagTabs ,
TextTagTabsSetPropertyInfo ,
constructTextTagTabsSet ,
getTextTagTabsSet ,
setTextTagTabsSet ,
TextTagUnderlinePropertyInfo ,
constructTextTagUnderline ,
getTextTagUnderline ,
setTextTagUnderline ,
TextTagUnderlineRgbaPropertyInfo ,
constructTextTagUnderlineRgba ,
getTextTagUnderlineRgba ,
setTextTagUnderlineRgba ,
TextTagUnderlineRgbaSetPropertyInfo ,
constructTextTagUnderlineRgbaSet ,
getTextTagUnderlineRgbaSet ,
setTextTagUnderlineRgbaSet ,
TextTagUnderlineSetPropertyInfo ,
constructTextTagUnderlineSet ,
getTextTagUnderlineSet ,
setTextTagUnderlineSet ,
TextTagVariantPropertyInfo ,
constructTextTagVariant ,
getTextTagVariant ,
setTextTagVariant ,
TextTagVariantSetPropertyInfo ,
constructTextTagVariantSet ,
getTextTagVariantSet ,
setTextTagVariantSet ,
TextTagWeightPropertyInfo ,
constructTextTagWeight ,
getTextTagWeight ,
setTextTagWeight ,
TextTagWeightSetPropertyInfo ,
constructTextTagWeightSet ,
getTextTagWeightSet ,
setTextTagWeightSet ,
TextTagWrapModePropertyInfo ,
constructTextTagWrapMode ,
getTextTagWrapMode ,
setTextTagWrapMode ,
TextTagWrapModeSetPropertyInfo ,
constructTextTagWrapModeSet ,
getTextTagWrapModeSet ,
setTextTagWrapModeSet ,
TextTagEventCallback ,
TextTagEventCallbackC ,
TextTagEventSignalInfo ,
afterTextTagEvent ,
mkTextTagEventCallback ,
noTextTagEventCallback ,
onTextTagEvent ,
textTagEventCallbackWrapper ,
textTagEventClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GObject as GObject
import qualified GI.Gdk as Gdk
import qualified GI.Pango as Pango
newtype TextTag = TextTag (ForeignPtr TextTag)
foreign import ccall "gtk_text_tag_get_type"
c_gtk_text_tag_get_type :: IO GType
type instance ParentTypes TextTag = TextTagParentTypes
type TextTagParentTypes = '[GObject.Object]
instance GObject TextTag where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_text_tag_get_type
class GObject o => TextTagK o
instance (GObject o, IsDescendantOf TextTag o) => TextTagK o
toTextTag :: TextTagK o => o -> IO TextTag
toTextTag = unsafeCastTo TextTag
noTextTag :: Maybe TextTag
noTextTag = Nothing
type TextTagEventCallback =
GObject.Object ->
Gdk.Event ->
TextIter ->
IO Bool
noTextTagEventCallback :: Maybe TextTagEventCallback
noTextTagEventCallback = Nothing
type TextTagEventCallbackC =
Ptr () ->
Ptr GObject.Object ->
Ptr Gdk.Event ->
Ptr TextIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTextTagEventCallback :: TextTagEventCallbackC -> IO (FunPtr TextTagEventCallbackC)
textTagEventClosure :: TextTagEventCallback -> IO Closure
textTagEventClosure cb = newCClosure =<< mkTextTagEventCallback wrapped
where wrapped = textTagEventCallbackWrapper cb
textTagEventCallbackWrapper ::
TextTagEventCallback ->
Ptr () ->
Ptr GObject.Object ->
Ptr Gdk.Event ->
Ptr TextIter ->
Ptr () ->
IO CInt
textTagEventCallbackWrapper _cb _ object event iter _ = do
object' <- (newObject GObject.Object) object
event' <- (newBoxed Gdk.Event) event
iter' <- (newBoxed TextIter) iter
result <- _cb object' event' iter'
let result' = (fromIntegral . fromEnum) result
return result'
onTextTagEvent :: (GObject a, MonadIO m) => a -> TextTagEventCallback -> m SignalHandlerId
onTextTagEvent obj cb = liftIO $ connectTextTagEvent obj cb SignalConnectBefore
afterTextTagEvent :: (GObject a, MonadIO m) => a -> TextTagEventCallback -> m SignalHandlerId
afterTextTagEvent obj cb = connectTextTagEvent obj cb SignalConnectAfter
connectTextTagEvent :: (GObject a, MonadIO m) =>
a -> TextTagEventCallback -> SignalConnectMode -> m SignalHandlerId
connectTextTagEvent obj cb after = liftIO $ do
cb' <- mkTextTagEventCallback (textTagEventCallbackWrapper cb)
connectSignalFunPtr obj "event" cb' after
getTextTagAccumulativeMargin :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagAccumulativeMargin obj = liftIO $ getObjectPropertyBool obj "accumulative-margin"
setTextTagAccumulativeMargin :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagAccumulativeMargin obj val = liftIO $ setObjectPropertyBool obj "accumulative-margin" val
constructTextTagAccumulativeMargin :: Bool -> IO ([Char], GValue)
constructTextTagAccumulativeMargin val = constructObjectPropertyBool "accumulative-margin" val
data TextTagAccumulativeMarginPropertyInfo
instance AttrInfo TextTagAccumulativeMarginPropertyInfo where
type AttrAllowedOps TextTagAccumulativeMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagAccumulativeMarginPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagAccumulativeMarginPropertyInfo = TextTagK
type AttrGetType TextTagAccumulativeMarginPropertyInfo = Bool
type AttrLabel TextTagAccumulativeMarginPropertyInfo = "TextTag::accumulative-margin"
attrGet _ = getTextTagAccumulativeMargin
attrSet _ = setTextTagAccumulativeMargin
attrConstruct _ = constructTextTagAccumulativeMargin
setTextTagBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m ()
setTextTagBackground obj val = liftIO $ setObjectPropertyString obj "background" val
constructTextTagBackground :: T.Text -> IO ([Char], GValue)
constructTextTagBackground val = constructObjectPropertyString "background" val
data TextTagBackgroundPropertyInfo
instance AttrInfo TextTagBackgroundPropertyInfo where
type AttrAllowedOps TextTagBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrSetTypeConstraint TextTagBackgroundPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TextTagBackgroundPropertyInfo = TextTagK
type AttrGetType TextTagBackgroundPropertyInfo = ()
type AttrLabel TextTagBackgroundPropertyInfo = "TextTag::background"
attrGet _ = undefined
attrSet _ = setTextTagBackground
attrConstruct _ = constructTextTagBackground
getTextTagBackgroundFullHeight :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagBackgroundFullHeight obj = liftIO $ getObjectPropertyBool obj "background-full-height"
setTextTagBackgroundFullHeight :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagBackgroundFullHeight obj val = liftIO $ setObjectPropertyBool obj "background-full-height" val
constructTextTagBackgroundFullHeight :: Bool -> IO ([Char], GValue)
constructTextTagBackgroundFullHeight val = constructObjectPropertyBool "background-full-height" val
data TextTagBackgroundFullHeightPropertyInfo
instance AttrInfo TextTagBackgroundFullHeightPropertyInfo where
type AttrAllowedOps TextTagBackgroundFullHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagBackgroundFullHeightPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagBackgroundFullHeightPropertyInfo = TextTagK
type AttrGetType TextTagBackgroundFullHeightPropertyInfo = Bool
type AttrLabel TextTagBackgroundFullHeightPropertyInfo = "TextTag::background-full-height"
attrGet _ = getTextTagBackgroundFullHeight
attrSet _ = setTextTagBackgroundFullHeight
attrConstruct _ = constructTextTagBackgroundFullHeight
getTextTagBackgroundFullHeightSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagBackgroundFullHeightSet obj = liftIO $ getObjectPropertyBool obj "background-full-height-set"
setTextTagBackgroundFullHeightSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagBackgroundFullHeightSet obj val = liftIO $ setObjectPropertyBool obj "background-full-height-set" val
constructTextTagBackgroundFullHeightSet :: Bool -> IO ([Char], GValue)
constructTextTagBackgroundFullHeightSet val = constructObjectPropertyBool "background-full-height-set" val
data TextTagBackgroundFullHeightSetPropertyInfo
instance AttrInfo TextTagBackgroundFullHeightSetPropertyInfo where
type AttrAllowedOps TextTagBackgroundFullHeightSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagBackgroundFullHeightSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagBackgroundFullHeightSetPropertyInfo = TextTagK
type AttrGetType TextTagBackgroundFullHeightSetPropertyInfo = Bool
type AttrLabel TextTagBackgroundFullHeightSetPropertyInfo = "TextTag::background-full-height-set"
attrGet _ = getTextTagBackgroundFullHeightSet
attrSet _ = setTextTagBackgroundFullHeightSet
attrConstruct _ = constructTextTagBackgroundFullHeightSet
getTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m Gdk.Color
getTextTagBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "background-gdk" Gdk.Color
setTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> Gdk.Color -> m ()
setTextTagBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" val
constructTextTagBackgroundGdk :: Gdk.Color -> IO ([Char], GValue)
constructTextTagBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val
data TextTagBackgroundGdkPropertyInfo
instance AttrInfo TextTagBackgroundGdkPropertyInfo where
type AttrAllowedOps TextTagBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagBackgroundGdkPropertyInfo = (~) Gdk.Color
type AttrBaseTypeConstraint TextTagBackgroundGdkPropertyInfo = TextTagK
type AttrGetType TextTagBackgroundGdkPropertyInfo = Gdk.Color
type AttrLabel TextTagBackgroundGdkPropertyInfo = "TextTag::background-gdk"
attrGet _ = getTextTagBackgroundGdk
attrSet _ = setTextTagBackgroundGdk
attrConstruct _ = constructTextTagBackgroundGdk
getTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA
getTextTagBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA
setTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m ()
setTextTagBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" val
constructTextTagBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue)
constructTextTagBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val
data TextTagBackgroundRgbaPropertyInfo
instance AttrInfo TextTagBackgroundRgbaPropertyInfo where
type AttrAllowedOps TextTagBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagBackgroundRgbaPropertyInfo = (~) Gdk.RGBA
type AttrBaseTypeConstraint TextTagBackgroundRgbaPropertyInfo = TextTagK
type AttrGetType TextTagBackgroundRgbaPropertyInfo = Gdk.RGBA
type AttrLabel TextTagBackgroundRgbaPropertyInfo = "TextTag::background-rgba"
attrGet _ = getTextTagBackgroundRgba
attrSet _ = setTextTagBackgroundRgba
attrConstruct _ = constructTextTagBackgroundRgba
getTextTagBackgroundSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set"
setTextTagBackgroundSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagBackgroundSet obj val = liftIO $ setObjectPropertyBool obj "background-set" val
constructTextTagBackgroundSet :: Bool -> IO ([Char], GValue)
constructTextTagBackgroundSet val = constructObjectPropertyBool "background-set" val
data TextTagBackgroundSetPropertyInfo
instance AttrInfo TextTagBackgroundSetPropertyInfo where
type AttrAllowedOps TextTagBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagBackgroundSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagBackgroundSetPropertyInfo = TextTagK
type AttrGetType TextTagBackgroundSetPropertyInfo = Bool
type AttrLabel TextTagBackgroundSetPropertyInfo = "TextTag::background-set"
attrGet _ = getTextTagBackgroundSet
attrSet _ = setTextTagBackgroundSet
attrConstruct _ = constructTextTagBackgroundSet
getTextTagDirection :: (MonadIO m, TextTagK o) => o -> m TextDirection
getTextTagDirection obj = liftIO $ getObjectPropertyEnum obj "direction"
setTextTagDirection :: (MonadIO m, TextTagK o) => o -> TextDirection -> m ()
setTextTagDirection obj val = liftIO $ setObjectPropertyEnum obj "direction" val
constructTextTagDirection :: TextDirection -> IO ([Char], GValue)
constructTextTagDirection val = constructObjectPropertyEnum "direction" val
data TextTagDirectionPropertyInfo
instance AttrInfo TextTagDirectionPropertyInfo where
type AttrAllowedOps TextTagDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagDirectionPropertyInfo = (~) TextDirection
type AttrBaseTypeConstraint TextTagDirectionPropertyInfo = TextTagK
type AttrGetType TextTagDirectionPropertyInfo = TextDirection
type AttrLabel TextTagDirectionPropertyInfo = "TextTag::direction"
attrGet _ = getTextTagDirection
attrSet _ = setTextTagDirection
attrConstruct _ = constructTextTagDirection
getTextTagEditable :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagEditable obj = liftIO $ getObjectPropertyBool obj "editable"
setTextTagEditable :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val
constructTextTagEditable :: Bool -> IO ([Char], GValue)
constructTextTagEditable val = constructObjectPropertyBool "editable" val
data TextTagEditablePropertyInfo
instance AttrInfo TextTagEditablePropertyInfo where
type AttrAllowedOps TextTagEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagEditablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagEditablePropertyInfo = TextTagK
type AttrGetType TextTagEditablePropertyInfo = Bool
type AttrLabel TextTagEditablePropertyInfo = "TextTag::editable"
attrGet _ = getTextTagEditable
attrSet _ = setTextTagEditable
attrConstruct _ = constructTextTagEditable
getTextTagEditableSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagEditableSet obj = liftIO $ getObjectPropertyBool obj "editable-set"
setTextTagEditableSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagEditableSet obj val = liftIO $ setObjectPropertyBool obj "editable-set" val
constructTextTagEditableSet :: Bool -> IO ([Char], GValue)
constructTextTagEditableSet val = constructObjectPropertyBool "editable-set" val
data TextTagEditableSetPropertyInfo
instance AttrInfo TextTagEditableSetPropertyInfo where
type AttrAllowedOps TextTagEditableSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagEditableSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagEditableSetPropertyInfo = TextTagK
type AttrGetType TextTagEditableSetPropertyInfo = Bool
type AttrLabel TextTagEditableSetPropertyInfo = "TextTag::editable-set"
attrGet _ = getTextTagEditableSet
attrSet _ = setTextTagEditableSet
attrConstruct _ = constructTextTagEditableSet
getTextTagFallback :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagFallback obj = liftIO $ getObjectPropertyBool obj "fallback"
setTextTagFallback :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagFallback obj val = liftIO $ setObjectPropertyBool obj "fallback" val
constructTextTagFallback :: Bool -> IO ([Char], GValue)
constructTextTagFallback val = constructObjectPropertyBool "fallback" val
data TextTagFallbackPropertyInfo
instance AttrInfo TextTagFallbackPropertyInfo where
type AttrAllowedOps TextTagFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagFallbackPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagFallbackPropertyInfo = TextTagK
type AttrGetType TextTagFallbackPropertyInfo = Bool
type AttrLabel TextTagFallbackPropertyInfo = "TextTag::fallback"
attrGet _ = getTextTagFallback
attrSet _ = setTextTagFallback
attrConstruct _ = constructTextTagFallback
getTextTagFallbackSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagFallbackSet obj = liftIO $ getObjectPropertyBool obj "fallback-set"
setTextTagFallbackSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagFallbackSet obj val = liftIO $ setObjectPropertyBool obj "fallback-set" val
constructTextTagFallbackSet :: Bool -> IO ([Char], GValue)
constructTextTagFallbackSet val = constructObjectPropertyBool "fallback-set" val
data TextTagFallbackSetPropertyInfo
instance AttrInfo TextTagFallbackSetPropertyInfo where
type AttrAllowedOps TextTagFallbackSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagFallbackSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagFallbackSetPropertyInfo = TextTagK
type AttrGetType TextTagFallbackSetPropertyInfo = Bool
type AttrLabel TextTagFallbackSetPropertyInfo = "TextTag::fallback-set"
attrGet _ = getTextTagFallbackSet
attrSet _ = setTextTagFallbackSet
attrConstruct _ = constructTextTagFallbackSet
getTextTagFamily :: (MonadIO m, TextTagK o) => o -> m T.Text
getTextTagFamily obj = liftIO $ getObjectPropertyString obj "family"
setTextTagFamily :: (MonadIO m, TextTagK o) => o -> T.Text -> m ()
setTextTagFamily obj val = liftIO $ setObjectPropertyString obj "family" val
constructTextTagFamily :: T.Text -> IO ([Char], GValue)
constructTextTagFamily val = constructObjectPropertyString "family" val
data TextTagFamilyPropertyInfo
instance AttrInfo TextTagFamilyPropertyInfo where
type AttrAllowedOps TextTagFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagFamilyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TextTagFamilyPropertyInfo = TextTagK
type AttrGetType TextTagFamilyPropertyInfo = T.Text
type AttrLabel TextTagFamilyPropertyInfo = "TextTag::family"
attrGet _ = getTextTagFamily
attrSet _ = setTextTagFamily
attrConstruct _ = constructTextTagFamily
getTextTagFamilySet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagFamilySet obj = liftIO $ getObjectPropertyBool obj "family-set"
setTextTagFamilySet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagFamilySet obj val = liftIO $ setObjectPropertyBool obj "family-set" val
constructTextTagFamilySet :: Bool -> IO ([Char], GValue)
constructTextTagFamilySet val = constructObjectPropertyBool "family-set" val
data TextTagFamilySetPropertyInfo
instance AttrInfo TextTagFamilySetPropertyInfo where
type AttrAllowedOps TextTagFamilySetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagFamilySetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagFamilySetPropertyInfo = TextTagK
type AttrGetType TextTagFamilySetPropertyInfo = Bool
type AttrLabel TextTagFamilySetPropertyInfo = "TextTag::family-set"
attrGet _ = getTextTagFamilySet
attrSet _ = setTextTagFamilySet
attrConstruct _ = constructTextTagFamilySet
getTextTagFont :: (MonadIO m, TextTagK o) => o -> m T.Text
getTextTagFont obj = liftIO $ getObjectPropertyString obj "font"
setTextTagFont :: (MonadIO m, TextTagK o) => o -> T.Text -> m ()
setTextTagFont obj val = liftIO $ setObjectPropertyString obj "font" val
constructTextTagFont :: T.Text -> IO ([Char], GValue)
constructTextTagFont val = constructObjectPropertyString "font" val
data TextTagFontPropertyInfo
instance AttrInfo TextTagFontPropertyInfo where
type AttrAllowedOps TextTagFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagFontPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TextTagFontPropertyInfo = TextTagK
type AttrGetType TextTagFontPropertyInfo = T.Text
type AttrLabel TextTagFontPropertyInfo = "TextTag::font"
attrGet _ = getTextTagFont
attrSet _ = setTextTagFont
attrConstruct _ = constructTextTagFont
getTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> m Pango.FontDescription
getTextTagFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription
setTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> Pango.FontDescription -> m ()
setTextTagFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" val
constructTextTagFontDesc :: Pango.FontDescription -> IO ([Char], GValue)
constructTextTagFontDesc val = constructObjectPropertyBoxed "font-desc" val
data TextTagFontDescPropertyInfo
instance AttrInfo TextTagFontDescPropertyInfo where
type AttrAllowedOps TextTagFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagFontDescPropertyInfo = (~) Pango.FontDescription
type AttrBaseTypeConstraint TextTagFontDescPropertyInfo = TextTagK
type AttrGetType TextTagFontDescPropertyInfo = Pango.FontDescription
type AttrLabel TextTagFontDescPropertyInfo = "TextTag::font-desc"
attrGet _ = getTextTagFontDesc
attrSet _ = setTextTagFontDesc
attrConstruct _ = constructTextTagFontDesc
setTextTagForeground :: (MonadIO m, TextTagK o) => o -> T.Text -> m ()
setTextTagForeground obj val = liftIO $ setObjectPropertyString obj "foreground" val
constructTextTagForeground :: T.Text -> IO ([Char], GValue)
constructTextTagForeground val = constructObjectPropertyString "foreground" val
data TextTagForegroundPropertyInfo
instance AttrInfo TextTagForegroundPropertyInfo where
type AttrAllowedOps TextTagForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrSetTypeConstraint TextTagForegroundPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TextTagForegroundPropertyInfo = TextTagK
type AttrGetType TextTagForegroundPropertyInfo = ()
type AttrLabel TextTagForegroundPropertyInfo = "TextTag::foreground"
attrGet _ = undefined
attrSet _ = setTextTagForeground
attrConstruct _ = constructTextTagForeground
getTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> m Gdk.Color
getTextTagForegroundGdk obj = liftIO $ getObjectPropertyBoxed obj "foreground-gdk" Gdk.Color
setTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> Gdk.Color -> m ()
setTextTagForegroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" val
constructTextTagForegroundGdk :: Gdk.Color -> IO ([Char], GValue)
constructTextTagForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" val
data TextTagForegroundGdkPropertyInfo
instance AttrInfo TextTagForegroundGdkPropertyInfo where
type AttrAllowedOps TextTagForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagForegroundGdkPropertyInfo = (~) Gdk.Color
type AttrBaseTypeConstraint TextTagForegroundGdkPropertyInfo = TextTagK
type AttrGetType TextTagForegroundGdkPropertyInfo = Gdk.Color
type AttrLabel TextTagForegroundGdkPropertyInfo = "TextTag::foreground-gdk"
attrGet _ = getTextTagForegroundGdk
attrSet _ = setTextTagForegroundGdk
attrConstruct _ = constructTextTagForegroundGdk
getTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA
getTextTagForegroundRgba obj = liftIO $ getObjectPropertyBoxed obj "foreground-rgba" Gdk.RGBA
setTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m ()
setTextTagForegroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" val
constructTextTagForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue)
constructTextTagForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" val
data TextTagForegroundRgbaPropertyInfo
instance AttrInfo TextTagForegroundRgbaPropertyInfo where
type AttrAllowedOps TextTagForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagForegroundRgbaPropertyInfo = (~) Gdk.RGBA
type AttrBaseTypeConstraint TextTagForegroundRgbaPropertyInfo = TextTagK
type AttrGetType TextTagForegroundRgbaPropertyInfo = Gdk.RGBA
type AttrLabel TextTagForegroundRgbaPropertyInfo = "TextTag::foreground-rgba"
attrGet _ = getTextTagForegroundRgba
attrSet _ = setTextTagForegroundRgba
attrConstruct _ = constructTextTagForegroundRgba
getTextTagForegroundSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagForegroundSet obj = liftIO $ getObjectPropertyBool obj "foreground-set"
setTextTagForegroundSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagForegroundSet obj val = liftIO $ setObjectPropertyBool obj "foreground-set" val
constructTextTagForegroundSet :: Bool -> IO ([Char], GValue)
constructTextTagForegroundSet val = constructObjectPropertyBool "foreground-set" val
data TextTagForegroundSetPropertyInfo
instance AttrInfo TextTagForegroundSetPropertyInfo where
type AttrAllowedOps TextTagForegroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagForegroundSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagForegroundSetPropertyInfo = TextTagK
type AttrGetType TextTagForegroundSetPropertyInfo = Bool
type AttrLabel TextTagForegroundSetPropertyInfo = "TextTag::foreground-set"
attrGet _ = getTextTagForegroundSet
attrSet _ = setTextTagForegroundSet
attrConstruct _ = constructTextTagForegroundSet
getTextTagIndent :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagIndent obj = liftIO $ getObjectPropertyCInt obj "indent"
setTextTagIndent :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagIndent obj val = liftIO $ setObjectPropertyCInt obj "indent" val
constructTextTagIndent :: Int32 -> IO ([Char], GValue)
constructTextTagIndent val = constructObjectPropertyCInt "indent" val
data TextTagIndentPropertyInfo
instance AttrInfo TextTagIndentPropertyInfo where
type AttrAllowedOps TextTagIndentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagIndentPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagIndentPropertyInfo = TextTagK
type AttrGetType TextTagIndentPropertyInfo = Int32
type AttrLabel TextTagIndentPropertyInfo = "TextTag::indent"
attrGet _ = getTextTagIndent
attrSet _ = setTextTagIndent
attrConstruct _ = constructTextTagIndent
getTextTagIndentSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagIndentSet obj = liftIO $ getObjectPropertyBool obj "indent-set"
setTextTagIndentSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagIndentSet obj val = liftIO $ setObjectPropertyBool obj "indent-set" val
constructTextTagIndentSet :: Bool -> IO ([Char], GValue)
constructTextTagIndentSet val = constructObjectPropertyBool "indent-set" val
data TextTagIndentSetPropertyInfo
instance AttrInfo TextTagIndentSetPropertyInfo where
type AttrAllowedOps TextTagIndentSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagIndentSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagIndentSetPropertyInfo = TextTagK
type AttrGetType TextTagIndentSetPropertyInfo = Bool
type AttrLabel TextTagIndentSetPropertyInfo = "TextTag::indent-set"
attrGet _ = getTextTagIndentSet
attrSet _ = setTextTagIndentSet
attrConstruct _ = constructTextTagIndentSet
getTextTagInvisible :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagInvisible obj = liftIO $ getObjectPropertyBool obj "invisible"
setTextTagInvisible :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagInvisible obj val = liftIO $ setObjectPropertyBool obj "invisible" val
constructTextTagInvisible :: Bool -> IO ([Char], GValue)
constructTextTagInvisible val = constructObjectPropertyBool "invisible" val
data TextTagInvisiblePropertyInfo
instance AttrInfo TextTagInvisiblePropertyInfo where
type AttrAllowedOps TextTagInvisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagInvisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagInvisiblePropertyInfo = TextTagK
type AttrGetType TextTagInvisiblePropertyInfo = Bool
type AttrLabel TextTagInvisiblePropertyInfo = "TextTag::invisible"
attrGet _ = getTextTagInvisible
attrSet _ = setTextTagInvisible
attrConstruct _ = constructTextTagInvisible
getTextTagInvisibleSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagInvisibleSet obj = liftIO $ getObjectPropertyBool obj "invisible-set"
setTextTagInvisibleSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagInvisibleSet obj val = liftIO $ setObjectPropertyBool obj "invisible-set" val
constructTextTagInvisibleSet :: Bool -> IO ([Char], GValue)
constructTextTagInvisibleSet val = constructObjectPropertyBool "invisible-set" val
data TextTagInvisibleSetPropertyInfo
instance AttrInfo TextTagInvisibleSetPropertyInfo where
type AttrAllowedOps TextTagInvisibleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagInvisibleSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagInvisibleSetPropertyInfo = TextTagK
type AttrGetType TextTagInvisibleSetPropertyInfo = Bool
type AttrLabel TextTagInvisibleSetPropertyInfo = "TextTag::invisible-set"
attrGet _ = getTextTagInvisibleSet
attrSet _ = setTextTagInvisibleSet
attrConstruct _ = constructTextTagInvisibleSet
getTextTagJustification :: (MonadIO m, TextTagK o) => o -> m Justification
getTextTagJustification obj = liftIO $ getObjectPropertyEnum obj "justification"
setTextTagJustification :: (MonadIO m, TextTagK o) => o -> Justification -> m ()
setTextTagJustification obj val = liftIO $ setObjectPropertyEnum obj "justification" val
constructTextTagJustification :: Justification -> IO ([Char], GValue)
constructTextTagJustification val = constructObjectPropertyEnum "justification" val
data TextTagJustificationPropertyInfo
instance AttrInfo TextTagJustificationPropertyInfo where
type AttrAllowedOps TextTagJustificationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagJustificationPropertyInfo = (~) Justification
type AttrBaseTypeConstraint TextTagJustificationPropertyInfo = TextTagK
type AttrGetType TextTagJustificationPropertyInfo = Justification
type AttrLabel TextTagJustificationPropertyInfo = "TextTag::justification"
attrGet _ = getTextTagJustification
attrSet _ = setTextTagJustification
attrConstruct _ = constructTextTagJustification
getTextTagJustificationSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagJustificationSet obj = liftIO $ getObjectPropertyBool obj "justification-set"
setTextTagJustificationSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagJustificationSet obj val = liftIO $ setObjectPropertyBool obj "justification-set" val
constructTextTagJustificationSet :: Bool -> IO ([Char], GValue)
constructTextTagJustificationSet val = constructObjectPropertyBool "justification-set" val
data TextTagJustificationSetPropertyInfo
instance AttrInfo TextTagJustificationSetPropertyInfo where
type AttrAllowedOps TextTagJustificationSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagJustificationSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagJustificationSetPropertyInfo = TextTagK
type AttrGetType TextTagJustificationSetPropertyInfo = Bool
type AttrLabel TextTagJustificationSetPropertyInfo = "TextTag::justification-set"
attrGet _ = getTextTagJustificationSet
attrSet _ = setTextTagJustificationSet
attrConstruct _ = constructTextTagJustificationSet
getTextTagLanguage :: (MonadIO m, TextTagK o) => o -> m T.Text
getTextTagLanguage obj = liftIO $ getObjectPropertyString obj "language"
setTextTagLanguage :: (MonadIO m, TextTagK o) => o -> T.Text -> m ()
setTextTagLanguage obj val = liftIO $ setObjectPropertyString obj "language" val
constructTextTagLanguage :: T.Text -> IO ([Char], GValue)
constructTextTagLanguage val = constructObjectPropertyString "language" val
data TextTagLanguagePropertyInfo
instance AttrInfo TextTagLanguagePropertyInfo where
type AttrAllowedOps TextTagLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagLanguagePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TextTagLanguagePropertyInfo = TextTagK
type AttrGetType TextTagLanguagePropertyInfo = T.Text
type AttrLabel TextTagLanguagePropertyInfo = "TextTag::language"
attrGet _ = getTextTagLanguage
attrSet _ = setTextTagLanguage
attrConstruct _ = constructTextTagLanguage
getTextTagLanguageSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagLanguageSet obj = liftIO $ getObjectPropertyBool obj "language-set"
setTextTagLanguageSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagLanguageSet obj val = liftIO $ setObjectPropertyBool obj "language-set" val
constructTextTagLanguageSet :: Bool -> IO ([Char], GValue)
constructTextTagLanguageSet val = constructObjectPropertyBool "language-set" val
data TextTagLanguageSetPropertyInfo
instance AttrInfo TextTagLanguageSetPropertyInfo where
type AttrAllowedOps TextTagLanguageSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagLanguageSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagLanguageSetPropertyInfo = TextTagK
type AttrGetType TextTagLanguageSetPropertyInfo = Bool
type AttrLabel TextTagLanguageSetPropertyInfo = "TextTag::language-set"
attrGet _ = getTextTagLanguageSet
attrSet _ = setTextTagLanguageSet
attrConstruct _ = constructTextTagLanguageSet
getTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagLeftMargin obj = liftIO $ getObjectPropertyCInt obj "left-margin"
setTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagLeftMargin obj val = liftIO $ setObjectPropertyCInt obj "left-margin" val
constructTextTagLeftMargin :: Int32 -> IO ([Char], GValue)
constructTextTagLeftMargin val = constructObjectPropertyCInt "left-margin" val
data TextTagLeftMarginPropertyInfo
instance AttrInfo TextTagLeftMarginPropertyInfo where
type AttrAllowedOps TextTagLeftMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagLeftMarginPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagLeftMarginPropertyInfo = TextTagK
type AttrGetType TextTagLeftMarginPropertyInfo = Int32
type AttrLabel TextTagLeftMarginPropertyInfo = "TextTag::left-margin"
attrGet _ = getTextTagLeftMargin
attrSet _ = setTextTagLeftMargin
attrConstruct _ = constructTextTagLeftMargin
getTextTagLeftMarginSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagLeftMarginSet obj = liftIO $ getObjectPropertyBool obj "left-margin-set"
setTextTagLeftMarginSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagLeftMarginSet obj val = liftIO $ setObjectPropertyBool obj "left-margin-set" val
constructTextTagLeftMarginSet :: Bool -> IO ([Char], GValue)
constructTextTagLeftMarginSet val = constructObjectPropertyBool "left-margin-set" val
data TextTagLeftMarginSetPropertyInfo
instance AttrInfo TextTagLeftMarginSetPropertyInfo where
type AttrAllowedOps TextTagLeftMarginSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagLeftMarginSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagLeftMarginSetPropertyInfo = TextTagK
type AttrGetType TextTagLeftMarginSetPropertyInfo = Bool
type AttrLabel TextTagLeftMarginSetPropertyInfo = "TextTag::left-margin-set"
attrGet _ = getTextTagLeftMarginSet
attrSet _ = setTextTagLeftMarginSet
attrConstruct _ = constructTextTagLeftMarginSet
getTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagLetterSpacing obj = liftIO $ getObjectPropertyCInt obj "letter-spacing"
setTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagLetterSpacing obj val = liftIO $ setObjectPropertyCInt obj "letter-spacing" val
constructTextTagLetterSpacing :: Int32 -> IO ([Char], GValue)
constructTextTagLetterSpacing val = constructObjectPropertyCInt "letter-spacing" val
data TextTagLetterSpacingPropertyInfo
instance AttrInfo TextTagLetterSpacingPropertyInfo where
type AttrAllowedOps TextTagLetterSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagLetterSpacingPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagLetterSpacingPropertyInfo = TextTagK
type AttrGetType TextTagLetterSpacingPropertyInfo = Int32
type AttrLabel TextTagLetterSpacingPropertyInfo = "TextTag::letter-spacing"
attrGet _ = getTextTagLetterSpacing
attrSet _ = setTextTagLetterSpacing
attrConstruct _ = constructTextTagLetterSpacing
getTextTagLetterSpacingSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagLetterSpacingSet obj = liftIO $ getObjectPropertyBool obj "letter-spacing-set"
setTextTagLetterSpacingSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagLetterSpacingSet obj val = liftIO $ setObjectPropertyBool obj "letter-spacing-set" val
constructTextTagLetterSpacingSet :: Bool -> IO ([Char], GValue)
constructTextTagLetterSpacingSet val = constructObjectPropertyBool "letter-spacing-set" val
data TextTagLetterSpacingSetPropertyInfo
instance AttrInfo TextTagLetterSpacingSetPropertyInfo where
type AttrAllowedOps TextTagLetterSpacingSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagLetterSpacingSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagLetterSpacingSetPropertyInfo = TextTagK
type AttrGetType TextTagLetterSpacingSetPropertyInfo = Bool
type AttrLabel TextTagLetterSpacingSetPropertyInfo = "TextTag::letter-spacing-set"
attrGet _ = getTextTagLetterSpacingSet
attrSet _ = setTextTagLetterSpacingSet
attrConstruct _ = constructTextTagLetterSpacingSet
getTextTagName :: (MonadIO m, TextTagK o) => o -> m T.Text
getTextTagName obj = liftIO $ getObjectPropertyString obj "name"
constructTextTagName :: T.Text -> IO ([Char], GValue)
constructTextTagName val = constructObjectPropertyString "name" val
data TextTagNamePropertyInfo
instance AttrInfo TextTagNamePropertyInfo where
type AttrAllowedOps TextTagNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TextTagNamePropertyInfo = TextTagK
type AttrGetType TextTagNamePropertyInfo = T.Text
type AttrLabel TextTagNamePropertyInfo = "TextTag::name"
attrGet _ = getTextTagName
attrSet _ = undefined
attrConstruct _ = constructTextTagName
setTextTagParagraphBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m ()
setTextTagParagraphBackground obj val = liftIO $ setObjectPropertyString obj "paragraph-background" val
constructTextTagParagraphBackground :: T.Text -> IO ([Char], GValue)
constructTextTagParagraphBackground val = constructObjectPropertyString "paragraph-background" val
data TextTagParagraphBackgroundPropertyInfo
instance AttrInfo TextTagParagraphBackgroundPropertyInfo where
type AttrAllowedOps TextTagParagraphBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrSetTypeConstraint TextTagParagraphBackgroundPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TextTagParagraphBackgroundPropertyInfo = TextTagK
type AttrGetType TextTagParagraphBackgroundPropertyInfo = ()
type AttrLabel TextTagParagraphBackgroundPropertyInfo = "TextTag::paragraph-background"
attrGet _ = undefined
attrSet _ = setTextTagParagraphBackground
attrConstruct _ = constructTextTagParagraphBackground
getTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m Gdk.Color
getTextTagParagraphBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "paragraph-background-gdk" Gdk.Color
setTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> Gdk.Color -> m ()
setTextTagParagraphBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "paragraph-background-gdk" val
constructTextTagParagraphBackgroundGdk :: Gdk.Color -> IO ([Char], GValue)
constructTextTagParagraphBackgroundGdk val = constructObjectPropertyBoxed "paragraph-background-gdk" val
data TextTagParagraphBackgroundGdkPropertyInfo
instance AttrInfo TextTagParagraphBackgroundGdkPropertyInfo where
type AttrAllowedOps TextTagParagraphBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = (~) Gdk.Color
type AttrBaseTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = TextTagK
type AttrGetType TextTagParagraphBackgroundGdkPropertyInfo = Gdk.Color
type AttrLabel TextTagParagraphBackgroundGdkPropertyInfo = "TextTag::paragraph-background-gdk"
attrGet _ = getTextTagParagraphBackgroundGdk
attrSet _ = setTextTagParagraphBackgroundGdk
attrConstruct _ = constructTextTagParagraphBackgroundGdk
getTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA
getTextTagParagraphBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "paragraph-background-rgba" Gdk.RGBA
setTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m ()
setTextTagParagraphBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "paragraph-background-rgba" val
constructTextTagParagraphBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue)
constructTextTagParagraphBackgroundRgba val = constructObjectPropertyBoxed "paragraph-background-rgba" val
data TextTagParagraphBackgroundRgbaPropertyInfo
instance AttrInfo TextTagParagraphBackgroundRgbaPropertyInfo where
type AttrAllowedOps TextTagParagraphBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = (~) Gdk.RGBA
type AttrBaseTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = TextTagK
type AttrGetType TextTagParagraphBackgroundRgbaPropertyInfo = Gdk.RGBA
type AttrLabel TextTagParagraphBackgroundRgbaPropertyInfo = "TextTag::paragraph-background-rgba"
attrGet _ = getTextTagParagraphBackgroundRgba
attrSet _ = setTextTagParagraphBackgroundRgba
attrConstruct _ = constructTextTagParagraphBackgroundRgba
getTextTagParagraphBackgroundSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagParagraphBackgroundSet obj = liftIO $ getObjectPropertyBool obj "paragraph-background-set"
setTextTagParagraphBackgroundSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagParagraphBackgroundSet obj val = liftIO $ setObjectPropertyBool obj "paragraph-background-set" val
constructTextTagParagraphBackgroundSet :: Bool -> IO ([Char], GValue)
constructTextTagParagraphBackgroundSet val = constructObjectPropertyBool "paragraph-background-set" val
data TextTagParagraphBackgroundSetPropertyInfo
instance AttrInfo TextTagParagraphBackgroundSetPropertyInfo where
type AttrAllowedOps TextTagParagraphBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagParagraphBackgroundSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagParagraphBackgroundSetPropertyInfo = TextTagK
type AttrGetType TextTagParagraphBackgroundSetPropertyInfo = Bool
type AttrLabel TextTagParagraphBackgroundSetPropertyInfo = "TextTag::paragraph-background-set"
attrGet _ = getTextTagParagraphBackgroundSet
attrSet _ = setTextTagParagraphBackgroundSet
attrConstruct _ = constructTextTagParagraphBackgroundSet
getTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagPixelsAboveLines obj = liftIO $ getObjectPropertyCInt obj "pixels-above-lines"
setTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagPixelsAboveLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-above-lines" val
constructTextTagPixelsAboveLines :: Int32 -> IO ([Char], GValue)
constructTextTagPixelsAboveLines val = constructObjectPropertyCInt "pixels-above-lines" val
data TextTagPixelsAboveLinesPropertyInfo
instance AttrInfo TextTagPixelsAboveLinesPropertyInfo where
type AttrAllowedOps TextTagPixelsAboveLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagPixelsAboveLinesPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagPixelsAboveLinesPropertyInfo = TextTagK
type AttrGetType TextTagPixelsAboveLinesPropertyInfo = Int32
type AttrLabel TextTagPixelsAboveLinesPropertyInfo = "TextTag::pixels-above-lines"
attrGet _ = getTextTagPixelsAboveLines
attrSet _ = setTextTagPixelsAboveLines
attrConstruct _ = constructTextTagPixelsAboveLines
getTextTagPixelsAboveLinesSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagPixelsAboveLinesSet obj = liftIO $ getObjectPropertyBool obj "pixels-above-lines-set"
setTextTagPixelsAboveLinesSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagPixelsAboveLinesSet obj val = liftIO $ setObjectPropertyBool obj "pixels-above-lines-set" val
constructTextTagPixelsAboveLinesSet :: Bool -> IO ([Char], GValue)
constructTextTagPixelsAboveLinesSet val = constructObjectPropertyBool "pixels-above-lines-set" val
data TextTagPixelsAboveLinesSetPropertyInfo
instance AttrInfo TextTagPixelsAboveLinesSetPropertyInfo where
type AttrAllowedOps TextTagPixelsAboveLinesSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagPixelsAboveLinesSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagPixelsAboveLinesSetPropertyInfo = TextTagK
type AttrGetType TextTagPixelsAboveLinesSetPropertyInfo = Bool
type AttrLabel TextTagPixelsAboveLinesSetPropertyInfo = "TextTag::pixels-above-lines-set"
attrGet _ = getTextTagPixelsAboveLinesSet
attrSet _ = setTextTagPixelsAboveLinesSet
attrConstruct _ = constructTextTagPixelsAboveLinesSet
getTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagPixelsBelowLines obj = liftIO $ getObjectPropertyCInt obj "pixels-below-lines"
setTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagPixelsBelowLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-below-lines" val
constructTextTagPixelsBelowLines :: Int32 -> IO ([Char], GValue)
constructTextTagPixelsBelowLines val = constructObjectPropertyCInt "pixels-below-lines" val
data TextTagPixelsBelowLinesPropertyInfo
instance AttrInfo TextTagPixelsBelowLinesPropertyInfo where
type AttrAllowedOps TextTagPixelsBelowLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagPixelsBelowLinesPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagPixelsBelowLinesPropertyInfo = TextTagK
type AttrGetType TextTagPixelsBelowLinesPropertyInfo = Int32
type AttrLabel TextTagPixelsBelowLinesPropertyInfo = "TextTag::pixels-below-lines"
attrGet _ = getTextTagPixelsBelowLines
attrSet _ = setTextTagPixelsBelowLines
attrConstruct _ = constructTextTagPixelsBelowLines
getTextTagPixelsBelowLinesSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagPixelsBelowLinesSet obj = liftIO $ getObjectPropertyBool obj "pixels-below-lines-set"
setTextTagPixelsBelowLinesSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagPixelsBelowLinesSet obj val = liftIO $ setObjectPropertyBool obj "pixels-below-lines-set" val
constructTextTagPixelsBelowLinesSet :: Bool -> IO ([Char], GValue)
constructTextTagPixelsBelowLinesSet val = constructObjectPropertyBool "pixels-below-lines-set" val
data TextTagPixelsBelowLinesSetPropertyInfo
instance AttrInfo TextTagPixelsBelowLinesSetPropertyInfo where
type AttrAllowedOps TextTagPixelsBelowLinesSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagPixelsBelowLinesSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagPixelsBelowLinesSetPropertyInfo = TextTagK
type AttrGetType TextTagPixelsBelowLinesSetPropertyInfo = Bool
type AttrLabel TextTagPixelsBelowLinesSetPropertyInfo = "TextTag::pixels-below-lines-set"
attrGet _ = getTextTagPixelsBelowLinesSet
attrSet _ = setTextTagPixelsBelowLinesSet
attrConstruct _ = constructTextTagPixelsBelowLinesSet
getTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagPixelsInsideWrap obj = liftIO $ getObjectPropertyCInt obj "pixels-inside-wrap"
setTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagPixelsInsideWrap obj val = liftIO $ setObjectPropertyCInt obj "pixels-inside-wrap" val
constructTextTagPixelsInsideWrap :: Int32 -> IO ([Char], GValue)
constructTextTagPixelsInsideWrap val = constructObjectPropertyCInt "pixels-inside-wrap" val
data TextTagPixelsInsideWrapPropertyInfo
instance AttrInfo TextTagPixelsInsideWrapPropertyInfo where
type AttrAllowedOps TextTagPixelsInsideWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagPixelsInsideWrapPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagPixelsInsideWrapPropertyInfo = TextTagK
type AttrGetType TextTagPixelsInsideWrapPropertyInfo = Int32
type AttrLabel TextTagPixelsInsideWrapPropertyInfo = "TextTag::pixels-inside-wrap"
attrGet _ = getTextTagPixelsInsideWrap
attrSet _ = setTextTagPixelsInsideWrap
attrConstruct _ = constructTextTagPixelsInsideWrap
getTextTagPixelsInsideWrapSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagPixelsInsideWrapSet obj = liftIO $ getObjectPropertyBool obj "pixels-inside-wrap-set"
setTextTagPixelsInsideWrapSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagPixelsInsideWrapSet obj val = liftIO $ setObjectPropertyBool obj "pixels-inside-wrap-set" val
constructTextTagPixelsInsideWrapSet :: Bool -> IO ([Char], GValue)
constructTextTagPixelsInsideWrapSet val = constructObjectPropertyBool "pixels-inside-wrap-set" val
data TextTagPixelsInsideWrapSetPropertyInfo
instance AttrInfo TextTagPixelsInsideWrapSetPropertyInfo where
type AttrAllowedOps TextTagPixelsInsideWrapSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagPixelsInsideWrapSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagPixelsInsideWrapSetPropertyInfo = TextTagK
type AttrGetType TextTagPixelsInsideWrapSetPropertyInfo = Bool
type AttrLabel TextTagPixelsInsideWrapSetPropertyInfo = "TextTag::pixels-inside-wrap-set"
attrGet _ = getTextTagPixelsInsideWrapSet
attrSet _ = setTextTagPixelsInsideWrapSet
attrConstruct _ = constructTextTagPixelsInsideWrapSet
getTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagRightMargin obj = liftIO $ getObjectPropertyCInt obj "right-margin"
setTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagRightMargin obj val = liftIO $ setObjectPropertyCInt obj "right-margin" val
constructTextTagRightMargin :: Int32 -> IO ([Char], GValue)
constructTextTagRightMargin val = constructObjectPropertyCInt "right-margin" val
data TextTagRightMarginPropertyInfo
instance AttrInfo TextTagRightMarginPropertyInfo where
type AttrAllowedOps TextTagRightMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagRightMarginPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagRightMarginPropertyInfo = TextTagK
type AttrGetType TextTagRightMarginPropertyInfo = Int32
type AttrLabel TextTagRightMarginPropertyInfo = "TextTag::right-margin"
attrGet _ = getTextTagRightMargin
attrSet _ = setTextTagRightMargin
attrConstruct _ = constructTextTagRightMargin
getTextTagRightMarginSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagRightMarginSet obj = liftIO $ getObjectPropertyBool obj "right-margin-set"
setTextTagRightMarginSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagRightMarginSet obj val = liftIO $ setObjectPropertyBool obj "right-margin-set" val
constructTextTagRightMarginSet :: Bool -> IO ([Char], GValue)
constructTextTagRightMarginSet val = constructObjectPropertyBool "right-margin-set" val
data TextTagRightMarginSetPropertyInfo
instance AttrInfo TextTagRightMarginSetPropertyInfo where
type AttrAllowedOps TextTagRightMarginSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagRightMarginSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagRightMarginSetPropertyInfo = TextTagK
type AttrGetType TextTagRightMarginSetPropertyInfo = Bool
type AttrLabel TextTagRightMarginSetPropertyInfo = "TextTag::right-margin-set"
attrGet _ = getTextTagRightMarginSet
attrSet _ = setTextTagRightMarginSet
attrConstruct _ = constructTextTagRightMarginSet
getTextTagRise :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagRise obj = liftIO $ getObjectPropertyCInt obj "rise"
setTextTagRise :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagRise obj val = liftIO $ setObjectPropertyCInt obj "rise" val
constructTextTagRise :: Int32 -> IO ([Char], GValue)
constructTextTagRise val = constructObjectPropertyCInt "rise" val
data TextTagRisePropertyInfo
instance AttrInfo TextTagRisePropertyInfo where
type AttrAllowedOps TextTagRisePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagRisePropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagRisePropertyInfo = TextTagK
type AttrGetType TextTagRisePropertyInfo = Int32
type AttrLabel TextTagRisePropertyInfo = "TextTag::rise"
attrGet _ = getTextTagRise
attrSet _ = setTextTagRise
attrConstruct _ = constructTextTagRise
getTextTagRiseSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagRiseSet obj = liftIO $ getObjectPropertyBool obj "rise-set"
setTextTagRiseSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagRiseSet obj val = liftIO $ setObjectPropertyBool obj "rise-set" val
constructTextTagRiseSet :: Bool -> IO ([Char], GValue)
constructTextTagRiseSet val = constructObjectPropertyBool "rise-set" val
data TextTagRiseSetPropertyInfo
instance AttrInfo TextTagRiseSetPropertyInfo where
type AttrAllowedOps TextTagRiseSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagRiseSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagRiseSetPropertyInfo = TextTagK
type AttrGetType TextTagRiseSetPropertyInfo = Bool
type AttrLabel TextTagRiseSetPropertyInfo = "TextTag::rise-set"
attrGet _ = getTextTagRiseSet
attrSet _ = setTextTagRiseSet
attrConstruct _ = constructTextTagRiseSet
getTextTagScale :: (MonadIO m, TextTagK o) => o -> m Double
getTextTagScale obj = liftIO $ getObjectPropertyDouble obj "scale"
setTextTagScale :: (MonadIO m, TextTagK o) => o -> Double -> m ()
setTextTagScale obj val = liftIO $ setObjectPropertyDouble obj "scale" val
constructTextTagScale :: Double -> IO ([Char], GValue)
constructTextTagScale val = constructObjectPropertyDouble "scale" val
data TextTagScalePropertyInfo
instance AttrInfo TextTagScalePropertyInfo where
type AttrAllowedOps TextTagScalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagScalePropertyInfo = (~) Double
type AttrBaseTypeConstraint TextTagScalePropertyInfo = TextTagK
type AttrGetType TextTagScalePropertyInfo = Double
type AttrLabel TextTagScalePropertyInfo = "TextTag::scale"
attrGet _ = getTextTagScale
attrSet _ = setTextTagScale
attrConstruct _ = constructTextTagScale
getTextTagScaleSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagScaleSet obj = liftIO $ getObjectPropertyBool obj "scale-set"
setTextTagScaleSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagScaleSet obj val = liftIO $ setObjectPropertyBool obj "scale-set" val
constructTextTagScaleSet :: Bool -> IO ([Char], GValue)
constructTextTagScaleSet val = constructObjectPropertyBool "scale-set" val
data TextTagScaleSetPropertyInfo
instance AttrInfo TextTagScaleSetPropertyInfo where
type AttrAllowedOps TextTagScaleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagScaleSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagScaleSetPropertyInfo = TextTagK
type AttrGetType TextTagScaleSetPropertyInfo = Bool
type AttrLabel TextTagScaleSetPropertyInfo = "TextTag::scale-set"
attrGet _ = getTextTagScaleSet
attrSet _ = setTextTagScaleSet
attrConstruct _ = constructTextTagScaleSet
getTextTagSize :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagSize obj = liftIO $ getObjectPropertyCInt obj "size"
setTextTagSize :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagSize obj val = liftIO $ setObjectPropertyCInt obj "size" val
constructTextTagSize :: Int32 -> IO ([Char], GValue)
constructTextTagSize val = constructObjectPropertyCInt "size" val
data TextTagSizePropertyInfo
instance AttrInfo TextTagSizePropertyInfo where
type AttrAllowedOps TextTagSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagSizePropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagSizePropertyInfo = TextTagK
type AttrGetType TextTagSizePropertyInfo = Int32
type AttrLabel TextTagSizePropertyInfo = "TextTag::size"
attrGet _ = getTextTagSize
attrSet _ = setTextTagSize
attrConstruct _ = constructTextTagSize
getTextTagSizePoints :: (MonadIO m, TextTagK o) => o -> m Double
getTextTagSizePoints obj = liftIO $ getObjectPropertyDouble obj "size-points"
setTextTagSizePoints :: (MonadIO m, TextTagK o) => o -> Double -> m ()
setTextTagSizePoints obj val = liftIO $ setObjectPropertyDouble obj "size-points" val
constructTextTagSizePoints :: Double -> IO ([Char], GValue)
constructTextTagSizePoints val = constructObjectPropertyDouble "size-points" val
data TextTagSizePointsPropertyInfo
instance AttrInfo TextTagSizePointsPropertyInfo where
type AttrAllowedOps TextTagSizePointsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagSizePointsPropertyInfo = (~) Double
type AttrBaseTypeConstraint TextTagSizePointsPropertyInfo = TextTagK
type AttrGetType TextTagSizePointsPropertyInfo = Double
type AttrLabel TextTagSizePointsPropertyInfo = "TextTag::size-points"
attrGet _ = getTextTagSizePoints
attrSet _ = setTextTagSizePoints
attrConstruct _ = constructTextTagSizePoints
getTextTagSizeSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagSizeSet obj = liftIO $ getObjectPropertyBool obj "size-set"
setTextTagSizeSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagSizeSet obj val = liftIO $ setObjectPropertyBool obj "size-set" val
constructTextTagSizeSet :: Bool -> IO ([Char], GValue)
constructTextTagSizeSet val = constructObjectPropertyBool "size-set" val
data TextTagSizeSetPropertyInfo
instance AttrInfo TextTagSizeSetPropertyInfo where
type AttrAllowedOps TextTagSizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagSizeSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagSizeSetPropertyInfo = TextTagK
type AttrGetType TextTagSizeSetPropertyInfo = Bool
type AttrLabel TextTagSizeSetPropertyInfo = "TextTag::size-set"
attrGet _ = getTextTagSizeSet
attrSet _ = setTextTagSizeSet
attrConstruct _ = constructTextTagSizeSet
getTextTagStretch :: (MonadIO m, TextTagK o) => o -> m Pango.Stretch
getTextTagStretch obj = liftIO $ getObjectPropertyEnum obj "stretch"
setTextTagStretch :: (MonadIO m, TextTagK o) => o -> Pango.Stretch -> m ()
setTextTagStretch obj val = liftIO $ setObjectPropertyEnum obj "stretch" val
constructTextTagStretch :: Pango.Stretch -> IO ([Char], GValue)
constructTextTagStretch val = constructObjectPropertyEnum "stretch" val
data TextTagStretchPropertyInfo
instance AttrInfo TextTagStretchPropertyInfo where
type AttrAllowedOps TextTagStretchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagStretchPropertyInfo = (~) Pango.Stretch
type AttrBaseTypeConstraint TextTagStretchPropertyInfo = TextTagK
type AttrGetType TextTagStretchPropertyInfo = Pango.Stretch
type AttrLabel TextTagStretchPropertyInfo = "TextTag::stretch"
attrGet _ = getTextTagStretch
attrSet _ = setTextTagStretch
attrConstruct _ = constructTextTagStretch
getTextTagStretchSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagStretchSet obj = liftIO $ getObjectPropertyBool obj "stretch-set"
setTextTagStretchSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagStretchSet obj val = liftIO $ setObjectPropertyBool obj "stretch-set" val
constructTextTagStretchSet :: Bool -> IO ([Char], GValue)
constructTextTagStretchSet val = constructObjectPropertyBool "stretch-set" val
data TextTagStretchSetPropertyInfo
instance AttrInfo TextTagStretchSetPropertyInfo where
type AttrAllowedOps TextTagStretchSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagStretchSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagStretchSetPropertyInfo = TextTagK
type AttrGetType TextTagStretchSetPropertyInfo = Bool
type AttrLabel TextTagStretchSetPropertyInfo = "TextTag::stretch-set"
attrGet _ = getTextTagStretchSet
attrSet _ = setTextTagStretchSet
attrConstruct _ = constructTextTagStretchSet
getTextTagStrikethrough :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagStrikethrough obj = liftIO $ getObjectPropertyBool obj "strikethrough"
setTextTagStrikethrough :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagStrikethrough obj val = liftIO $ setObjectPropertyBool obj "strikethrough" val
constructTextTagStrikethrough :: Bool -> IO ([Char], GValue)
constructTextTagStrikethrough val = constructObjectPropertyBool "strikethrough" val
data TextTagStrikethroughPropertyInfo
instance AttrInfo TextTagStrikethroughPropertyInfo where
type AttrAllowedOps TextTagStrikethroughPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagStrikethroughPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagStrikethroughPropertyInfo = TextTagK
type AttrGetType TextTagStrikethroughPropertyInfo = Bool
type AttrLabel TextTagStrikethroughPropertyInfo = "TextTag::strikethrough"
attrGet _ = getTextTagStrikethrough
attrSet _ = setTextTagStrikethrough
attrConstruct _ = constructTextTagStrikethrough
getTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA
getTextTagStrikethroughRgba obj = liftIO $ getObjectPropertyBoxed obj "strikethrough-rgba" Gdk.RGBA
setTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m ()
setTextTagStrikethroughRgba obj val = liftIO $ setObjectPropertyBoxed obj "strikethrough-rgba" val
constructTextTagStrikethroughRgba :: Gdk.RGBA -> IO ([Char], GValue)
constructTextTagStrikethroughRgba val = constructObjectPropertyBoxed "strikethrough-rgba" val
data TextTagStrikethroughRgbaPropertyInfo
instance AttrInfo TextTagStrikethroughRgbaPropertyInfo where
type AttrAllowedOps TextTagStrikethroughRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagStrikethroughRgbaPropertyInfo = (~) Gdk.RGBA
type AttrBaseTypeConstraint TextTagStrikethroughRgbaPropertyInfo = TextTagK
type AttrGetType TextTagStrikethroughRgbaPropertyInfo = Gdk.RGBA
type AttrLabel TextTagStrikethroughRgbaPropertyInfo = "TextTag::strikethrough-rgba"
attrGet _ = getTextTagStrikethroughRgba
attrSet _ = setTextTagStrikethroughRgba
attrConstruct _ = constructTextTagStrikethroughRgba
getTextTagStrikethroughRgbaSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagStrikethroughRgbaSet obj = liftIO $ getObjectPropertyBool obj "strikethrough-rgba-set"
setTextTagStrikethroughRgbaSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagStrikethroughRgbaSet obj val = liftIO $ setObjectPropertyBool obj "strikethrough-rgba-set" val
constructTextTagStrikethroughRgbaSet :: Bool -> IO ([Char], GValue)
constructTextTagStrikethroughRgbaSet val = constructObjectPropertyBool "strikethrough-rgba-set" val
data TextTagStrikethroughRgbaSetPropertyInfo
instance AttrInfo TextTagStrikethroughRgbaSetPropertyInfo where
type AttrAllowedOps TextTagStrikethroughRgbaSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagStrikethroughRgbaSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagStrikethroughRgbaSetPropertyInfo = TextTagK
type AttrGetType TextTagStrikethroughRgbaSetPropertyInfo = Bool
type AttrLabel TextTagStrikethroughRgbaSetPropertyInfo = "TextTag::strikethrough-rgba-set"
attrGet _ = getTextTagStrikethroughRgbaSet
attrSet _ = setTextTagStrikethroughRgbaSet
attrConstruct _ = constructTextTagStrikethroughRgbaSet
getTextTagStrikethroughSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagStrikethroughSet obj = liftIO $ getObjectPropertyBool obj "strikethrough-set"
setTextTagStrikethroughSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagStrikethroughSet obj val = liftIO $ setObjectPropertyBool obj "strikethrough-set" val
constructTextTagStrikethroughSet :: Bool -> IO ([Char], GValue)
constructTextTagStrikethroughSet val = constructObjectPropertyBool "strikethrough-set" val
data TextTagStrikethroughSetPropertyInfo
instance AttrInfo TextTagStrikethroughSetPropertyInfo where
type AttrAllowedOps TextTagStrikethroughSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagStrikethroughSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagStrikethroughSetPropertyInfo = TextTagK
type AttrGetType TextTagStrikethroughSetPropertyInfo = Bool
type AttrLabel TextTagStrikethroughSetPropertyInfo = "TextTag::strikethrough-set"
attrGet _ = getTextTagStrikethroughSet
attrSet _ = setTextTagStrikethroughSet
attrConstruct _ = constructTextTagStrikethroughSet
getTextTagStyle :: (MonadIO m, TextTagK o) => o -> m Pango.Style
getTextTagStyle obj = liftIO $ getObjectPropertyEnum obj "style"
setTextTagStyle :: (MonadIO m, TextTagK o) => o -> Pango.Style -> m ()
setTextTagStyle obj val = liftIO $ setObjectPropertyEnum obj "style" val
constructTextTagStyle :: Pango.Style -> IO ([Char], GValue)
constructTextTagStyle val = constructObjectPropertyEnum "style" val
data TextTagStylePropertyInfo
instance AttrInfo TextTagStylePropertyInfo where
type AttrAllowedOps TextTagStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagStylePropertyInfo = (~) Pango.Style
type AttrBaseTypeConstraint TextTagStylePropertyInfo = TextTagK
type AttrGetType TextTagStylePropertyInfo = Pango.Style
type AttrLabel TextTagStylePropertyInfo = "TextTag::style"
attrGet _ = getTextTagStyle
attrSet _ = setTextTagStyle
attrConstruct _ = constructTextTagStyle
getTextTagStyleSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagStyleSet obj = liftIO $ getObjectPropertyBool obj "style-set"
setTextTagStyleSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagStyleSet obj val = liftIO $ setObjectPropertyBool obj "style-set" val
constructTextTagStyleSet :: Bool -> IO ([Char], GValue)
constructTextTagStyleSet val = constructObjectPropertyBool "style-set" val
data TextTagStyleSetPropertyInfo
instance AttrInfo TextTagStyleSetPropertyInfo where
type AttrAllowedOps TextTagStyleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagStyleSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagStyleSetPropertyInfo = TextTagK
type AttrGetType TextTagStyleSetPropertyInfo = Bool
type AttrLabel TextTagStyleSetPropertyInfo = "TextTag::style-set"
attrGet _ = getTextTagStyleSet
attrSet _ = setTextTagStyleSet
attrConstruct _ = constructTextTagStyleSet
getTextTagTabs :: (MonadIO m, TextTagK o) => o -> m Pango.TabArray
getTextTagTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray
setTextTagTabs :: (MonadIO m, TextTagK o) => o -> Pango.TabArray -> m ()
setTextTagTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val
constructTextTagTabs :: Pango.TabArray -> IO ([Char], GValue)
constructTextTagTabs val = constructObjectPropertyBoxed "tabs" val
data TextTagTabsPropertyInfo
instance AttrInfo TextTagTabsPropertyInfo where
type AttrAllowedOps TextTagTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagTabsPropertyInfo = (~) Pango.TabArray
type AttrBaseTypeConstraint TextTagTabsPropertyInfo = TextTagK
type AttrGetType TextTagTabsPropertyInfo = Pango.TabArray
type AttrLabel TextTagTabsPropertyInfo = "TextTag::tabs"
attrGet _ = getTextTagTabs
attrSet _ = setTextTagTabs
attrConstruct _ = constructTextTagTabs
getTextTagTabsSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagTabsSet obj = liftIO $ getObjectPropertyBool obj "tabs-set"
setTextTagTabsSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagTabsSet obj val = liftIO $ setObjectPropertyBool obj "tabs-set" val
constructTextTagTabsSet :: Bool -> IO ([Char], GValue)
constructTextTagTabsSet val = constructObjectPropertyBool "tabs-set" val
data TextTagTabsSetPropertyInfo
instance AttrInfo TextTagTabsSetPropertyInfo where
type AttrAllowedOps TextTagTabsSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagTabsSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagTabsSetPropertyInfo = TextTagK
type AttrGetType TextTagTabsSetPropertyInfo = Bool
type AttrLabel TextTagTabsSetPropertyInfo = "TextTag::tabs-set"
attrGet _ = getTextTagTabsSet
attrSet _ = setTextTagTabsSet
attrConstruct _ = constructTextTagTabsSet
getTextTagUnderline :: (MonadIO m, TextTagK o) => o -> m Pango.Underline
getTextTagUnderline obj = liftIO $ getObjectPropertyEnum obj "underline"
setTextTagUnderline :: (MonadIO m, TextTagK o) => o -> Pango.Underline -> m ()
setTextTagUnderline obj val = liftIO $ setObjectPropertyEnum obj "underline" val
constructTextTagUnderline :: Pango.Underline -> IO ([Char], GValue)
constructTextTagUnderline val = constructObjectPropertyEnum "underline" val
data TextTagUnderlinePropertyInfo
instance AttrInfo TextTagUnderlinePropertyInfo where
type AttrAllowedOps TextTagUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagUnderlinePropertyInfo = (~) Pango.Underline
type AttrBaseTypeConstraint TextTagUnderlinePropertyInfo = TextTagK
type AttrGetType TextTagUnderlinePropertyInfo = Pango.Underline
type AttrLabel TextTagUnderlinePropertyInfo = "TextTag::underline"
attrGet _ = getTextTagUnderline
attrSet _ = setTextTagUnderline
attrConstruct _ = constructTextTagUnderline
getTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA
getTextTagUnderlineRgba obj = liftIO $ getObjectPropertyBoxed obj "underline-rgba" Gdk.RGBA
setTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m ()
setTextTagUnderlineRgba obj val = liftIO $ setObjectPropertyBoxed obj "underline-rgba" val
constructTextTagUnderlineRgba :: Gdk.RGBA -> IO ([Char], GValue)
constructTextTagUnderlineRgba val = constructObjectPropertyBoxed "underline-rgba" val
data TextTagUnderlineRgbaPropertyInfo
instance AttrInfo TextTagUnderlineRgbaPropertyInfo where
type AttrAllowedOps TextTagUnderlineRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagUnderlineRgbaPropertyInfo = (~) Gdk.RGBA
type AttrBaseTypeConstraint TextTagUnderlineRgbaPropertyInfo = TextTagK
type AttrGetType TextTagUnderlineRgbaPropertyInfo = Gdk.RGBA
type AttrLabel TextTagUnderlineRgbaPropertyInfo = "TextTag::underline-rgba"
attrGet _ = getTextTagUnderlineRgba
attrSet _ = setTextTagUnderlineRgba
attrConstruct _ = constructTextTagUnderlineRgba
getTextTagUnderlineRgbaSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagUnderlineRgbaSet obj = liftIO $ getObjectPropertyBool obj "underline-rgba-set"
setTextTagUnderlineRgbaSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagUnderlineRgbaSet obj val = liftIO $ setObjectPropertyBool obj "underline-rgba-set" val
constructTextTagUnderlineRgbaSet :: Bool -> IO ([Char], GValue)
constructTextTagUnderlineRgbaSet val = constructObjectPropertyBool "underline-rgba-set" val
data TextTagUnderlineRgbaSetPropertyInfo
instance AttrInfo TextTagUnderlineRgbaSetPropertyInfo where
type AttrAllowedOps TextTagUnderlineRgbaSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagUnderlineRgbaSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagUnderlineRgbaSetPropertyInfo = TextTagK
type AttrGetType TextTagUnderlineRgbaSetPropertyInfo = Bool
type AttrLabel TextTagUnderlineRgbaSetPropertyInfo = "TextTag::underline-rgba-set"
attrGet _ = getTextTagUnderlineRgbaSet
attrSet _ = setTextTagUnderlineRgbaSet
attrConstruct _ = constructTextTagUnderlineRgbaSet
getTextTagUnderlineSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagUnderlineSet obj = liftIO $ getObjectPropertyBool obj "underline-set"
setTextTagUnderlineSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagUnderlineSet obj val = liftIO $ setObjectPropertyBool obj "underline-set" val
constructTextTagUnderlineSet :: Bool -> IO ([Char], GValue)
constructTextTagUnderlineSet val = constructObjectPropertyBool "underline-set" val
data TextTagUnderlineSetPropertyInfo
instance AttrInfo TextTagUnderlineSetPropertyInfo where
type AttrAllowedOps TextTagUnderlineSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagUnderlineSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagUnderlineSetPropertyInfo = TextTagK
type AttrGetType TextTagUnderlineSetPropertyInfo = Bool
type AttrLabel TextTagUnderlineSetPropertyInfo = "TextTag::underline-set"
attrGet _ = getTextTagUnderlineSet
attrSet _ = setTextTagUnderlineSet
attrConstruct _ = constructTextTagUnderlineSet
getTextTagVariant :: (MonadIO m, TextTagK o) => o -> m Pango.Variant
getTextTagVariant obj = liftIO $ getObjectPropertyEnum obj "variant"
setTextTagVariant :: (MonadIO m, TextTagK o) => o -> Pango.Variant -> m ()
setTextTagVariant obj val = liftIO $ setObjectPropertyEnum obj "variant" val
constructTextTagVariant :: Pango.Variant -> IO ([Char], GValue)
constructTextTagVariant val = constructObjectPropertyEnum "variant" val
data TextTagVariantPropertyInfo
instance AttrInfo TextTagVariantPropertyInfo where
type AttrAllowedOps TextTagVariantPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagVariantPropertyInfo = (~) Pango.Variant
type AttrBaseTypeConstraint TextTagVariantPropertyInfo = TextTagK
type AttrGetType TextTagVariantPropertyInfo = Pango.Variant
type AttrLabel TextTagVariantPropertyInfo = "TextTag::variant"
attrGet _ = getTextTagVariant
attrSet _ = setTextTagVariant
attrConstruct _ = constructTextTagVariant
getTextTagVariantSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagVariantSet obj = liftIO $ getObjectPropertyBool obj "variant-set"
setTextTagVariantSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagVariantSet obj val = liftIO $ setObjectPropertyBool obj "variant-set" val
constructTextTagVariantSet :: Bool -> IO ([Char], GValue)
constructTextTagVariantSet val = constructObjectPropertyBool "variant-set" val
data TextTagVariantSetPropertyInfo
instance AttrInfo TextTagVariantSetPropertyInfo where
type AttrAllowedOps TextTagVariantSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagVariantSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagVariantSetPropertyInfo = TextTagK
type AttrGetType TextTagVariantSetPropertyInfo = Bool
type AttrLabel TextTagVariantSetPropertyInfo = "TextTag::variant-set"
attrGet _ = getTextTagVariantSet
attrSet _ = setTextTagVariantSet
attrConstruct _ = constructTextTagVariantSet
getTextTagWeight :: (MonadIO m, TextTagK o) => o -> m Int32
getTextTagWeight obj = liftIO $ getObjectPropertyCInt obj "weight"
setTextTagWeight :: (MonadIO m, TextTagK o) => o -> Int32 -> m ()
setTextTagWeight obj val = liftIO $ setObjectPropertyCInt obj "weight" val
constructTextTagWeight :: Int32 -> IO ([Char], GValue)
constructTextTagWeight val = constructObjectPropertyCInt "weight" val
data TextTagWeightPropertyInfo
instance AttrInfo TextTagWeightPropertyInfo where
type AttrAllowedOps TextTagWeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagWeightPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TextTagWeightPropertyInfo = TextTagK
type AttrGetType TextTagWeightPropertyInfo = Int32
type AttrLabel TextTagWeightPropertyInfo = "TextTag::weight"
attrGet _ = getTextTagWeight
attrSet _ = setTextTagWeight
attrConstruct _ = constructTextTagWeight
getTextTagWeightSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagWeightSet obj = liftIO $ getObjectPropertyBool obj "weight-set"
setTextTagWeightSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagWeightSet obj val = liftIO $ setObjectPropertyBool obj "weight-set" val
constructTextTagWeightSet :: Bool -> IO ([Char], GValue)
constructTextTagWeightSet val = constructObjectPropertyBool "weight-set" val
data TextTagWeightSetPropertyInfo
instance AttrInfo TextTagWeightSetPropertyInfo where
type AttrAllowedOps TextTagWeightSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagWeightSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagWeightSetPropertyInfo = TextTagK
type AttrGetType TextTagWeightSetPropertyInfo = Bool
type AttrLabel TextTagWeightSetPropertyInfo = "TextTag::weight-set"
attrGet _ = getTextTagWeightSet
attrSet _ = setTextTagWeightSet
attrConstruct _ = constructTextTagWeightSet
getTextTagWrapMode :: (MonadIO m, TextTagK o) => o -> m WrapMode
getTextTagWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode"
setTextTagWrapMode :: (MonadIO m, TextTagK o) => o -> WrapMode -> m ()
setTextTagWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val
constructTextTagWrapMode :: WrapMode -> IO ([Char], GValue)
constructTextTagWrapMode val = constructObjectPropertyEnum "wrap-mode" val
data TextTagWrapModePropertyInfo
instance AttrInfo TextTagWrapModePropertyInfo where
type AttrAllowedOps TextTagWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagWrapModePropertyInfo = (~) WrapMode
type AttrBaseTypeConstraint TextTagWrapModePropertyInfo = TextTagK
type AttrGetType TextTagWrapModePropertyInfo = WrapMode
type AttrLabel TextTagWrapModePropertyInfo = "TextTag::wrap-mode"
attrGet _ = getTextTagWrapMode
attrSet _ = setTextTagWrapMode
attrConstruct _ = constructTextTagWrapMode
getTextTagWrapModeSet :: (MonadIO m, TextTagK o) => o -> m Bool
getTextTagWrapModeSet obj = liftIO $ getObjectPropertyBool obj "wrap-mode-set"
setTextTagWrapModeSet :: (MonadIO m, TextTagK o) => o -> Bool -> m ()
setTextTagWrapModeSet obj val = liftIO $ setObjectPropertyBool obj "wrap-mode-set" val
constructTextTagWrapModeSet :: Bool -> IO ([Char], GValue)
constructTextTagWrapModeSet val = constructObjectPropertyBool "wrap-mode-set" val
data TextTagWrapModeSetPropertyInfo
instance AttrInfo TextTagWrapModeSetPropertyInfo where
type AttrAllowedOps TextTagWrapModeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextTagWrapModeSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TextTagWrapModeSetPropertyInfo = TextTagK
type AttrGetType TextTagWrapModeSetPropertyInfo = Bool
type AttrLabel TextTagWrapModeSetPropertyInfo = "TextTag::wrap-mode-set"
attrGet _ = getTextTagWrapModeSet
attrSet _ = setTextTagWrapModeSet
attrConstruct _ = constructTextTagWrapModeSet
type instance AttributeList TextTag = TextTagAttributeList
type TextTagAttributeList = ('[ '("accumulative-margin", TextTagAccumulativeMarginPropertyInfo), '("background", TextTagBackgroundPropertyInfo), '("background-full-height", TextTagBackgroundFullHeightPropertyInfo), '("background-full-height-set", TextTagBackgroundFullHeightSetPropertyInfo), '("background-gdk", TextTagBackgroundGdkPropertyInfo), '("background-rgba", TextTagBackgroundRgbaPropertyInfo), '("background-set", TextTagBackgroundSetPropertyInfo), '("direction", TextTagDirectionPropertyInfo), '("editable", TextTagEditablePropertyInfo), '("editable-set", TextTagEditableSetPropertyInfo), '("fallback", TextTagFallbackPropertyInfo), '("fallback-set", TextTagFallbackSetPropertyInfo), '("family", TextTagFamilyPropertyInfo), '("family-set", TextTagFamilySetPropertyInfo), '("font", TextTagFontPropertyInfo), '("font-desc", TextTagFontDescPropertyInfo), '("foreground", TextTagForegroundPropertyInfo), '("foreground-gdk", TextTagForegroundGdkPropertyInfo), '("foreground-rgba", TextTagForegroundRgbaPropertyInfo), '("foreground-set", TextTagForegroundSetPropertyInfo), '("indent", TextTagIndentPropertyInfo), '("indent-set", TextTagIndentSetPropertyInfo), '("invisible", TextTagInvisiblePropertyInfo), '("invisible-set", TextTagInvisibleSetPropertyInfo), '("justification", TextTagJustificationPropertyInfo), '("justification-set", TextTagJustificationSetPropertyInfo), '("language", TextTagLanguagePropertyInfo), '("language-set", TextTagLanguageSetPropertyInfo), '("left-margin", TextTagLeftMarginPropertyInfo), '("left-margin-set", TextTagLeftMarginSetPropertyInfo), '("letter-spacing", TextTagLetterSpacingPropertyInfo), '("letter-spacing-set", TextTagLetterSpacingSetPropertyInfo), '("name", TextTagNamePropertyInfo), '("paragraph-background", TextTagParagraphBackgroundPropertyInfo), '("paragraph-background-gdk", TextTagParagraphBackgroundGdkPropertyInfo), '("paragraph-background-rgba", TextTagParagraphBackgroundRgbaPropertyInfo), '("paragraph-background-set", TextTagParagraphBackgroundSetPropertyInfo), '("pixels-above-lines", TextTagPixelsAboveLinesPropertyInfo), '("pixels-above-lines-set", TextTagPixelsAboveLinesSetPropertyInfo), '("pixels-below-lines", TextTagPixelsBelowLinesPropertyInfo), '("pixels-below-lines-set", TextTagPixelsBelowLinesSetPropertyInfo), '("pixels-inside-wrap", TextTagPixelsInsideWrapPropertyInfo), '("pixels-inside-wrap-set", TextTagPixelsInsideWrapSetPropertyInfo), '("right-margin", TextTagRightMarginPropertyInfo), '("right-margin-set", TextTagRightMarginSetPropertyInfo), '("rise", TextTagRisePropertyInfo), '("rise-set", TextTagRiseSetPropertyInfo), '("scale", TextTagScalePropertyInfo), '("scale-set", TextTagScaleSetPropertyInfo), '("size", TextTagSizePropertyInfo), '("size-points", TextTagSizePointsPropertyInfo), '("size-set", TextTagSizeSetPropertyInfo), '("stretch", TextTagStretchPropertyInfo), '("stretch-set", TextTagStretchSetPropertyInfo), '("strikethrough", TextTagStrikethroughPropertyInfo), '("strikethrough-rgba", TextTagStrikethroughRgbaPropertyInfo), '("strikethrough-rgba-set", TextTagStrikethroughRgbaSetPropertyInfo), '("strikethrough-set", TextTagStrikethroughSetPropertyInfo), '("style", TextTagStylePropertyInfo), '("style-set", TextTagStyleSetPropertyInfo), '("tabs", TextTagTabsPropertyInfo), '("tabs-set", TextTagTabsSetPropertyInfo), '("underline", TextTagUnderlinePropertyInfo), '("underline-rgba", TextTagUnderlineRgbaPropertyInfo), '("underline-rgba-set", TextTagUnderlineRgbaSetPropertyInfo), '("underline-set", TextTagUnderlineSetPropertyInfo), '("variant", TextTagVariantPropertyInfo), '("variant-set", TextTagVariantSetPropertyInfo), '("weight", TextTagWeightPropertyInfo), '("weight-set", TextTagWeightSetPropertyInfo), '("wrap-mode", TextTagWrapModePropertyInfo), '("wrap-mode-set", TextTagWrapModeSetPropertyInfo)] :: [(Symbol, *)])
data TextTagEventSignalInfo
instance SignalInfo TextTagEventSignalInfo where
type HaskellCallbackType TextTagEventSignalInfo = TextTagEventCallback
connectSignal _ = connectTextTagEvent
type instance SignalList TextTag = TextTagSignalList
type TextTagSignalList = ('[ '("event", TextTagEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_text_tag_new" gtk_text_tag_new ::
CString ->
IO (Ptr TextTag)
textTagNew ::
(MonadIO m) =>
Maybe (T.Text) ->
m TextTag
textTagNew name = liftIO $ do
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
result <- gtk_text_tag_new maybeName
checkUnexpectedReturnNULL "gtk_text_tag_new" result
result' <- (wrapObject TextTag) result
freeMem maybeName
return result'
foreign import ccall "gtk_text_tag_event" gtk_text_tag_event ::
Ptr TextTag ->
Ptr GObject.Object ->
Ptr Gdk.Event ->
Ptr TextIter ->
IO CInt
textTagEvent ::
(MonadIO m, TextTagK a, GObject.ObjectK b) =>
a ->
b ->
Gdk.Event ->
TextIter ->
m Bool
textTagEvent _obj event_object event iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event_object' = unsafeManagedPtrCastPtr event_object
let event' = unsafeManagedPtrGetPtr event
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_tag_event _obj' event_object' event' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event_object
touchManagedPtr event
touchManagedPtr iter
return result'
foreign import ccall "gtk_text_tag_get_priority" gtk_text_tag_get_priority ::
Ptr TextTag ->
IO Int32
textTagGetPriority ::
(MonadIO m, TextTagK a) =>
a ->
m Int32
textTagGetPriority _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_tag_get_priority _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_text_tag_set_priority" gtk_text_tag_set_priority ::
Ptr TextTag ->
Int32 ->
IO ()
textTagSetPriority ::
(MonadIO m, TextTagK a) =>
a ->
Int32 ->
m ()
textTagSetPriority _obj priority = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_tag_set_priority _obj' priority
touchManagedPtr _obj
return ()