# Module Pango.Tags

    module Tags: sig .. end

    type style = [ `ITALIC | `NORMAL | `OBLIQUE ]

    type weight_internal = [ `BOLD | `HEAVY | `LIGHT | `NORMAL | `ULTRABOLD | `ULTRALIGHT ]

    type weight = [ `BOLD
           | `CUSTOM of int
           | `HEAVY
           | `LIGHT
           | `NORMAL
           | `ULTRABOLD
           | `ULTRALIGHT ]

    type variant = [ `NORMAL | `SMALL_CAPS ]

    type stretch = [ `CONDENSED
           | `EXPANDED
           | `EXTRA_CONDENSED
           | `EXTRA_EXPANDED
           | `NORMAL
           | `SEMI_CONDENSED
           | `SEMI_EXPANDED
           | `ULTRA_CONDENSED
           | `ULTRA_EXPANDED ]

    type scale = [ `CUSTOM of float
           | `LARGE
           | `MEDIUM
           | `SMALL
           | `XX_LARGE
           | `XX_SMALL
           | `X_LARGE
           | `X_SMALL ]

    val scale_to_float : scale -> float

    type underline = [ `DOUBLE | `LOW | `NONE | `SINGLE ]

    type wrap_mode = [ `CHAR | `WORD | `WORD_CHAR ]

    type ellipsize_mode = [ `END | `MIDDLE | `NONE | `START ]

    type alignment = [ `CENTER | `LEFT | `RIGHT ]

    val _get_tables : unit ->
           style Gpointer.variant_table *
           weight_internal Gpointer.variant_table *
           variant Gpointer.variant_table *
           stretch Gpointer.variant_table *
           underline Gpointer.variant_table *
           wrap_mode Gpointer.variant_table *
           ellipsize_mode Gpointer.variant_table

    val weight_to_int : weight -> int