paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 10:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'main' into 'main'

Browse Source 
GTK3: Started migration to binding units generated by new gir2pascal.

See merge request freepascal.org/lazarus/lazarus!171
This commit is contained in:
Maxim Ganetsky 2023-05-27 20:39:29 +00:00
commit 8a50d9bf15
13 changed files with 2295 additions and 38 deletions

8
lcl/interfaces/gtk3/gtk3bindings/lazatk1.pas
View File

@ -6,13 +6,19 @@ unit LazAtk1;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libatk-1.0.so.0}
{$endif}
interface
uses
CTypes, LazGObject2, LazGLib2;
const
Atk1_library = 'libatk-1.0.so.0';
{$ifdef MsWindows}
LazAtk1_library = 'libatk-1.0.so.dll';
{$else}
LazAtk1_library = 'libatk-1.0.so.0';
{$endif}
ATK_BINARY_AGE = 20810;
ATK_INTERFACE_AGE = 1;

37
lcl/interfaces/gtk3/gtk3bindings/lazcairo1.pas
View File

@ -49,37 +49,26 @@ unit LazCairo1;
October 2007
*)
{$mode ObjFpc}{$H+}
{$MODE OBJFPC}{$H+}
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libcairo-gobject.so.2}
{$LINKLIB libcairo.so.2}
{$endif}
interface
Uses
uses
CTypes;
const
{$ifdef win32}
LIB_CAIRO = 'libcairo-2.dll';
{$IFDEF FPC}
{$ifndef NO_SMART_LINK}
{$smartlink on}
{$endif}
{$ENDIF}
{$else}
{$ifdef darwin}
LIB_CAIRO = 'cairo';
{$linklib cairo}
{$ifdef MsWindows}
Lazcairo1_library = 'libcairo-gobject.so.dll';
{$else}
{$ifdef UseCustomLibs}
LIB_CAIRO = '';
{$else}
LIB_CAIRO = 'libcairo.so.2';
{$endif}
Lazcairo1_library = 'libcairo-gobject.so.2';
{$endif}
{$endif}
{$IFDEF FPC}
{$PACKRECORDS C}
{$ENDIF}
LIB_CAIRO = Lazcairo1_library;
type
cairo_status_t = (

55
lcl/interfaces/gtk3/gtk3bindings/lazfreetype2_2.pas Normal file
View File

@ -0,0 +1,55 @@
{ This is an autogenerated unit using gobject introspection (gir2pascal). Do not Edit. }
unit Lazfreetype2_2;
{$MODE OBJFPC}{$H+}
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$endif}
interface
uses
CTypes;
const
{$ifdef MsWindows}
Lazfreetype2_2_library = '.dll';
{$else}
Lazfreetype2_2_library = '';
{$endif}
type
{ TFT_Bitmap }
PPFT_Bitmap = ^PFT_Bitmap;
PFT_Bitmap = ^TFT_Bitmap;
TFT_Bitmap = record
end;
{ TFT_Face }
PPFT_Face = ^PFT_Face;
PFT_Face = ^TFT_Face;
TFT_Face = record
end;
{ TFT_Library }
PPFT_Library = ^PFT_Library;
PFT_Library = ^TFT_Library;
TFT_Library = record
end;
implementation
end.

8
lcl/interfaces/gtk3/gtk3bindings/lazgdk3.pas
View File

@ -6,13 +6,19 @@ unit LazGdk3;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libgdk-3.so.0}
{$endif}
interface
uses
CTypes, LazGdkPixbuf2, LazGio2, LazPango1, Lazcairo1, LazGLib2, LazGObject2;
const
Gdk3_library = 'libgdk-3.so.0';
{$ifdef MsWindows}
LazGdk3_library = 'libgdk-3.so.dll';
{$else}
LazGdk3_library = 'libgdk-3.so.0';
{$endif}
GDK_BUTTON_MIDDLE = 2;
GDK_BUTTON_PRIMARY = 1;

8
lcl/interfaces/gtk3/gtk3bindings/lazgdkpixbuf2.pas
View File

