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