pragma Ada_2005;
pragma Warnings (Off, "*is already use-visible*");
with Glib; use Glib;
with Glib.Generic_Properties; use Glib.Generic_Properties;
package Pango.Enums is
type Alignment is (
Pango_Align_Left,
Pango_Align_Center,
Pango_Align_Right);
pragma Convention (C, Alignment);
type Attr_Type is (
Pango_Attr_Invalid,
Pango_Attr_Language,
Pango_Attr_Family,
Pango_Attr_Style,
Pango_Attr_Weight,
Pango_Attr_Variant,
Pango_Attr_Stretch,
Pango_Attr_Size,
Pango_Attr_Font_Desc,
Pango_Attr_Foreground,
Pango_Attr_Background,
Pango_Attr_Underline,
Pango_Attr_Strikethrough,
Pango_Attr_Rise,
Pango_Attr_Shape,
Pango_Attr_Scale,
Pango_Attr_Fallback,
Pango_Attr_Letter_Spacing,
Pango_Attr_Underline_Color,
Pango_Attr_Strikethrough_Color,
Pango_Attr_Absolute_Size,
Pango_Attr_Gravity,
Pango_Attr_Gravity_Hint);
pragma Convention (C, Attr_Type);
type Coverage_Level is (
Pango_Coverage_None,
Pango_Coverage_Fallback,
Pango_Coverage_Approximate,
Pango_Coverage_Exact);
pragma Convention (C, Coverage_Level);
type Direction is (
Pango_Direction_Ltr,
Pango_Direction_Rtl,
Pango_Direction_Ttb_Ltr,
Pango_Direction_Ttb_Rtl,
Pango_Direction_Weak_Ltr,
Pango_Direction_Weak_Rtl,
Pango_Direction_Neutral);
pragma Convention (C, Direction);
type Font_Mask is mod 2 ** Integer'Size;
pragma Convention (C, Font_Mask);
Pango_Font_Mask_Family : constant Font_Mask := 1;
Pango_Font_Mask_Style : constant Font_Mask := 2;
Pango_Font_Mask_Variant : constant Font_Mask := 4;
Pango_Font_Mask_Weight : constant Font_Mask := 8;
Pango_Font_Mask_Stretch : constant Font_Mask := 16;
Pango_Font_Mask_Size : constant Font_Mask := 32;
Pango_Font_Mask_Gravity : constant Font_Mask := 64;
type Gravity is (
Pango_Gravity_South,
Pango_Gravity_East,
Pango_Gravity_North,
Pango_Gravity_West,
Pango_Gravity_Auto);
pragma Convention (C, Gravity);
type GravityHint is (
Pango_Gravity_Hint_Natural,
Pango_Gravity_Hint_Strong,
Pango_Gravity_Hint_Line);
pragma Convention (C, GravityHint);
type Stretch is (
Pango_Stretch_Ultra_Condensed,
Pango_Stretch_Extra_Condensed,
Pango_Stretch_Condensed,
Pango_Stretch_Semi_Condensed,
Pango_Stretch_Normal,
Pango_Stretch_Semi_Expanded,
Pango_Stretch_Expanded,
Pango_Stretch_Extra_Expanded,
Pango_Stretch_Ultra_Expanded);
pragma Convention (C, Stretch);
type Style is (
Pango_Style_Normal,
Pango_Style_Oblique,
Pango_Style_Italic);
pragma Convention (C, Style);
type Underline is (
Pango_Underline_None,
Pango_Underline_Single,
Pango_Underline_Double,
Pango_Underline_Low,
Pango_Underline_Error);
pragma Convention (C, Underline);
type Variant is (
Pango_Variant_Normal,
Pango_Variant_Small_Caps);
pragma Convention (C, Variant);
type Weight is (
Pango_Weight_Thin,
Pango_Weight_Ultralight,
Pango_Weight_Light,
Pango_Weight_Book,
Pango_Weight_Normal,
Pango_Weight_Medium,
Pango_Weight_Semibold,
Pango_Weight_Bold,
Pango_Weight_Ultrabold,
Pango_Weight_Heavy,
Pango_Weight_Ultraheavy);
pragma Convention (C, Weight);
for Weight use (
Pango_Weight_Thin => 100,
Pango_Weight_Ultralight => 200,
Pango_Weight_Light => 300,
Pango_Weight_Book => 380,
Pango_Weight_Normal => 400,
Pango_Weight_Medium => 500,
Pango_Weight_Semibold => 600,
Pango_Weight_Bold => 700,
Pango_Weight_Ultrabold => 800,
Pango_Weight_Heavy => 900,
Pango_Weight_Ultraheavy => 1000);
type Wrap_Mode is (
Pango_Wrap_Word,
Pango_Wrap_Char,
Pango_Wrap_Word_Char);
pragma Convention (C, Wrap_Mode);
package Alignment_Properties is
new Generic_Internal_Discrete_Property (Alignment);
type Property_Alignment is new Alignment_Properties.Property;
package Attr_Type_Properties is
new Generic_Internal_Discrete_Property (Attr_Type);
type Property_Attr_Type is new Attr_Type_Properties.Property;
package Coverage_Level_Properties is
new Generic_Internal_Discrete_Property (Coverage_Level);
type Property_Coverage_Level is new Coverage_Level_Properties.Property;
package Direction_Properties is
new Generic_Internal_Discrete_Property (Direction);
type Property_Direction is new Direction_Properties.Property;
package Font_Mask_Properties is
new Generic_Internal_Discrete_Property (Font_Mask);
type Property_Font_Mask is new Font_Mask_Properties.Property;
package Gravity_Properties is
new Generic_Internal_Discrete_Property (Gravity);
type Property_Gravity is new Gravity_Properties.Property;
package GravityHint_Properties is
new Generic_Internal_Discrete_Property (GravityHint);
type Property_GravityHint is new GravityHint_Properties.Property;
package Stretch_Properties is
new Generic_Internal_Discrete_Property (Stretch);
type Property_Stretch is new Stretch_Properties.Property;
package Style_Properties is
new Generic_Internal_Discrete_Property (Style);
type Property_Style is new Style_Properties.Property;
package Underline_Properties is
new Generic_Internal_Discrete_Property (Underline);
type Property_Underline is new Underline_Properties.Property;
package Variant_Properties is
new Generic_Internal_Discrete_Property (Variant);
type Property_Variant is new Variant_Properties.Property;
package Weight_Properties is
new Generic_Internal_Discrete_Property (Weight);
type Property_Weight is new Weight_Properties.Property;
package Wrap_Mode_Properties is
new Generic_Internal_Discrete_Property (Wrap_Mode);
type Property_Wrap_Mode is new Wrap_Mode_Properties.Property;
Pango_Scale : constant := 1024;
function To_Pixels (Pango_Units : Gint) return Gint;
end Pango.Enums;