@ -6,13 +6,19 @@ unit LazGdkPixbuf2;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libgdk_pixbuf-2.0.so.0}
{$endif}
interface
uses
CTypes, LazGModule2, LazGio2, LazGLib2, LazGObject2;
const
GdkPixbuf2_library = 'libgdk_pixbuf-2.0.so.0';
{$ifdef MsWindows}
LazGdkPixbuf2_library = 'libgdk_pixbuf-2.0.so.dll';
{$else}
LazGdkPixbuf2_library = 'libgdk_pixbuf-2.0.so.0';
{$endif}
GDK_PIXBUF_FEATURES_H = 1;
GDK_PIXBUF_MAGIC_NUMBER = 1197763408;

8
lcl/interfaces/gtk3/gtk3bindings/lazgio2.pas
View File

@ -6,13 +6,19 @@ unit LazGio2;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libgio-2.0.so.0}
{$endif}
interface
uses
CTypes, LazGObject2, LazGLib2;
const
Gio2_library = 'libgio-2.0.so.0';
{$ifdef MsWindows}
LazGio2_library = 'libgio-2.0.so.dll';
{$else}
LazGio2_library = 'libgio-2.0.so.0';
{$endif}
G_DESKTOP_APP_INFO_LOOKUP_EXTENSION_POINT_NAME = 'gio-desktop-app-info-lookup';
G_FILE_ATTRIBUTE_ACCESS_CAN_DELETE = 'access::can-delete';

8
lcl/interfaces/gtk3/gtk3bindings/lazglib2.pas
View File

@ -6,14 +6,20 @@ unit LazGLib2;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libgobject-2.0.so.0}
{$LINKLIB libglib-2.0.so.0}
{$endif}
interface
uses
CTypes;
const
GLib2_library = 'libgobject-2.0.so.0';
{$ifdef MsWindows}
LazGLib2_library = 'libgobject-2.0.so.dll';
{$else}
LazGLib2_library = 'libgobject-2.0.so.0';
{$endif}
G_ASCII_DTOSTR_BUF_SIZE = 39;
G_BIG_ENDIAN = 4321;

9
lcl/interfaces/gtk3/gtk3bindings/lazgmodule2.pas
View File

@ -6,14 +6,19 @@ unit LazGModule2;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libgmodule-2.0.so.0}
{$endif}
interface
uses
CTypes, LazGLib2;
const
GModule2_library = 'libgmodule-2.0.so.0';
{$ifdef MsWindows}
LazGModule2_library = 'libgmodule-2.0.so.dll';
{$else}
LazGModule2_library = 'libgmodule-2.0.so.0';
{$endif}
type
TGModuleFlags = Integer;

8
lcl/interfaces/gtk3/gtk3bindings/lazgobject2.pas
View File

@ -6,13 +6,19 @@ unit LazGObject2;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libgobject-2.0.so.0}
{$endif}
interface
uses
CTypes, LazGLib2;
const
GObject2_library = 'libgobject-2.0.so.0';
{$ifdef MsWindows}
LazGObject2_library = 'libgobject-2.0.so.dll';
{$else}
LazGObject2_library = 'libgobject-2.0.so.0';
{$endif}
G_PARAM_MASK = 255;
G_PARAM_READWRITE = 0;

9
lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas
View File

@ -6,14 +6,19 @@ unit LazGtk3;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libgtk-3.so.0}
{$LINKLIB libgdk-3.so.0}
{$endif}
interface
uses
CTypes, LazAtk1, LazGdk3, Lazxlib2, LazGLib2, LazGdkPixbuf2, LazGObject2, LazGio2, Lazcairo1, LazPango1;
const
Gtk3_library = 'libgtk-3.so.0';
{$ifdef MsWindows}
LazGtk3_library = 'libgtk-3.so.dll';
{$else}
LazGtk3_library = 'libgtk-3.so.0';
{$endif}
GTK_BINARY_AGE = 806;
GTK_INPUT_ERROR = -1;

2106
lcl/interfaces/gtk3/gtk3bindings/lazharfbuzz0.pas Normal file
View File

File diff suppressed because it is too large Load Diff

10
lcl/interfaces/gtk3/gtk3bindings/lazpango1.pas
View File

