{-# LINE 2 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
module Graphics.UI.Gtk.ModelView.CellRendererText (
CellRendererText,
CellRendererTextClass,
castToCellRendererText, gTypeCellRendererText,
toCellRendererText,
cellRendererTextNew,
cellRendererTextSetFixedHeightFromFont,
cellText,
cellTextMarkup,
cellTextSingleParagraphMode,
cellTextBackground,
cellTextBackgroundColor,
cellTextBackgroundSet,
cellTextForeground,
cellTextForegroundColor,
cellTextForegroundSet,
cellTextEditable,
cellTextEditableSet,
cellTextFont,
cellTextFontDesc,
cellTextFamily,
cellTextFamilySet,
cellTextStyle,
cellTextStyleSet,
cellTextVariant,
cellTextVariantSet,
cellTextWeight,
cellTextWeightSet,
cellTextStretch,
cellTextStretchSet,
cellTextSize,
cellTextSizePoints,
cellTextSizeSet,
cellTextScale,
cellTextScaleSet,
cellTextRise,
cellTextRiseSet,
cellTextStrikethrough,
cellTextStrikethroughSet,
cellTextUnderline,
cellTextUnderlineSet,
cellTextLanguage,
cellTextLanguageSet,
cellTextEllipsize,
cellTextEllipsizeSet,
cellTextWidthChars,
cellTextWrapMode,
cellTextWrapWidth,
cellTextAlignment,
edited,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Properties
import System.Glib.Attributes (Attr, WriteAttr)
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 129 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 130 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
import Graphics.UI.Gtk.ModelView.Types
{-# LINE 131 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
import Graphics.UI.Gtk.General.Structs ()
import Graphics.Rendering.Pango.Enums
import Graphics.Rendering.Pango.BasicTypes ( FontDescription(..),
makeNewFontDescription )
import Graphics.Rendering.Pango.Layout ( LayoutAlignment, LayoutWrapMode )
{-# LINE 138 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellRendererTextNew :: IO CellRendererText
cellRendererTextNew :: IO CellRendererText
cellRendererTextNew =
(ForeignPtr CellRendererText -> CellRendererText,
FinalizerPtr CellRendererText)
-> IO (Ptr CellRendererText) -> IO CellRendererText
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr CellRendererText -> CellRendererText,
FinalizerPtr CellRendererText)
forall {a}.
(ForeignPtr CellRendererText -> CellRendererText, FinalizerPtr a)
mkCellRendererText (IO (Ptr CellRendererText) -> IO CellRendererText)
-> IO (Ptr CellRendererText) -> IO CellRendererText
forall a b. (a -> b) -> a -> b
$
(Ptr CellRenderer -> Ptr CellRendererText)
-> IO (Ptr CellRenderer) -> IO (Ptr CellRendererText)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr CellRenderer -> Ptr CellRendererText
forall a b. Ptr a -> Ptr b
castPtr :: Ptr CellRenderer -> Ptr CellRendererText) (IO (Ptr CellRenderer) -> IO (Ptr CellRendererText))
-> IO (Ptr CellRenderer) -> IO (Ptr CellRendererText)
forall a b. (a -> b) -> a -> b
$
IO (Ptr CellRenderer)
gtk_cell_renderer_text_new
{-# LINE 149 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellRendererTextSetFixedHeightFromFont :: CellRendererTextClass self => self
-> Int
-> IO ()
cellRendererTextSetFixedHeightFromFont :: forall self. CellRendererTextClass self => self -> Int -> IO ()
cellRendererTextSetFixedHeightFromFont self
self Int
numberOfRows =
(\(CellRendererText ForeignPtr CellRendererText
arg1) CInt
arg2 -> ForeignPtr CellRendererText
-> (Ptr CellRendererText -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr CellRendererText
arg1 ((Ptr CellRendererText -> IO ()) -> IO ())
-> (Ptr CellRendererText -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CellRendererText
argPtr1 ->Ptr CellRendererText -> CInt -> IO ()
gtk_cell_renderer_text_set_fixed_height_from_font Ptr CellRendererText
argPtr1 CInt
arg2)
{-# LINE 168 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
(toCellRendererText self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
numberOfRows)
cellTextBackground :: (CellRendererClass self, GlibString string) => WriteAttr self string
cellTextBackground :: forall self string.
(CellRendererClass self, GlibString string) =>
WriteAttr self string
cellTextBackground = String -> WriteAttr self string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> WriteAttr gobj string
writeAttrFromStringProperty String
"background"
cellTextBackgroundColor :: CellRendererClass self => Attr self Color
cellTextBackgroundColor :: forall self. CellRendererClass self => Attr self Color
cellTextBackgroundColor = String -> GType -> Attr self Color
forall gobj boxed.
(GObjectClass gobj, Storable boxed) =>
String -> GType -> Attr gobj boxed
newAttrFromBoxedStorableProperty String
"background-gdk"
GType
gdk_color_get_type
{-# LINE 187 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellTextBackgroundSet :: CellRendererClass self => Attr self Bool
cellTextBackgroundSet :: forall self. CellRendererClass self => Attr self Bool
cellTextBackgroundSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"background-set"
cellTextEditable :: CellRendererTextClass self => Attr self Bool
cellTextEditable :: forall self. CellRendererTextClass self => Attr self Bool
cellTextEditable = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"editable"
cellTextEditableSet :: CellRendererTextClass self => Attr self Bool
cellTextEditableSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextEditableSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"editable-set"
cellTextEllipsize :: CellRendererTextClass self => Attr self EllipsizeMode
cellTextEllipsize :: forall self. CellRendererTextClass self => Attr self EllipsizeMode
cellTextEllipsize = String -> GType -> Attr self EllipsizeMode
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"ellipsize"
GType
pango_ellipsize_mode_get_type
{-# LINE 217 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellTextEllipsizeSet :: CellRendererTextClass self => Attr self Bool
cellTextEllipsizeSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextEllipsizeSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"ellipsize-set"
cellTextFamily :: (CellRendererTextClass self, GlibString string) => Attr self string
cellTextFamily :: forall self string.
(CellRendererTextClass self, GlibString string) =>
Attr self string
cellTextFamily = String -> Attr self string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj string
newAttrFromStringProperty String
"family"
cellTextFamilySet :: CellRendererTextClass self => Attr self Bool
cellTextFamilySet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextFamilySet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"family-set"
cellTextFont :: (CellRendererTextClass self, GlibString string) => Attr self string
cellTextFont :: forall self string.
(CellRendererTextClass self, GlibString string) =>
Attr self string
cellTextFont = String -> Attr self string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj string
newAttrFromStringProperty String
"font"
cellTextFontDesc :: CellRendererTextClass self => Attr self FontDescription
cellTextFontDesc :: forall self.
CellRendererTextClass self =>
Attr self FontDescription
cellTextFontDesc = (Ptr FontDescription -> IO FontDescription)
-> (FontDescription -> (Ptr FontDescription -> IO ()) -> IO ())
-> String
-> GType
-> Attr self FontDescription
forall gobj boxed.
GObjectClass gobj =>
(Ptr boxed -> IO boxed)
-> (boxed -> (Ptr boxed -> IO ()) -> IO ())
-> String
-> GType
-> Attr gobj boxed
newAttrFromBoxedOpaqueProperty Ptr FontDescription -> IO FontDescription
makeNewFontDescription
(\(FontDescription ForeignPtr FontDescription
fd) Ptr FontDescription -> IO ()
act -> ForeignPtr FontDescription
-> (Ptr FontDescription -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontDescription
fd Ptr FontDescription -> IO ()
act) String
"font-desc"
GType
pango_font_description_get_type
{-# LINE 247 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellTextForeground :: (CellRendererClass self, GlibString string) => WriteAttr self string
cellTextForeground :: forall self string.
(CellRendererClass self, GlibString string) =>
WriteAttr self string
cellTextForeground = String -> WriteAttr self string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> WriteAttr gobj string
writeAttrFromStringProperty String
"foreground"
cellTextForegroundColor :: CellRendererClass self => Attr self Color
cellTextForegroundColor :: forall self. CellRendererClass self => Attr self Color
cellTextForegroundColor = String -> GType -> Attr self Color
forall gobj boxed.
(GObjectClass gobj, Storable boxed) =>
String -> GType -> Attr gobj boxed
newAttrFromBoxedStorableProperty String
"foreground-gdk"
GType
gdk_color_get_type
{-# LINE 260 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellTextForegroundSet :: CellRendererClass self => Attr self Bool
cellTextForegroundSet :: forall self. CellRendererClass self => Attr self Bool
cellTextForegroundSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"foreground-set"
cellTextLanguage :: (CellRendererTextClass self, GlibString string) => Attr self (Maybe string)
cellTextLanguage :: forall self string.
(CellRendererTextClass self, GlibString string) =>
Attr self (Maybe string)
cellTextLanguage = String -> Attr self (Maybe string)
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj (Maybe string)
newAttrFromMaybeStringProperty String
"language"
cellTextLanguageSet :: CellRendererTextClass self => Attr self Bool
cellTextLanguageSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextLanguageSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"language-set"
cellTextMarkup :: (CellRendererTextClass cr, GlibString string) => WriteAttr cr (Maybe string)
cellTextMarkup :: forall cr string.
(CellRendererTextClass cr, GlibString string) =>
WriteAttr cr (Maybe string)
cellTextMarkup = String -> WriteAttr cr (Maybe string)
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> WriteAttr gobj (Maybe string)
writeAttrFromMaybeStringProperty String
"markup"
cellTextRise :: CellRendererTextClass self => Attr self Int
cellTextRise :: forall self. CellRendererTextClass self => Attr self Int
cellTextRise = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"rise"
cellTextRiseSet :: CellRendererTextClass self => Attr self Bool
cellTextRiseSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextRiseSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"rise-set"
cellTextScale :: CellRendererTextClass self => Attr self Double
cellTextScale :: forall self. CellRendererTextClass self => Attr self Double
cellTextScale = String -> Attr self Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"scale"
cellTextScaleSet :: CellRendererTextClass self => Attr self Bool
cellTextScaleSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextScaleSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"scale-set"
cellTextSingleParagraphMode :: CellRendererTextClass self => Attr self Bool
cellTextSingleParagraphMode :: forall self. CellRendererTextClass self => Attr self Bool
cellTextSingleParagraphMode = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"single-paragraph-mode"
cellTextSize :: CellRendererTextClass self => Attr self Double
cellTextSize :: forall self. CellRendererTextClass self => Attr self Double
cellTextSize = String -> Attr self Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"size-points"
cellTextSizePoints :: CellRendererTextClass self => Attr self Double
cellTextSizePoints :: forall self. CellRendererTextClass self => Attr self Double
cellTextSizePoints = String -> Attr self Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"size-points"
cellTextSizeSet :: CellRendererTextClass self => Attr self Bool
cellTextSizeSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextSizeSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"size-set"
cellTextStretch :: CellRendererTextClass self => Attr self Stretch
cellTextStretch :: forall self. CellRendererTextClass self => Attr self Stretch
cellTextStretch = String -> GType -> Attr self Stretch
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"stretch"
GType
pango_stretch_get_type
{-# LINE 344 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellTextStretchSet :: CellRendererTextClass self => Attr self Bool
cellTextStretchSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextStretchSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"stretch-set"
cellTextStrikethrough :: CellRendererTextClass self => Attr self Bool
cellTextStrikethrough :: forall self. CellRendererTextClass self => Attr self Bool
cellTextStrikethrough = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"strikethrough"
cellTextStrikethroughSet :: CellRendererTextClass self => Attr self Bool
cellTextStrikethroughSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextStrikethroughSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"strikethrough-set"
cellTextStyle :: CellRendererTextClass self => Attr self FontStyle
cellTextStyle :: forall self. CellRendererTextClass self => Attr self FontStyle
cellTextStyle = String -> GType -> Attr self FontStyle
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"style"
GType
pango_style_get_type
{-# LINE 365 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellTextStyleSet :: CellRendererTextClass self => Attr self Bool
cellTextStyleSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextStyleSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"style-set"
cellText :: (CellRendererTextClass cr, GlibString string) => Attr cr string
cellText :: forall self string.
(CellRendererTextClass self, GlibString string) =>
Attr self string
cellText = String -> Attr cr string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj string
newAttrFromStringProperty String
"text"
cellTextUnderline :: CellRendererTextClass self => Attr self Underline
cellTextUnderline :: forall self. CellRendererTextClass self => Attr self Underline
cellTextUnderline = String -> GType -> Attr self Underline
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"underline"
GType
pango_underline_get_type
{-# LINE 382 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellTextUnderlineSet :: CellRendererTextClass self => Attr self Bool
cellTextUnderlineSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextUnderlineSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"underline-set"
cellTextVariant :: CellRendererTextClass self => Attr self Variant
cellTextVariant :: forall self. CellRendererTextClass self => Attr self Variant
cellTextVariant = String -> GType -> Attr self Variant
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"variant"
GType
pango_variant_get_type
{-# LINE 393 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellTextVariantSet :: CellRendererTextClass self => Attr self Bool
cellTextVariantSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextVariantSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"variant-set"
cellTextWeight :: CellRendererTextClass self => Attr self Int
cellTextWeight :: forall self. CellRendererTextClass self => Attr self Int
cellTextWeight = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"weight"
cellTextWeightSet :: CellRendererTextClass self => Attr self Bool
cellTextWeightSet :: forall self. CellRendererTextClass self => Attr self Bool
cellTextWeightSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"weight-set"
cellTextWidthChars :: CellRendererTextClass self => Attr self Int
cellTextWidthChars :: forall self. CellRendererTextClass self => Attr self Int
cellTextWidthChars = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"width-chars"
cellTextWrapMode :: CellRendererTextClass self => Attr self LayoutWrapMode
cellTextWrapMode :: forall self. CellRendererTextClass self => Attr self LayoutWrapMode
cellTextWrapMode = String -> GType -> Attr self LayoutWrapMode
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"wrap-mode"
GType
pango_wrap_mode_get_type
{-# LINE 434 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
cellTextWrapWidth :: CellRendererTextClass self => Attr self Int
cellTextWrapWidth :: forall self. CellRendererTextClass self => Attr self Int
cellTextWrapWidth = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"wrap-width"
cellTextAlignment :: CellRendererTextClass self => Attr self LayoutAlignment
cellTextAlignment :: forall self.
CellRendererTextClass self =>
Attr self LayoutAlignment
cellTextAlignment = String -> GType -> Attr self LayoutAlignment
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"alignment"
GType
pango_alignment_get_type
{-# LINE 464 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
edited :: (CellRendererTextClass self, GlibString string) =>
Signal self (TreePath -> string -> IO ())
edited :: forall self string.
(CellRendererTextClass self, GlibString string) =>
Signal self (TreePath -> string -> IO ())
edited = (Bool
-> self -> (TreePath -> string -> IO ()) -> IO (ConnectId self))
-> Signal self (TreePath -> string -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal Bool
-> self -> (TreePath -> string -> IO ()) -> IO (ConnectId self)
forall cr string.
(CellRendererTextClass cr, GlibString string) =>
Bool -> cr -> (TreePath -> string -> IO ()) -> IO (ConnectId cr)
internalEdited
{-# LINE 503 "./Graphics/UI/Gtk/ModelView/CellRendererText.chs" #-}
internalEdited :: (CellRendererTextClass cr, GlibString string) =>
Bool -> cr ->
(TreePath -> string -> IO ()) ->
IO (ConnectId cr)
internalEdited :: forall cr string.
(CellRendererTextClass cr, GlibString string) =>
Bool -> cr -> (TreePath -> string -> IO ()) -> IO (ConnectId cr)
internalEdited Bool
after cr
cr TreePath -> string -> IO ()
user =
String
-> Bool
-> cr
-> (DefaultGlibString -> string -> IO ())
-> IO (ConnectId cr)
forall a' b' obj.
(GlibString a', GlibString b', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> b' -> IO ()) -> IO (ConnectId obj)
connect_GLIBSTRING_GLIBSTRING__NONE String
"edited" Bool
after cr
cr ((DefaultGlibString -> string -> IO ()) -> IO (ConnectId cr))
-> (DefaultGlibString -> string -> IO ()) -> IO (ConnectId cr)
forall a b. (a -> b) -> a -> b
$ \DefaultGlibString
path string
string -> do
TreePath -> string -> IO ()
user (DefaultGlibString -> TreePath
stringToTreePath DefaultGlibString
path) string
string
foreign import ccall unsafe "gtk_cell_renderer_text_new"
gtk_cell_renderer_text_new :: (IO (Ptr CellRenderer))
foreign import ccall safe "gtk_cell_renderer_text_set_fixed_height_from_font"
gtk_cell_renderer_text_set_fixed_height_from_font :: ((Ptr CellRendererText) -> (CInt -> (IO ())))
foreign import ccall unsafe "gdk_color_get_type"
gdk_color_get_type :: CULong
foreign import ccall safe "pango_ellipsize_mode_get_type"
pango_ellipsize_mode_get_type :: CULong
foreign import ccall unsafe "pango_font_description_get_type"
pango_font_description_get_type :: CULong
foreign import ccall safe "pango_stretch_get_type"
pango_stretch_get_type :: CULong
foreign import ccall safe "pango_style_get_type"
pango_style_get_type :: CULong
foreign import ccall safe "pango_underline_get_type"
pango_underline_get_type :: CULong
foreign import ccall safe "pango_variant_get_type"
pango_variant_get_type :: CULong
foreign import ccall safe "pango_wrap_mode_get_type"
pango_wrap_mode_get_type :: CULong
foreign import ccall unsafe "pango_alignment_get_type"
pango_alignment_get_type :: CULong