GTK3: Updated lazcairo1 binding unit.

We used Bookworm (Debian 12.2) GIR files constrained the units version
to Bullseye (Debian 11.6) shipped libraries.

They were generated using the following command:
```sh
gir2pas -P Laz -e Set -w \
        -M atk-2.36 \
        -M pango-1.16 \
        -M pangocairo-1.46 \
        -M glib-2.66 \
        -M gio-2.66 \
        -M gmodule-2.66 \
        -M gobject-2.66 \
        -M gtk-3.24 \
        -i /usr/share/gir-1.0/PangoCairo-1.0.gir \
        -o lazarus/lcl/interfaces/gtk3/gtk3bindings
```

Some code was manually added at the end of the interface section to keep
backward compatibility with old, manually translated unit.
This commit is contained in:
Abou Al Montacir 2023-11-11 23:51:28 +01:00
parent f600868569
commit 9b23abbad1

View File

@ -286,32 +286,32 @@ type
type
{ TCairoContext }
PPCairoContext = ^PCairoContext;
PCairoContext = ^TCairoContext;
TCairoContext = object
{ Tcairo_t }
PPcairo_t = ^Pcairo_t;
Pcairo_t = ^Tcairo_t;
Tcairo_t = object
end;
{ TCairoDevice }
PPCairoDevice = ^PCairoDevice;
PCairoDevice = ^TCairoDevice;
TCairoDevice = object
{ Tcairo_device_t }
PPcairo_device_t = ^Pcairo_device_t;
Pcairo_device_t = ^Tcairo_device_t;
Tcairo_device_t = object
end;
{ TCairoSurface }
PPCairoSurface = ^PCairoSurface;
PCairoSurface = ^TCairoSurface;
TCairoSurface = object
{ Tcairo_surface_t }
PPcairo_surface_t = ^Pcairo_surface_t;
Pcairo_surface_t = ^Tcairo_surface_t;
Tcairo_surface_t = object
end;
{ TcairoMatrix }
PPcairoMatrix = ^PcairoMatrix;
PcairoMatrix = ^TcairoMatrix;
{ Tcairo_matrix_t }
PPcairo_matrix_t = ^Pcairo_matrix_t;
Pcairo_matrix_t = ^Tcairo_matrix_t;
TcairoMatrix = record
Tcairo_matrix_t = record
xx : Double;
yx : Double;
xy : Double;
@ -323,17 +323,17 @@ type
{ TCairoPattern }
PPCairoPattern = ^PCairoPattern;
PCairoPattern = ^TCairoPattern;
TCairoPattern = object
{ Tcairo_pattern_t }
PPcairo_pattern_t = ^Pcairo_pattern_t;
Pcairo_pattern_t = ^Tcairo_pattern_t;
Tcairo_pattern_t = object
end;
{ TCairoRegion }
PPCairoRegion = ^PCairoRegion;
PCairoRegion = ^TCairoRegion;
TCairoRegion = object
{ Tcairo_region_t }
PPcairo_region_t = ^Pcairo_region_t;
Pcairo_region_t = ^Tcairo_region_t;
Tcairo_region_t = object
end;
@ -402,10 +402,10 @@ type
Pcairo_hint_metrics_t = ^Tcairo_hint_metrics_t;
{ TCairoFontOptions }
PPCairoFontOptions = ^PCairoFontOptions;
PCairoFontOptions = ^TCairoFontOptions;
TCairoFontOptions = object
{ Tcairo_font_options_t }
PPcairo_font_options_t = ^Pcairo_font_options_t;
Pcairo_font_options_t = ^Tcairo_font_options_t;
Tcairo_font_options_t = object
end;
@ -454,38 +454,38 @@ type
Pcairo_region_overlap_t = ^Tcairo_region_overlap_t;
{ TCairoFontFace }
PPCairoFontFace = ^PCairoFontFace;
PCairoFontFace = ^TCairoFontFace;
TCairoFontFace = object
{ Tcairo_font_face_t }
PPcairo_font_face_t = ^Pcairo_font_face_t;
Pcairo_font_face_t = ^Tcairo_font_face_t;
Tcairo_font_face_t = object
end;
{ TCairoScaledFont }
PPCairoScaledFont = ^PCairoScaledFont;
PCairoScaledFont = ^TCairoScaledFont;
TCairoScaledFont = object
{ Tcairo_scaled_font_t }
PPcairo_scaled_font_t = ^Pcairo_scaled_font_t;
Pcairo_scaled_font_t = ^Tcairo_scaled_font_t;
Tcairo_scaled_font_t = object
end;
{ TcairoPath }
PPcairoPath = ^PcairoPath;
PcairoPath = ^TcairoPath;
{ Tcairo_path_t }
PPcairo_path_t = ^Pcairo_path_t;
Pcairo_path_t = ^Tcairo_path_t;
TcairoPath = record
Tcairo_path_t = record
end;
{ TCairoRectangle }
PPCairoRectangle = ^PCairoRectangle;
PCairoRectangle = ^TCairoRectangle;
{ Tcairo_rectangle_t }
PPcairo_rectangle_t = ^Pcairo_rectangle_t;
Pcairo_rectangle_t = ^Tcairo_rectangle_t;
{ cdouble }
Pcdouble = ^cdouble;
TCairoRectangle = object
Tcairo_rectangle_t = object
x: cdouble;
y: cdouble;
width: cdouble;
@ -493,18 +493,18 @@ type
end;
{ TCairoRectangleInt }
PPCairoRectangleInt = ^PCairoRectangleInt;
PCairoRectangleInt = ^TCairoRectangleInt;
{ Tcairo_rectangle_int_t }
PPcairo_rectangle_int_t = ^Pcairo_rectangle_int_t;
Pcairo_rectangle_int_t = ^Tcairo_rectangle_int_t;
{ cint32 }
Pcint32 = ^cint32;
TCairoRectangleInt = object
x: cint32;
y: cint32;
width: cint32;
height: cint32;
{ cint }
Pcint = ^cint;
Tcairo_rectangle_int_t = object
x: cint;
y: cint;
width: cint;
height: cint;
end;
function cairo_gobject_context_get_type: csize_t { TGType }; cdecl; external Lazcairo1_library name 'cairo_gobject_context_get_type';
@ -528,34 +528,6 @@ procedure cairo_image_surface_create; cdecl; external Lazcairo1_library name 'ca
const
LIB_CAIRO = Lazcairo1_library;
type
PPcairo_rectangle_int_t = PPCairoRectangleInt;
PPcairo_surface_t = PPCairoSurface;
Pcairo_t = PCairoContext;
Pcairo_device_t = PCairoDevice;
Pcairo_font_face_t = PCairoFontFace;
Pcairo_font_options_t = PCairoFontOptions;
Pcairo_matrix_t = PCairoMatrix;
Pcairo_pattern_t = PCairoPattern;
Pcairo_path_t = PCairoPath;
Pcairo_rectangle_int_t = PCairoRectangleInt;
Pcairo_region_t = PCairoRegion;
Pcairo_scaled_font_t = PCairoScaledFont;
Pcairo_surface_t = PCairoSurface;
Tcairo_t = TCairoContext;
Tcairo_device_t = TCairoDevice;
Tcairo_font_face_t = TCairoFontFace;
Tcairo_font_options_t = TCairoFontOptions;
Tcairo_matrix_t = TCairoMatrix;
Tcairo_pattern_t = TCairoPattern;
Tcairo_path_t = TCairoPath;
Tcairo_rectangle_int_t = TCairoRectangleInt;
Tcairo_region_t = TCairoRegion;
Tcairo_scaled_font_t = TCairoScaledFont;
Tcairo_surface_t = TCairoSurface;
function cairo_version: LongInt; cdecl; external LIB_CAIRO;
function cairo_version_string: PChar; cdecl; external LIB_CAIRO;
//Helper function to retrieve decoded version