@ -6,13 +6,19 @@ unit LazPango1;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$LINKLIB libpango-1.0.so.0}
{$endif}
interface
uses
CTypes, LazGObject2, Lazcairo1, LazGLib2;
CTypes, LazGObject2, LazGio2, LazHarfBuzz0, Lazcairo1, LazGLib2;
const
Pango1_library = 'libpango-1.0.so.0';
{$ifdef MsWindows}
LazPango1_library = 'libpango-1.0.so.dll';
{$else}
LazPango1_library = 'libpango-1.0.so.0';
{$endif}
PANGO_ANALYSIS_FLAG_CENTERED_BASELINE = 1;
PANGO_ATTR_INDEX_FROM_TEXT_BEGINNING = 0;

59
lcl/interfaces/gtk3/gtk3bindings/lazxlib2.pas
View File

@ -6,27 +6,41 @@ unit Lazxlib2;
{$PACKRECORDS C}
{$MODESWITCH DUPLICATELOCALS+}
{$ifdef Unix}
{$endif}
interface
uses
CTypes;
const
xlib2_library = '';
{$ifdef MsWindows}
Lazxlib2_library = '.dll';
{$else}
Lazxlib2_library = '';
{$endif}
type
{ TAtom }
PPAtom = ^PAtom;
PAtom = ^TAtom;
TAtom = culong;
{ TColormap }
PPColormap = ^PColormap;
PColormap = ^TColormap;
TColormap = culong;
{ TCursor }
PPCursor = ^PCursor;
PCursor = ^TCursor;
TCursor = culong;
{ TDisplay }
PPDisplay = ^PDisplay;
PDisplay = ^TDisplay;
@ -35,26 +49,38 @@ type
{ TDrawable }
PPDrawable = ^PDrawable;
PDrawable = ^TDrawable;
TDrawable = culong;
{ TGC }
PPGC = ^PGC;
PGC = ^TGC;
TGC = pointer;
{ TKeyCode }
PPKeyCode = ^PKeyCode;
PKeyCode = ^TKeyCode;
TKeyCode = cuint8;
{ TKeySym }
PPKeySym = ^PKeySym;
PKeySym = ^TKeySym;
TKeySym = culong;
{ TPicture }
PPPicture = ^PPicture;
PPicture = ^TPicture;
TPicture = culong;
{ TScreen }
PPScreen = ^PScreen;
PScreen = ^TScreen;
@ -63,10 +89,14 @@ type
{ Time }
PPime = ^Pime;
Pime = ^Time;
Time = culong;
{ TVisual }
PPVisual = ^PVisual;
PVisual = ^TVisual;
@ -75,18 +105,29 @@ type
{ TVisualID }
PPVisualID = ^PVisualID;
PVisualID = ^TVisualID;
TVisualID = culong;
{ TWindow }
PPWindow = ^PWindow;
PWindow = ^TWindow;
TWindow = culong;
{ TXEvent }
PPXEvent = ^PXEvent;
PXEvent = ^TXEvent;
TXEvent = record
end;
{ TXConfigureEvent }
PPXConfigureEvent = ^PXConfigureEvent;
PXConfigureEvent = ^TXConfigureEvent;
@ -95,14 +136,20 @@ type
{ TXID }
PPXID = ^PXID;
PXID = ^TXID;
TXID = culong;
{ TPixmap }
PPPixmap = ^PPixmap;
PPixmap = ^TPixmap;
TPixmap = culong;
{ TXImage }
PPXImage = ^PXImage;
PXImage = ^TXImage;
@ -111,6 +158,8 @@ type
{ TXFontStruct }
PPXFontStruct = ^PXFontStruct;
PXFontStruct = ^TXFontStruct;
@ -119,6 +168,8 @@ type
{ TXTrapezoid }
PPXTrapezoid = ^PXTrapezoid;
PXTrapezoid = ^TXTrapezoid;
@ -127,6 +178,8 @@ type
{ TXVisualInfo }
PPXVisualInfo = ^PXVisualInfo;
PXVisualInfo = ^TXVisualInfo;
@ -135,6 +188,8 @@ type
{ TXWindowAttributes }
PPXWindowAttributes = ^PXWindowAttributes;
PXWindowAttributes = ^TXWindowAttributes;
@ -145,4 +200,4 @@ type
procedure XOpenDisplay; cdecl; external;
implementation
end.
end.