paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 09:39:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

GTK3: Updated Gdk3 unit generated with new gir2pas version.

Browse Source
This commit is contained in:
Abou Al Montacir 2023-06-01 23:41:04 +02:00 committed by Maxim Ganetsky
parent c9cdee98f1
commit 00f2e08c8f
3 changed files with 1930 additions and 1225 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

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

@ -4777,8 +4777,8 @@ type
PGtkClipboardClearFunc = ^TGtkClipboardClearFunc;
TGtkClipboardClearFunc = procedure(clipboard: PGtkClipboard; user_data_or_owner: gpointer); cdecl;
TGtkClipboard = object(TGObject)
function get(selection: GdkAtom): PGtkClipboard; cdecl; inline; static;
function get_for_display(display: PGdkDisplay; selection: GdkAtom): PGtkClipboard; cdecl; inline; static;
function get(selection: PGdkAtom): PGtkClipboard; cdecl; inline; static;
function get_for_display(display: PGdkDisplay; selection: PGdkAtom): PGtkClipboard; cdecl; inline; static;
procedure clear; cdecl; inline;
function get_display: PGdkDisplay; cdecl; inline;
function get_owner: PGObject; cdecl; inline;
@ -11626,9 +11626,9 @@ function gtk_check_menu_item_new: PGtkCheckMenuItem; cdecl; external;
function gtk_check_menu_item_new_with_label(label_: Pgchar): PGtkCheckMenuItem; cdecl; external;
function gtk_check_menu_item_new_with_mnemonic(label_: Pgchar): PGtkCheckMenuItem; cdecl; external;
function gtk_check_version(required_major: guint; required_minor: guint; required_micro: guint): Pgchar; cdecl; external;
function gtk_clipboard_get(selection: GdkAtom): PGtkClipboard; cdecl; external;
function gtk_clipboard_get(selection: PGdkAtom): PGtkClipboard; cdecl; external;
function gtk_clipboard_get_display(clipboard: PGtkClipboard): PGdkDisplay; cdecl; external;
function gtk_clipboard_get_for_display(display: PGdkDisplay; selection: GdkAtom): PGtkClipboard; cdecl; external;
function gtk_clipboard_get_for_display(display: PGdkDisplay; selection: PGdkAtom): PGtkClipboard; cdecl; external;
function gtk_clipboard_get_owner(clipboard: PGtkClipboard): PGObject; cdecl; external;
function gtk_clipboard_get_type: TGType; cdecl; external;
function gtk_clipboard_set_with_data(clipboard: PGtkClipboard; targets: PGtkTargetEntry; n_targets: guint; get_func: TGtkClipboardGetFunc; clear_func: TGtkClipboardClearFunc; user_data: gpointer): gboolean; cdecl; external;
@ -20216,12 +20216,12 @@ begin
LazGtk3.gtk_check_menu_item_toggled(@self);
end;
function TGtkClipboard.get(selection: GdkAtom): PGtkClipboard; cdecl;
function TGtkClipboard.get(selection: PGdkAtom): PGtkClipboard; cdecl;
begin
Result := LazGtk3.gtk_clipboard_get(selection);
end;
function TGtkClipboard.get_for_display(display: PGdkDisplay; selection: GdkAtom): PGtkClipboard; cdecl;
function TGtkClipboard.get_for_display(display: PGdkDisplay; selection: PGdkAtom): PGtkClipboard; cdecl;
begin
Result := LazGtk3.gtk_clipboard_get_for_display(display, selection);
end;

4
lcl/interfaces/gtk3/gtk3lclintf.inc
View File

@ -32,8 +32,8 @@ begin
gtk_widget_realize(Widget);
gdk_window_set_decorations(Widget^.window, 0);
gdk_window_set_functions(Widget^.window, GDK_FUNC_RESIZE or GDK_FUNC_CLOSE);
gdk_window_set_decorations(Widget^.window, TGdkWMDecoration(0));
gdk_window_set_functions(Widget^.window, TGdkWMFunction(Integer(GDK_FUNC_RESIZE) or Integer(GDK_FUNC_CLOSE)));
gtk_widget_set_opacity(Widget, 0.25);
gtk_widget_show(Widget);