pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fixed error where certain types that are pointers to a type are not recognized

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2084 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
drewski207
2011-10-22 18:47:15 +00:00
parent 922d9f855a
commit 28bd62eab3
8 changed files with 1400 additions and 620 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bindings/gtk3/examples/dialog/dialog.lpi
View File

@ -55,6 +55,12 @@
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
</Debugging>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>

3
bindings/gtk3/examples/dialog/dialog.lpr
View File

@ -73,8 +73,9 @@ var
err: PGtkButton;
begin
SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);
WriteLn('Init starting');
gtk_init(@argc, @argv);
gtk_init(@argc, @argv); WriteLn('Init done');
window := TGtkWindow.new(GTK_WINDOW_TOPLEVEL);
window^.set_position(GTK_WIN_POS_CENTER);

196
bindings/gtk3/gdk3.pas
View File

@ -2276,6 +2276,43 @@ const
PARENT_RELATIVE = 1;
PRIORITY_REDRAW = 20;
type
TGdkModifierType = Integer;
const
{ GdkModifierType }
GDK_SHIFT_MASK: TGdkModifierType = 1;
GDK_LOCK_MASK: TGdkModifierType = 2;
GDK_CONTROL_MASK: TGdkModifierType = 4;
GDK_MOD1_MASK: TGdkModifierType = 8;
GDK_MOD2_MASK: TGdkModifierType = 16;
GDK_MOD3_MASK: TGdkModifierType = 32;
GDK_MOD4_MASK: TGdkModifierType = 64;
GDK_MOD5_MASK: TGdkModifierType = 128;
GDK_BUTTON1_MASK: TGdkModifierType = 256;
GDK_BUTTON2_MASK: TGdkModifierType = 512;
GDK_BUTTON3_MASK: TGdkModifierType = 1024;
GDK_BUTTON4_MASK: TGdkModifierType = 2048;
GDK_BUTTON5_MASK: TGdkModifierType = 4096;
GDK_MODIFIER_RESERVED_13_MASK: TGdkModifierType = 8192;
GDK_MODIFIER_RESERVED_14_MASK: TGdkModifierType = 16384;
GDK_MODIFIER_RESERVED_15_MASK: TGdkModifierType = 32768;
GDK_MODIFIER_RESERVED_16_MASK: TGdkModifierType = 65536;
GDK_MODIFIER_RESERVED_17_MASK: TGdkModifierType = 131072;
GDK_MODIFIER_RESERVED_18_MASK: TGdkModifierType = 262144;
GDK_MODIFIER_RESERVED_19_MASK: TGdkModifierType = 524288;
GDK_MODIFIER_RESERVED_20_MASK: TGdkModifierType = 1048576;
GDK_MODIFIER_RESERVED_21_MASK: TGdkModifierType = 2097152;
GDK_MODIFIER_RESERVED_22_MASK: TGdkModifierType = 4194304;
GDK_MODIFIER_RESERVED_23_MASK: TGdkModifierType = 8388608;
GDK_MODIFIER_RESERVED_24_MASK: TGdkModifierType = 16777216;
GDK_MODIFIER_RESERVED_25_MASK: TGdkModifierType = 33554432;
GDK_SUPER_MASK: TGdkModifierType = 67108864;
GDK_HYPER_MASK: TGdkModifierType = 134217728;
GDK_META_MASK: TGdkModifierType = 268435456;
GDK_MODIFIER_RESERVED_29_MASK: TGdkModifierType = 536870912;
GDK_RELEASE_MASK: TGdkModifierType = 1073741824;
GDK_MODIFIER_MASK: TGdkModifierType = 1543512063;
type
TGdkAxisUse = Integer;
const
@ -2392,43 +2429,6 @@ const
GDK_BLANK_CURSOR: TGdkCursorType = -2;
GDK_CURSOR_IS_PIXMAP: TGdkCursorType = -1;
type
TGdkModifierType = Integer;
const
{ GdkModifierType }
GDK_SHIFT_MASK: TGdkModifierType = 1;
GDK_LOCK_MASK: TGdkModifierType = 2;
GDK_CONTROL_MASK: TGdkModifierType = 4;
GDK_MOD1_MASK: TGdkModifierType = 8;
GDK_MOD2_MASK: TGdkModifierType = 16;
GDK_MOD3_MASK: TGdkModifierType = 32;
GDK_MOD4_MASK: TGdkModifierType = 64;
GDK_MOD5_MASK: TGdkModifierType = 128;
GDK_BUTTON1_MASK: TGdkModifierType = 256;
GDK_BUTTON2_MASK: TGdkModifierType = 512;
GDK_BUTTON3_MASK: TGdkModifierType = 1024;
GDK_BUTTON4_MASK: TGdkModifierType = 2048;
GDK_BUTTON5_MASK: TGdkModifierType = 4096;
GDK_MODIFIER_RESERVED_13_MASK: TGdkModifierType = 8192;
GDK_MODIFIER_RESERVED_14_MASK: TGdkModifierType = 16384;
GDK_MODIFIER_RESERVED_15_MASK: TGdkModifierType = 32768;
GDK_MODIFIER_RESERVED_16_MASK: TGdkModifierType = 65536;
GDK_MODIFIER_RESERVED_17_MASK: TGdkModifierType = 131072;
GDK_MODIFIER_RESERVED_18_MASK: TGdkModifierType = 262144;
GDK_MODIFIER_RESERVED_19_MASK: TGdkModifierType = 524288;
GDK_MODIFIER_RESERVED_20_MASK: TGdkModifierType = 1048576;
GDK_MODIFIER_RESERVED_21_MASK: TGdkModifierType = 2097152;
GDK_MODIFIER_RESERVED_22_MASK: TGdkModifierType = 4194304;
GDK_MODIFIER_RESERVED_23_MASK: TGdkModifierType = 8388608;
GDK_MODIFIER_RESERVED_24_MASK: TGdkModifierType = 16777216;
GDK_MODIFIER_RESERVED_25_MASK: TGdkModifierType = 33554432;
GDK_SUPER_MASK: TGdkModifierType = 67108864;
GDK_HYPER_MASK: TGdkModifierType = 134217728;
GDK_META_MASK: TGdkModifierType = 268435456;
GDK_MODIFIER_RESERVED_29_MASK: TGdkModifierType = 536870912;
GDK_RELEASE_MASK: TGdkModifierType = 1073741824;
GDK_MODIFIER_MASK: TGdkModifierType = 1543512063;
type
TGdkGrabOwnership = Integer;
const
@ -2801,12 +2801,15 @@ type
PPGdkAppLaunchContext = ^PGdkAppLaunchContext;
PGdkAppLaunchContext = ^TGdkAppLaunchContext;
PPGdkDisplay = ^PGdkDisplay;
PGdkDisplay = ^TGdkDisplay;
PPGdkScreen = ^PGdkScreen;
PGdkScreen = ^TGdkScreen;
TGdkAppLaunchContext = object(TGAppLaunchContext)
function new: PGdkAppLaunchContext; cdecl; inline; static;
procedure set_desktop(desktop: gint); cdecl; inline;
procedure set_display(display: PGdkDisplay); cdecl; inline;
procedure set_icon(icon: PGIcon); cdecl; inline;
procedure set_icon_name(icon_name: Pgchar); cdecl; inline;
procedure set_screen(screen: PGdkScreen); cdecl; inline;
@ -2814,9 +2817,6 @@ type
//property display: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_display { property is writeable but setter not declared } ;
end;
PPGdkDisplay = ^PGdkDisplay;
PGdkDisplay = ^TGdkDisplay;
PPGdkDevice = ^PGdkDevice;
PGdkDevice = ^TGdkDevice;
@ -2829,6 +2829,9 @@ type
PPGdkEvent = ^PGdkEvent;
PGdkEvent = ^TGdkEvent;
PPGdkModifierType = ^PGdkModifierType;
PGdkModifierType = ^TGdkModifierType;
PPPGdkAtom = ^PPGdkAtom;
PPGdkAtom = ^PGdkAtom;
PGdkAtom = ^TGdkAtom;
@ -2854,17 +2857,17 @@ type
procedure get_maximal_cursor_size(width: Pguint; height: Pguint); cdecl; inline;
function get_n_screens: gint; cdecl; inline;
function get_name: Pgchar; cdecl; inline;
procedure get_pointer(screen: PPGdkScreen; x: Pgint; y: Pgint; mask: PGdkModifierType); cdecl; inline;
function get_screen(screen_num: gint): PGdkScreen; cdecl; inline;
function get_window_at_pointer(win_x: Pgint; win_y: Pgint): PGdkWindow; cdecl; inline;
function has_pending: gboolean; cdecl; inline;
function is_closed: gboolean; cdecl; inline;
procedure keyboard_ungrab(time_: guint32); cdecl; inline;
function list_devices: PGList; cdecl; inline;
procedure notify_startup_complete(startup_id: Pgchar); cdecl; inline;
function peek_event: PGdkEvent; cdecl; inline;
function pointer_is_grabbed: gboolean; cdecl; inline;
procedure pointer_ungrab(time_: guint32); cdecl; inline;
procedure put_event(event: PGdkEvent); cdecl; inline;
function request_selection_notification(selection: TGdkAtom): gboolean; cdecl; inline;
procedure set_double_click_distance(distance: guint); cdecl; inline;
@ -2878,7 +2881,7 @@ type
function supports_selection_notification: gboolean; cdecl; inline;
function supports_shapes: gboolean; cdecl; inline;
procedure sync; cdecl; inline;
procedure warp_pointer(screen: PGdkScreen; x: gint; y: gint); cdecl; inline;
end;
PPGdkVisual = ^PGdkVisual;
@ -2958,8 +2961,8 @@ type
function get_cursor_type: TGdkCursorType; cdecl; inline;
function get_display: PGdkDisplay; cdecl; inline;
function get_image: PGdkPixbuf; cdecl; inline;
function ref: PGdkCursor; cdecl; inline;
procedure unref; cdecl; inline;
property cursor_type: TGdkCursorType read get_cursor_type { property is writeable but setter not declared } ;
property display: PGdkDisplay read get_display { property is writeable but setter not declared } ;
end;
@ -2978,9 +2981,6 @@ type
PPGdkDeviceType = ^PGdkDeviceType;
PGdkDeviceType = ^TGdkDeviceType;
PPGdkModifierType = ^PGdkModifierType;
PGdkModifierType = ^TGdkModifierType;
PPGdkInputMode = ^PGdkInputMode;
PGdkInputMode = ^TGdkInputMode;
@ -3079,7 +3079,7 @@ type
PGdkWindowHints = ^TGdkWindowHints;
TGdkWindow = object(TGObject)
function new(parent: PGdkWindow; attributes: PGdkWindowAttr; attributes_mask: gint): PGdkWindow; cdecl; inline; static;
function at_pointer(win_x: Pgint; win_y: Pgint): PGdkWindow; cdecl; inline; static;
procedure constrain_size(geometry: PGdkGeometry; flags: guint; width: gint; height: gint; new_width: Pgint; new_height: Pgint); cdecl; inline; static;
procedure process_all_updates; cdecl; inline; static;
procedure set_debug_updates(setting: gboolean); cdecl; inline; static;
@ -3128,7 +3128,7 @@ type
function get_modal_hint: gboolean; cdecl; inline;
function get_origin(x: Pgint; y: Pgint): gint; cdecl; inline;
function get_parent: PGdkWindow; cdecl; inline;
function get_pointer(x: Pgint; y: Pgint; mask: PGdkModifierType): PGdkWindow; cdecl; inline;
procedure get_position(x: Pgint; y: Pgint); cdecl; inline;
procedure get_root_coords(x: gint; y: gint; root_x: Pgint; root_y: Pgint); cdecl; inline;
procedure get_root_origin(x: Pgint; y: Pgint); cdecl; inline;
@ -3206,7 +3206,7 @@ type
procedure set_transient_for(parent: PGdkWindow); cdecl; inline;
procedure set_type_hint(hint: TGdkWindowTypeHint); cdecl; inline;
procedure set_urgency_hint(urgent: gboolean); cdecl; inline;
procedure set_user_data(user_data: TGObject); cdecl; inline;
procedure set_user_data(user_data: PGObject); cdecl; inline;
procedure shape_combine_region(shape_region: Pcairo_region_t; offset_x: gint; offset_y: gint); cdecl; inline;
procedure show; cdecl; inline;
procedure show_unraised; cdecl; inline;
@ -3763,6 +3763,7 @@ type
function gdk_app_launch_context_get_type: TGType; cdecl; external;
function gdk_app_launch_context_new: PGdkAppLaunchContext; cdecl; external;
function gdk_atom_intern(atom_name: Pgchar; only_if_exists: gboolean): TGdkAtom; cdecl; external;
function gdk_atom_intern_static_string(atom_name: Pgchar): TGdkAtom; cdecl; external;
function gdk_atom_name(AAtom: PGdkAtom): Pgchar; cdecl; external;
@ -3783,6 +3784,7 @@ function gdk_cursor_new(cursor_type: TGdkCursorType): PGdkCursor; cdecl; externa
function gdk_cursor_new_for_display(display: PGdkDisplay; cursor_type: TGdkCursorType): PGdkCursor; cdecl; external;
function gdk_cursor_new_from_name(display: PGdkDisplay; name: Pgchar): PGdkCursor; cdecl; external;
function gdk_cursor_new_from_pixbuf(display: PGdkDisplay; pixbuf: PGdkPixbuf; x: gint; y: gint): PGdkCursor; cdecl; external;
function gdk_cursor_ref(ACursor: PGdkCursor): PGdkCursor; cdecl; external;
function gdk_device_get_associated_device(ADevice: PGdkDevice): PGdkDevice; cdecl; external;
function gdk_device_get_axis(ADevice: PGdkDevice; axes: Pgdouble; use: TGdkAxisUse; value: Pgdouble): gboolean; cdecl; external;
function gdk_device_get_axis_use(ADevice: PGdkDevice; index_: guint): TGdkAxisUse; cdecl; external;
@ -3820,8 +3822,10 @@ function gdk_display_get_n_screens(ADisplay: PGdkDisplay): gint; cdecl; external
function gdk_display_get_name(ADisplay: PGdkDisplay): Pgchar; cdecl; external;
function gdk_display_get_screen(ADisplay: PGdkDisplay; screen_num: gint): PGdkScreen; cdecl; external;
function gdk_display_get_type: TGType; cdecl; external;
function gdk_display_get_window_at_pointer(ADisplay: PGdkDisplay; win_x: Pgint; win_y: Pgint): PGdkWindow; cdecl; external;
function gdk_display_has_pending(ADisplay: PGdkDisplay): gboolean; cdecl; external;
function gdk_display_is_closed(ADisplay: PGdkDisplay): gboolean; cdecl; external;
function gdk_display_list_devices(ADisplay: PGdkDisplay): PGList; cdecl; external;
function gdk_display_manager_get: PGdkDisplayManager; cdecl; external;
function gdk_display_manager_get_default_display(ADisplayManager: PGdkDisplayManager): PGdkDisplay; cdecl; external;
function gdk_display_manager_get_type: TGType; cdecl; external;
@ -3830,6 +3834,7 @@ function gdk_display_manager_open_display(ADisplayManager: PGdkDisplayManager; n
function gdk_display_open(display_name: Pgchar): PGdkDisplay; cdecl; external;
function gdk_display_open_default_libgtk_only: PGdkDisplay; cdecl; external;
function gdk_display_peek_event(ADisplay: PGdkDisplay): PGdkEvent; cdecl; external;
function gdk_display_pointer_is_grabbed(ADisplay: PGdkDisplay): gboolean; cdecl; external;
function gdk_display_request_selection_notification(ADisplay: PGdkDisplay; selection: TGdkAtom): gboolean; cdecl; external;
function gdk_display_supports_clipboard_persistence(ADisplay: PGdkDisplay): gboolean; cdecl; external;
function gdk_display_supports_composite(ADisplay: PGdkDisplay): gboolean; cdecl; external;
@ -3982,6 +3987,7 @@ function gdk_visual_get_screen(AVisual: PGdkVisual): PGdkScreen; cdecl; external
function gdk_visual_get_system: PGdkVisual; cdecl; external;
function gdk_visual_get_type: TGType; cdecl; external;
function gdk_visual_get_visual_type(AVisual: PGdkVisual): TGdkVisualType; cdecl; external;
function gdk_window_at_pointer(win_x: Pgint; win_y: Pgint): PGdkWindow; cdecl; external;
function gdk_window_create_similar_surface(AWindow: PGdkWindow; content: Tcairo_content_t; width: gint; height: gint): Pcairo_surface_t; cdecl; external;
function gdk_window_ensure_native(AWindow: PGdkWindow): gboolean; cdecl; external;
function gdk_window_get_accept_focus(AWindow: PGdkWindow): gboolean; cdecl; external;
@ -4005,6 +4011,7 @@ function gdk_window_get_height(AWindow: PGdkWindow): gint; cdecl; external;
function gdk_window_get_modal_hint(AWindow: PGdkWindow): gboolean; cdecl; external;
function gdk_window_get_origin(AWindow: PGdkWindow; x: Pgint; y: Pgint): gint; cdecl; external;
function gdk_window_get_parent(AWindow: PGdkWindow): PGdkWindow; cdecl; external;
function gdk_window_get_pointer(AWindow: PGdkWindow; x: Pgint; y: Pgint; mask: PGdkModifierType): PGdkWindow; cdecl; external;
function gdk_window_get_screen(AWindow: PGdkWindow): PGdkScreen; cdecl; external;
function gdk_window_get_source_events(AWindow: PGdkWindow; source: TGdkInputSource): TGdkEventMask; cdecl; external;
function gdk_window_get_state(AWindow: PGdkWindow): TGdkWindowState; cdecl; external;
@ -4028,6 +4035,7 @@ function gdk_window_peek_children(AWindow: PGdkWindow): PGList; cdecl; external;
function gdk_window_set_static_gravities(AWindow: PGdkWindow; use_static: gboolean): gboolean; cdecl; external;
procedure gdk_add_option_entries_libgtk_only(group: PGOptionGroup); cdecl; external;
procedure gdk_app_launch_context_set_desktop(AAppLaunchContext: PGdkAppLaunchContext; desktop: gint); cdecl; external;
procedure gdk_app_launch_context_set_display(AAppLaunchContext: PGdkAppLaunchContext; display: PGdkDisplay); cdecl; external;
procedure gdk_app_launch_context_set_icon(AAppLaunchContext: PGdkAppLaunchContext; icon: PGIcon); cdecl; external;
procedure gdk_app_launch_context_set_icon_name(AAppLaunchContext: PGdkAppLaunchContext; icon_name: Pgchar); cdecl; external;
procedure gdk_app_launch_context_set_screen(AAppLaunchContext: PGdkAppLaunchContext; screen: PGdkScreen); cdecl; external;
@ -4040,6 +4048,7 @@ procedure gdk_cairo_set_source_pixbuf(cr: Pcairo_t; pixbuf: PGdkPixbuf; pixbuf_x
procedure gdk_cairo_set_source_rgba(cr: Pcairo_t; rgba: PGdkRGBA); cdecl; external;
procedure gdk_cairo_set_source_window(cr: Pcairo_t; window: PGdkWindow; x: gdouble; y: gdouble); cdecl; external;
procedure gdk_color_free(AColor: PGdkColor); cdecl; external;
procedure gdk_cursor_unref(ACursor: PGdkCursor); cdecl; external;
procedure gdk_device_free_history(events: PPGdkTimeCoord; n_events: gint); cdecl; external;
procedure gdk_device_get_position(ADevice: PGdkDevice; screen: PPGdkScreen; x: Pgint; y: Pgint); cdecl; external;
procedure gdk_device_get_state(ADevice: PGdkDevice; window: PGdkWindow; axes: Pgdouble; mask: PGdkModifierType); cdecl; external;
@ -4052,13 +4061,17 @@ procedure gdk_display_beep(ADisplay: PGdkDisplay); cdecl; external;
procedure gdk_display_close(ADisplay: PGdkDisplay); cdecl; external;
procedure gdk_display_flush(ADisplay: PGdkDisplay); cdecl; external;
procedure gdk_display_get_maximal_cursor_size(ADisplay: PGdkDisplay; width: Pguint; height: Pguint); cdecl; external;
procedure gdk_display_get_pointer(ADisplay: PGdkDisplay; screen: PPGdkScreen; x: Pgint; y: Pgint; mask: PGdkModifierType); cdecl; external;
procedure gdk_display_keyboard_ungrab(ADisplay: PGdkDisplay; time_: guint32); cdecl; external;
procedure gdk_display_manager_set_default_display(ADisplayManager: PGdkDisplayManager; display: PGdkDisplay); cdecl; external;
procedure gdk_display_notify_startup_complete(ADisplay: PGdkDisplay; startup_id: Pgchar); cdecl; external;
procedure gdk_display_pointer_ungrab(ADisplay: PGdkDisplay; time_: guint32); cdecl; external;
procedure gdk_display_put_event(ADisplay: PGdkDisplay; event: PGdkEvent); cdecl; external;
procedure gdk_display_set_double_click_distance(ADisplay: PGdkDisplay; distance: guint); cdecl; external;
procedure gdk_display_set_double_click_time(ADisplay: PGdkDisplay; msec: guint); cdecl; external;
procedure gdk_display_store_clipboard(ADisplay: PGdkDisplay; clipboard_window: PGdkWindow; time_: guint32; targets: PGdkAtom; n_targets: gint); cdecl; external;
procedure gdk_display_sync(ADisplay: PGdkDisplay); cdecl; external;
procedure gdk_display_warp_pointer(ADisplay: PGdkDisplay; screen: PGdkScreen; x: gint; y: gint); cdecl; external;
procedure gdk_drag_abort(context: PGdkDragContext; time_: guint32); cdecl; external;
procedure gdk_drag_context_set_device(ADragContext: PGdkDragContext; device: PGdkDevice); cdecl; external;
procedure gdk_drag_drop(context: PGdkDragContext; time_: guint32); cdecl; external;
@ -4193,7 +4206,7 @@ procedure gdk_window_set_title(AWindow: PGdkWindow; title: Pgchar); cdecl; exter
procedure gdk_window_set_transient_for(AWindow: PGdkWindow; parent: PGdkWindow); cdecl; external;
procedure gdk_window_set_type_hint(AWindow: PGdkWindow; hint: TGdkWindowTypeHint); cdecl; external;
procedure gdk_window_set_urgency_hint(AWindow: PGdkWindow; urgent: gboolean); cdecl; external;
procedure gdk_window_set_user_data(AWindow: PGdkWindow; user_data: TGObject); cdecl; external;
procedure gdk_window_set_user_data(AWindow: PGdkWindow; user_data: PGObject); cdecl; external;
procedure gdk_window_shape_combine_region(AWindow: PGdkWindow; shape_region: Pcairo_region_t; offset_x: gint; offset_y: gint); cdecl; external;
procedure gdk_window_show(AWindow: PGdkWindow); cdecl; external;
procedure gdk_window_show_unraised(AWindow: PGdkWindow); cdecl; external;
@ -4205,11 +4218,21 @@ procedure gdk_window_unmaximize(AWindow: PGdkWindow); cdecl; external;
procedure gdk_window_unstick(AWindow: PGdkWindow); cdecl; external;
procedure gdk_window_withdraw(AWindow: PGdkWindow); cdecl; external;
implementation
function TGdkAppLaunchContext.new: PGdkAppLaunchContext; cdecl;
begin
Result := Gdk3.gdk_app_launch_context_new();
end;
procedure TGdkAppLaunchContext.set_desktop(desktop: gint); cdecl;
begin
Gdk3.gdk_app_launch_context_set_desktop(@self, desktop);
end;
procedure TGdkAppLaunchContext.set_display(display: PGdkDisplay); cdecl;
begin
Gdk3.gdk_app_launch_context_set_display(@self, display);
end;
procedure TGdkAppLaunchContext.set_icon(icon: PGIcon); cdecl;
begin
Gdk3.gdk_app_launch_context_set_icon(@self, icon);
@ -4310,11 +4333,21 @@ begin
Result := Gdk3.gdk_display_get_name(@self);
end;
procedure TGdkDisplay.get_pointer(screen: PPGdkScreen; x: Pgint; y: Pgint; mask: PGdkModifierType); cdecl;
begin
Gdk3.gdk_display_get_pointer(@self, screen, x, y, mask);
end;
function TGdkDisplay.get_screen(screen_num: gint): PGdkScreen; cdecl;
begin
Result := Gdk3.gdk_display_get_screen(@self, screen_num);
end;
function TGdkDisplay.get_window_at_pointer(win_x: Pgint; win_y: Pgint): PGdkWindow; cdecl;
begin
Result := Gdk3.gdk_display_get_window_at_pointer(@self, win_x, win_y);
end;
function TGdkDisplay.has_pending: gboolean; cdecl;
begin
Result := Gdk3.gdk_display_has_pending(@self);
@ -4325,6 +4358,16 @@ begin
Result := Gdk3.gdk_display_is_closed(@self);
end;
procedure TGdkDisplay.keyboard_ungrab(time_: guint32); cdecl;
begin
Gdk3.gdk_display_keyboard_ungrab(@self, time_);
end;
function TGdkDisplay.list_devices: PGList; cdecl;
begin
Result := Gdk3.gdk_display_list_devices(@self);
end;
procedure TGdkDisplay.notify_startup_complete(startup_id: Pgchar); cdecl;
begin
Gdk3.gdk_display_notify_startup_complete(@self, startup_id);
@ -4335,6 +4378,16 @@ begin
Result := Gdk3.gdk_display_peek_event(@self);
end;
function TGdkDisplay.pointer_is_grabbed: gboolean; cdecl;
begin
Result := Gdk3.gdk_display_pointer_is_grabbed(@self);
end;
procedure TGdkDisplay.pointer_ungrab(time_: guint32); cdecl;
begin
Gdk3.gdk_display_pointer_ungrab(@self, time_);
end;
procedure TGdkDisplay.put_event(event: PGdkEvent); cdecl;
begin
Gdk3.gdk_display_put_event(@self, event);
@ -4415,6 +4468,11 @@ begin
Gdk3.gdk_display_sync(@self);
end;
procedure TGdkDisplay.warp_pointer(screen: PGdkScreen; x: gint; y: gint); cdecl;
begin
Gdk3.gdk_display_warp_pointer(@self, screen, x, y);
end;
function TGdkScreen.get_default: PGdkScreen; cdecl;
begin
Result := Gdk3.gdk_screen_get_default();
@ -4645,6 +4703,16 @@ begin
Result := Gdk3.gdk_cursor_get_image(@self);
end;
function TGdkCursor.ref: PGdkCursor; cdecl;
begin
Result := Gdk3.gdk_cursor_ref(@self);
end;
procedure TGdkCursor.unref; cdecl;
begin
Gdk3.gdk_cursor_unref(@self);
end;
procedure TGdkDevice.free_history(events: PPGdkTimeCoord; n_events: gint); cdecl;
begin
Gdk3.gdk_device_free_history(events, n_events);
@ -4785,6 +4853,11 @@ begin
Result := Gdk3.gdk_window_new(parent, attributes, attributes_mask);
end;
function TGdkWindow.at_pointer(win_x: Pgint; win_y: Pgint): PGdkWindow; cdecl;
begin
Result := Gdk3.gdk_window_at_pointer(win_x, win_y);
end;
procedure TGdkWindow.constrain_size(geometry: PGdkGeometry; flags: guint; width: gint; height: gint; new_width: Pgint; new_height: Pgint); cdecl;
begin
Gdk3.gdk_window_constrain_size(geometry, flags, width, height, new_width, new_height);
@ -5025,6 +5098,11 @@ begin
Result := Gdk3.gdk_window_get_parent(@self);
end;
function TGdkWindow.get_pointer(x: Pgint; y: Pgint; mask: PGdkModifierType): PGdkWindow; cdecl;
begin
Result := Gdk3.gdk_window_get_pointer(@self, x, y, mask);
end;
procedure TGdkWindow.get_position(x: Pgint; y: Pgint); cdecl;
begin
Gdk3.gdk_window_get_position(@self, x, y);
@ -5410,7 +5488,7 @@ begin
Gdk3.gdk_window_set_urgency_hint(@self, urgent);
end;
procedure TGdkWindow.set_user_data(user_data: TGObject); cdecl;
procedure TGdkWindow.set_user_data(user_data: PGObject); cdecl;
begin
Gdk3.gdk_window_set_user_data(@self, user_data);
end;

32
bindings/gtk3/gdkpixbuf2.pas
View File

@ -155,7 +155,7 @@ type
function get_rowstride: gint; cdecl; inline;
function get_width: gint; cdecl; inline;
function new_subpixbuf(src_x: gint; src_y: gint; width: gint; height: gint): PGdkPixbuf; cdecl; inline;
function ref: PGdkPixbuf; cdecl; inline;
function rotate_simple(angle: TGdkPixbufRotation): PGdkPixbuf; cdecl; inline;
procedure saturate_and_pixelate(dest: PGdkPixbuf; saturation: gfloat; pixelate: gboolean); cdecl; inline;
//function save(filename: Pgchar; type_: Pgchar; error: PPGError; args: array of const): gboolean; cdecl; inline;
@ -168,7 +168,7 @@ type
function savev(filename: Pgchar; type_: Pgchar; option_keys: PPgchar; option_values: PPgchar): gboolean; cdecl; inline;
procedure scale(dest: PGdkPixbuf; dest_x: gint; dest_y: gint; dest_width: gint; dest_height: gint; offset_x: gdouble; offset_y: gdouble; scale_x: gdouble; scale_y: gdouble; interp_type: TGdkInterpType); cdecl; inline;
function scale_simple(dest_width: gint; dest_height: gint; interp_type: TGdkInterpType): PGdkPixbuf; cdecl; inline;
procedure unref; cdecl; inline;
property bits_per_sample: gint read get_bits_per_sample { property is writeable but setter not declared } ;
property colorspace: TGdkColorspace read get_colorspace { property is writeable but setter not declared } ;
property has_alpha: gboolean read get_has_alpha { property is writeable but setter not declared } ;
@ -230,8 +230,8 @@ type
function get_static_image: PGdkPixbuf; cdecl; inline;
function get_width: gint; cdecl; inline;
function is_static_image: gboolean; cdecl; inline;
function ref: PGdkPixbufAnimation; cdecl; inline;
procedure unref; cdecl; inline;
end;
TGdkPixbufAnimationIter = object(TGObject)
function advance(current_time: PGTimeVal): gboolean; cdecl; inline;
@ -304,6 +304,7 @@ function gdk_pixbuf_animation_iter_get_pixbuf(APixbufAnimationIter: PGdkPixbufAn
function gdk_pixbuf_animation_iter_get_type: TGType; cdecl; external;
function gdk_pixbuf_animation_iter_on_currently_loading_frame(APixbufAnimationIter: PGdkPixbufAnimationIter): gboolean; cdecl; external;
function gdk_pixbuf_animation_new_from_file(filename: Pgchar): PGdkPixbufAnimation; cdecl; external;
function gdk_pixbuf_animation_ref(APixbufAnimation: PGdkPixbufAnimation): PGdkPixbufAnimation; cdecl; external;
function gdk_pixbuf_apply_embedded_orientation(APixbuf: PGdkPixbuf): PGdkPixbuf; cdecl; external;
function gdk_pixbuf_composite_color_simple(APixbuf: PGdkPixbuf; dest_width: gint; dest_height: gint; interp_type: TGdkInterpType; overall_alpha: gint; check_size: gint; color1: guint32; color2: guint32): PGdkPixbuf; cdecl; external;
function gdk_pixbuf_copy(APixbuf: PGdkPixbuf): PGdkPixbuf; cdecl; external;
@ -353,6 +354,7 @@ function gdk_pixbuf_new_from_stream_at_scale(stream: PGInputStream; width: gint;
function gdk_pixbuf_new_from_stream_finish(async_result: PGAsyncResult): PGdkPixbuf; cdecl; external;
function gdk_pixbuf_new_from_xpm_data(data: PPgchar): PGdkPixbuf; cdecl; external;
function gdk_pixbuf_new_subpixbuf(APixbuf: PGdkPixbuf; src_x: gint; src_y: gint; width: gint; height: gint): PGdkPixbuf; cdecl; external;
function gdk_pixbuf_ref(APixbuf: PGdkPixbuf): PGdkPixbuf; cdecl; external;
function gdk_pixbuf_rotate_simple(APixbuf: PGdkPixbuf; angle: TGdkPixbufRotation): PGdkPixbuf; cdecl; external;
function gdk_pixbuf_save(APixbuf: PGdkPixbuf; filename: Pgchar; type_: Pgchar; error: PPGError; args: array of const): gboolean; cdecl; external;
function gdk_pixbuf_save_to_buffer(APixbuf: PGdkPixbuf; buffer: PPgchar; buffer_size: Pgsize; type_: Pgchar; error: PPGError; args: array of const): gboolean; cdecl; external;
@ -371,6 +373,7 @@ function gdk_pixdata_deserialize(APixdata: PGdkPixdata; stream_length: guint; st
function gdk_pixdata_from_pixbuf(APixdata: PGdkPixdata; pixbuf: PGdkPixbuf; use_rle: gboolean): gpointer; cdecl; external;
function gdk_pixdata_serialize(APixdata: PGdkPixdata; stream_length_p: Pguint): Pguint8; cdecl; external;
function gdk_pixdata_to_csource(APixdata: PGdkPixdata; name: Pgchar; dump_type: TGdkPixdataDumpType): PGString; cdecl; external;
procedure gdk_pixbuf_animation_unref(APixbufAnimation: PGdkPixbufAnimation); cdecl; external;
procedure gdk_pixbuf_composite(APixbuf: PGdkPixbuf; dest: PGdkPixbuf; dest_x: gint; dest_y: gint; dest_width: gint; dest_height: gint; offset_x: gdouble; offset_y: gdouble; scale_x: gdouble; scale_y: gdouble; interp_type: TGdkInterpType; overall_alpha: gint); cdecl; external;
procedure gdk_pixbuf_composite_color(APixbuf: PGdkPixbuf; dest: PGdkPixbuf; dest_x: gint; dest_y: gint; dest_width: gint; dest_height: gint; offset_x: gdouble; offset_y: gdouble; scale_x: gdouble; scale_y: gdouble; interp_type: TGdkInterpType; overall_alpha: gint; check_x: gint; check_y: gint; check_size: gint; color1: guint32; color2: guint32); cdecl; external;
procedure gdk_pixbuf_copy_area(APixbuf: PGdkPixbuf; src_x: gint; src_y: gint; width: gint; height: gint; dest_pixbuf: PGdkPixbuf; dest_x: gint; dest_y: gint); cdecl; external;
@ -385,6 +388,7 @@ procedure gdk_pixbuf_save_to_stream_async(APixbuf: PGdkPixbuf; stream: PGOutputS
procedure gdk_pixbuf_scale(APixbuf: PGdkPixbuf; dest: PGdkPixbuf; dest_x: gint; dest_y: gint; dest_width: gint; dest_height: gint; offset_x: gdouble; offset_y: gdouble; scale_x: gdouble; scale_y: gdouble; interp_type: TGdkInterpType); cdecl; external;
procedure gdk_pixbuf_simple_anim_add_frame(APixbufSimpleAnim: PGdkPixbufSimpleAnim; pixbuf: PGdkPixbuf); cdecl; external;
procedure gdk_pixbuf_simple_anim_set_loop(APixbufSimpleAnim: PGdkPixbufSimpleAnim; loop: gboolean); cdecl; external;
procedure gdk_pixbuf_unref(APixbuf: PGdkPixbuf); cdecl; external;
implementation
function TGdkPixbuf.new(colorspace: TGdkColorspace; has_alpha: gboolean; bits_per_sample: gint; width: gint; height: gint): PGdkPixbuf; cdecl;
begin
@ -566,6 +570,11 @@ begin
Result := GdkPixbuf2.gdk_pixbuf_new_subpixbuf(@self, src_x, src_y, width, height);
end;
function TGdkPixbuf.ref: PGdkPixbuf; cdecl;
begin
Result := GdkPixbuf2.gdk_pixbuf_ref(@self);
end;
function TGdkPixbuf.rotate_simple(angle: TGdkPixbufRotation): PGdkPixbuf; cdecl;
begin
Result := GdkPixbuf2.gdk_pixbuf_rotate_simple(@self, angle);
@ -601,6 +610,11 @@ begin
Result := GdkPixbuf2.gdk_pixbuf_scale_simple(@self, dest_width, dest_height, interp_type);
end;
procedure TGdkPixbuf.unref; cdecl;
begin
GdkPixbuf2.gdk_pixbuf_unref(@self);
end;
function TGdkPixdata.deserialize(stream_length: guint; stream: Pguint8): gboolean; cdecl;
begin
Result := GdkPixbuf2.gdk_pixdata_deserialize(@self, stream_length, stream);
@ -706,6 +720,16 @@ begin
Result := GdkPixbuf2.gdk_pixbuf_animation_is_static_image(@self);
end;
function TGdkPixbufAnimation.ref: PGdkPixbufAnimation; cdecl;
begin
Result := GdkPixbuf2.gdk_pixbuf_animation_ref(@self);
end;
procedure TGdkPixbufAnimation.unref; cdecl;
begin
GdkPixbuf2.gdk_pixbuf_animation_unref(@self);
end;
function TGdkPixbufAnimationIter.advance(current_time: PGTimeVal): gboolean; cdecl;
begin
Result := GdkPixbuf2.gdk_pixbuf_animation_iter_advance(@self, current_time);

153
bindings/gtk3/gio2.pas
View File

@ -1106,8 +1106,8 @@ type
function create_readwrite_finish(res: PGAsyncResult): PGFileIOStream; cdecl; inline;
function delete(cancellable: PGCancellable): gboolean; cdecl; inline;
function dup: PGFile; cdecl; inline;
procedure eject_mountable(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function eject_mountable_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
procedure eject_mountable_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function eject_mountable_with_operation_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
function enumerate_children(attributes: Pgchar; flags: TGFileQueryInfoFlags; cancellable: PGCancellable): PGFileEnumerator; cdecl; inline;
@ -1195,8 +1195,8 @@ type
function stop_mountable_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
function supports_thread_contexts: gboolean; cdecl; inline;
function trash(cancellable: PGCancellable): gboolean; cdecl; inline;
procedure unmount_mountable(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function unmount_mountable_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
procedure unmount_mountable_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function unmount_mountable_with_operation_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
end;
@ -2166,8 +2166,8 @@ type
priv: PGDBusObjectProxyPrivate;
function new(connection: PGDBusConnection; object_path: Pgchar): PGDBusObjectProxy; cdecl; inline; static;
function get_connection: PGDBusConnection; cdecl; inline;
property connection: PGDBusConnection read get_connection { property is writeable but setter not declared } ;
//property object_path: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_object_path { property is writeable but setter not declared } ;
//property g_connection: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_g_connection { property is writeable but setter not declared } ;
//property g_object_path: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_g_object_path { property is writeable but setter not declared } ;
end;
PPGDBusProxy = ^PGDBusProxy;
@ -2274,7 +2274,7 @@ type
procedure remove_interface(interface_: PGDBusInterfaceSkeleton); cdecl; inline;
procedure remove_interface_by_name(interface_name: Pgchar); cdecl; inline;
procedure set_object_path(object_path: Pgchar); cdecl; inline;
//property object_path: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_object_path { property is writeable but setter not declared } ;
//property g_object_path: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_g_object_path { property is writeable but setter not declared } ;
end;
TGDBusObjectManagerServerPrivate = record
@ -2529,8 +2529,8 @@ type
function can_start: gboolean; cdecl; inline;
function can_start_degraded: gboolean; cdecl; inline;
function can_stop: gboolean; cdecl; inline;
procedure eject(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function eject_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
procedure eject_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function eject_with_operation_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
function enumerate_identifiers: PPgchar; cdecl; inline;
@ -2676,8 +2676,8 @@ type
unmounted: procedure; cdecl;
function can_eject: gboolean; cdecl; inline;
function can_unmount: gboolean; cdecl; inline;
procedure eject(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function eject_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
procedure eject_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function eject_with_operation_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
function get_default_location: PGFile; cdecl; inline;
@ -2694,8 +2694,8 @@ type
procedure remount(flags: TGMountMountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function remount_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
procedure shadow; cdecl; inline;
procedure unmount(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function unmount_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
procedure unmount_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function unmount_with_operation_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
procedure unshadow; cdecl; inline;
@ -3428,8 +3428,8 @@ type
removed: procedure; cdecl;
function can_eject: gboolean; cdecl; inline;
function can_mount: gboolean; cdecl; inline;
procedure eject(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function eject_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
procedure eject_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function eject_with_operation_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
function enumerate_identifiers: PPgchar; cdecl; inline;
@ -3506,7 +3506,7 @@ type
PGVolumeMonitor = ^TGVolumeMonitor;
TGVolumeMonitor = object(TGObject)
priv: gpointer;
function adopt_orphan_mount(mount: PGMount): PGVolume; cdecl; inline; static;
function get: PGVolumeMonitor; cdecl; inline; static;
function get_connected_drives: PGList; cdecl; inline;
function get_mount_for_uuid(uuid: Pgchar): PGMount; cdecl; inline;
@ -3922,9 +3922,9 @@ type
procedure sync; cdecl; inline; static;
procedure unbind(object_: gpointer; property_: Pgchar); cdecl; inline; static;
procedure apply; cdecl; inline;
procedure bind(key: Pgchar; object_: TGObject; property_: Pgchar; flags: TGSettingsBindFlags); cdecl; inline;
procedure bind_with_mapping(key: Pgchar; object_: TGObject; property_: Pgchar; flags: TGSettingsBindFlags; get_mapping: TGSettingsBindGetMapping; set_mapping: TGSettingsBindSetMapping; user_data: gpointer; destroy_: TGDestroyNotify); cdecl; inline;
procedure bind_writable(key: Pgchar; object_: TGObject; property_: Pgchar; inverted: gboolean); cdecl; inline;
procedure bind(key: Pgchar; object_: PGObject; property_: Pgchar; flags: TGSettingsBindFlags); cdecl; inline;
procedure bind_with_mapping(key: Pgchar; object_: PGObject; property_: Pgchar; flags: TGSettingsBindFlags; get_mapping: TGSettingsBindGetMapping; set_mapping: TGSettingsBindSetMapping; user_data: gpointer; destroy_: TGDestroyNotify); cdecl; inline;
procedure bind_writable(key: Pgchar; object_: PGObject; property_: Pgchar; inverted: gboolean); cdecl; inline;
procedure delay; cdecl; inline;
//procedure get(key: Pgchar; format: Pgchar; args: array of const); cdecl; inline;
function get_boolean(key: Pgchar): gboolean; cdecl; inline;
@ -4587,6 +4587,7 @@ type
function ask_password(password: PGTlsPassword; cancellable: PGCancellable): TGTlsInteractionResult; cdecl; inline;
procedure ask_password_async(password: PGTlsPassword; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function ask_password_finish(result_: PGAsyncResult): TGTlsInteractionResult; cdecl; inline;
function invoke_ask_password(password: PGTlsPassword; cancellable: PGCancellable): TGTlsInteractionResult; cdecl; inline;
end;
PPGTlsRehandshakeMode = ^PGTlsRehandshakeMode;
@ -4612,7 +4613,7 @@ type
function get_peer_certificate_errors: TGTlsCertificateFlags; cdecl; inline;
function get_rehandshake_mode: TGTlsRehandshakeMode; cdecl; inline;
function get_require_close_notify: gboolean; cdecl; inline;
function get_use_system_certdb: gboolean; cdecl; inline;
function handshake(cancellable: PGCancellable): gboolean; cdecl; inline;
procedure handshake_async(io_priority: gint; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; inline;
function handshake_finish(result_: PGAsyncResult): gboolean; cdecl; inline;
@ -4621,7 +4622,7 @@ type
procedure set_interaction(interaction: PGTlsInteraction); cdecl; inline;
procedure set_rehandshake_mode(mode: TGTlsRehandshakeMode); cdecl; inline;
procedure set_require_close_notify(require_close_notify: gboolean); cdecl; inline;
procedure set_use_system_certdb(use_system_certdb: gboolean); cdecl; inline;
//property base_io_stream: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_base_io_stream { property is writeable but setter not declared } ;
property certificate: PGTlsCertificate read get_certificate { property is writeable but setter not declared } ;
property database: PGTlsDatabase read get_database { property is writeable but setter not declared } ;
@ -4630,7 +4631,7 @@ type
property peer_certificate_errors: TGTlsCertificateFlags read get_peer_certificate_errors ;
property rehandshake_mode: TGTlsRehandshakeMode read get_rehandshake_mode { property is writeable but setter not declared } ;
property require_close_notify: gboolean read get_require_close_notify { property is writeable but setter not declared } ;
//property use_system_certdb: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_use_system_certdb { property is writeable but setter not declared } ;
property use_system_certdb: gboolean read get_use_system_certdb { property is writeable but setter not declared } ;
end;
PPGTlsConnectionClass = ^PGTlsConnectionClass;
@ -5439,6 +5440,7 @@ function g_drive_can_poll_for_media(ADrive: PGDrive): gboolean; cdecl; external;
function g_drive_can_start(ADrive: PGDrive): gboolean; cdecl; external;
function g_drive_can_start_degraded(ADrive: PGDrive): gboolean; cdecl; external;
function g_drive_can_stop(ADrive: PGDrive): gboolean; cdecl; external;
function g_drive_eject_finish(ADrive: PGDrive; result_: PGAsyncResult): gboolean; cdecl; external;
function g_drive_eject_with_operation_finish(ADrive: PGDrive; result_: PGAsyncResult): gboolean; cdecl; external;
function g_drive_enumerate_identifiers(ADrive: PGDrive): PPgchar; cdecl; external;
function g_drive_get_icon(ADrive: PGDrive): PGIcon; cdecl; external;
@ -5488,6 +5490,7 @@ function g_file_delete(AFile: PGFile; cancellable: PGCancellable): gboolean; cde
function g_file_descriptor_based_get_fd(AFileDescriptorBased: PGFileDescriptorBased): gint; cdecl; external;
function g_file_descriptor_based_get_type: TGType; cdecl; external;
function g_file_dup(AFile: PGFile): PGFile; cdecl; external;
function g_file_eject_mountable_finish(AFile: PGFile; result_: PGAsyncResult): gboolean; cdecl; external;
function g_file_eject_mountable_with_operation_finish(AFile: PGFile; result_: PGAsyncResult): gboolean; cdecl; external;
function g_file_enumerate_children(AFile: PGFile; attributes: Pgchar; flags: TGFileQueryInfoFlags; cancellable: PGCancellable): PGFileEnumerator; cdecl; external;
function g_file_enumerate_children_finish(AFile: PGFile; res: PGAsyncResult): PGFileEnumerator; cdecl; external;
@ -5619,6 +5622,7 @@ function g_file_start_mountable_finish(AFile: PGFile; result_: PGAsyncResult): g
function g_file_stop_mountable_finish(AFile: PGFile; result_: PGAsyncResult): gboolean; cdecl; external;
function g_file_supports_thread_contexts(AFile: PGFile): gboolean; cdecl; external;
function g_file_trash(AFile: PGFile; cancellable: PGCancellable): gboolean; cdecl; external;
function g_file_unmount_mountable_finish(AFile: PGFile; result_: PGAsyncResult): gboolean; cdecl; external;
function g_file_unmount_mountable_with_operation_finish(AFile: PGFile; result_: PGAsyncResult): gboolean; cdecl; external;
function g_filename_completer_get_completion_suffix(AFilenameCompleter: PGFilenameCompleter; initial_text: Pgchar): Pgchar; cdecl; external;
function g_filename_completer_get_completions(AFilenameCompleter: PGFilenameCompleter; initial_text: Pgchar): PPgchar; cdecl; external;
@ -5716,6 +5720,7 @@ function g_memory_output_stream_new(data: gpointer; size: gsize; realloc_functio
function g_memory_output_stream_steal_data(AMemoryOutputStream: PGMemoryOutputStream): gpointer; cdecl; external;
function g_mount_can_eject(AMount: PGMount): gboolean; cdecl; external;
function g_mount_can_unmount(AMount: PGMount): gboolean; cdecl; external;
function g_mount_eject_finish(AMount: PGMount; result_: PGAsyncResult): gboolean; cdecl; external;
function g_mount_eject_with_operation_finish(AMount: PGMount; result_: PGAsyncResult): gboolean; cdecl; external;
function g_mount_get_default_location(AMount: PGMount): PGFile; cdecl; external;
function g_mount_get_drive(AMount: PGMount): PGDrive; cdecl; external;
@ -5737,6 +5742,7 @@ function g_mount_operation_get_type: TGType; cdecl; external;
function g_mount_operation_get_username(AMountOperation: PGMountOperation): Pgchar; cdecl; external;
function g_mount_operation_new: PGMountOperation; cdecl; external;
function g_mount_remount_finish(AMount: PGMount; result_: PGAsyncResult): gboolean; cdecl; external;
function g_mount_unmount_finish(AMount: PGMount; result_: PGAsyncResult): gboolean; cdecl; external;
function g_mount_unmount_with_operation_finish(AMount: PGMount; result_: PGAsyncResult): gboolean; cdecl; external;
function g_native_volume_monitor_get_type: TGType; cdecl; external;
function g_network_address_get_hostname(ANetworkAddress: PGNetworkAddress): Pgchar; cdecl; external;
@ -6009,6 +6015,7 @@ function g_tls_connection_get_peer_certificate_errors(ATlsConnection: PGTlsConne
function g_tls_connection_get_rehandshake_mode(ATlsConnection: PGTlsConnection): TGTlsRehandshakeMode; cdecl; external;
function g_tls_connection_get_require_close_notify(ATlsConnection: PGTlsConnection): gboolean; cdecl; external;
function g_tls_connection_get_type: TGType; cdecl; external;
function g_tls_connection_get_use_system_certdb(ATlsConnection: PGTlsConnection): gboolean; cdecl; external;
function g_tls_connection_handshake(ATlsConnection: PGTlsConnection; cancellable: PGCancellable): gboolean; cdecl; external;
function g_tls_connection_handshake_finish(ATlsConnection: PGTlsConnection; result_: PGAsyncResult): gboolean; cdecl; external;
function g_tls_database_create_certificate_handle(ATlsDatabase: PGTlsDatabase; certificate: PGTlsCertificate): Pgchar; cdecl; external;
@ -6027,6 +6034,7 @@ function g_tls_file_database_new(anchors: Pgchar): PGTlsDatabase; cdecl; externa
function g_tls_interaction_ask_password(ATlsInteraction: PGTlsInteraction; password: PGTlsPassword; cancellable: PGCancellable): TGTlsInteractionResult; cdecl; external;
function g_tls_interaction_ask_password_finish(ATlsInteraction: PGTlsInteraction; result_: PGAsyncResult): TGTlsInteractionResult; cdecl; external;
function g_tls_interaction_get_type: TGType; cdecl; external;
function g_tls_interaction_invoke_ask_password(ATlsInteraction: PGTlsInteraction; password: PGTlsPassword; cancellable: PGCancellable): TGTlsInteractionResult; cdecl; external;
function g_tls_password_get_description(ATlsPassword: PGTlsPassword): Pgchar; cdecl; external;
function g_tls_password_get_flags(ATlsPassword: PGTlsPassword): TGTlsPasswordFlags; cdecl; external;
function g_tls_password_get_type: TGType; cdecl; external;
@ -6114,6 +6122,7 @@ function g_vfs_is_active(AVfs: PGVfs): gboolean; cdecl; external;
function g_vfs_parse_name(AVfs: PGVfs; parse_name: Pgchar): PGFile; cdecl; external;
function g_volume_can_eject(AVolume: PGVolume): gboolean; cdecl; external;
function g_volume_can_mount(AVolume: PGVolume): gboolean; cdecl; external;
function g_volume_eject_finish(AVolume: PGVolume; result_: PGAsyncResult): gboolean; cdecl; external;
function g_volume_eject_with_operation_finish(AVolume: PGVolume; result_: PGAsyncResult): gboolean; cdecl; external;
function g_volume_enumerate_identifiers(AVolume: PGVolume): PPgchar; cdecl; external;
function g_volume_get_activation_root(AVolume: PGVolume): PGFile; cdecl; external;
@ -6124,6 +6133,7 @@ function g_volume_get_mount(AVolume: PGVolume): PGMount; cdecl; external;
function g_volume_get_name(AVolume: PGVolume): Pgchar; cdecl; external;
function g_volume_get_type: TGType; cdecl; external;
function g_volume_get_uuid(AVolume: PGVolume): Pgchar; cdecl; external;
function g_volume_monitor_adopt_orphan_mount(mount: PGMount): PGVolume; cdecl; external;
function g_volume_monitor_get: PGVolumeMonitor; cdecl; external;
function g_volume_monitor_get_connected_drives(AVolumeMonitor: PGVolumeMonitor): PGList; cdecl; external;
function g_volume_monitor_get_mount_for_uuid(AVolumeMonitor: PGVolumeMonitor; uuid: Pgchar): PGMount; cdecl; external;
@ -6262,6 +6272,7 @@ procedure g_dbus_server_start(ADBusServer: PGDBusServer); cdecl; external;
procedure g_dbus_server_stop(ADBusServer: PGDBusServer); cdecl; external;
procedure g_dbus_signal_info_unref(ADBusSignalInfo: PGDBusSignalInfo); cdecl; external;
procedure g_desktop_app_info_set_desktop_env(desktop_env: Pgchar); cdecl; external;
procedure g_drive_eject(ADrive: PGDrive; flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_drive_eject_with_operation(ADrive: PGDrive; flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_drive_poll_for_media(ADrive: PGDrive; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_drive_start(ADrive: PGDrive; flags: TGDriveStartFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
@ -6275,6 +6286,7 @@ procedure g_file_attribute_matcher_unref(AFileAttributeMatcher: PGFileAttributeM
procedure g_file_copy_async(AFile: PGFile; destination: PGFile; flags: TGFileCopyFlags; io_priority: gint; cancellable: PGCancellable; progress_callback: TGFileProgressCallback; progress_callback_data: gpointer; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_create_async(AFile: PGFile; flags: TGFileCreateFlags; io_priority: gint; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_create_readwrite_async(AFile: PGFile; flags: TGFileCreateFlags; io_priority: gint; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_eject_mountable(AFile: PGFile; flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_eject_mountable_with_operation(AFile: PGFile; flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_enumerate_children_async(AFile: PGFile; attributes: Pgchar; flags: TGFileQueryInfoFlags; io_priority: gint; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_enumerator_close_async(AFileEnumerator: PGFileEnumerator; io_priority: gint; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
@ -6330,6 +6342,7 @@ procedure g_file_set_attributes_async(AFile: PGFile; info: PGFileInfo; flags: TG
procedure g_file_set_display_name_async(AFile: PGFile; display_name: Pgchar; io_priority: gint; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_start_mountable(AFile: PGFile; flags: TGDriveStartFlags; start_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_stop_mountable(AFile: PGFile; flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_unmount_mountable(AFile: PGFile; flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_file_unmount_mountable_with_operation(AFile: PGFile; flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_filename_completer_set_dirs_only(AFilenameCompleter: PGFilenameCompleter; dirs_only: gboolean); cdecl; external;
procedure g_filter_input_stream_set_close_base_stream(AFilterInputStream: PGFilterInputStream; close_base: gboolean); cdecl; external;
@ -6351,6 +6364,7 @@ procedure g_io_stream_close_async(AIOStream: PGIOStream; io_priority: gint; canc
procedure g_io_stream_splice_async(AIOStream: PGIOStream; stream2: PGIOStream; flags: TGIOStreamSpliceFlags; io_priority: gint; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_loadable_icon_load_async(ALoadableIcon: PGLoadableIcon; size: gint; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_memory_input_stream_add_data(AMemoryInputStream: PGMemoryInputStream; data: Pguint8; len: gssize; destroy_: TGDestroyNotify); cdecl; external;
procedure g_mount_eject(AMount: PGMount; flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_mount_eject_with_operation(AMount: PGMount; flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_mount_guess_content_type(AMount: PGMount; force_rescan: gboolean; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_mount_operation_reply(AMountOperation: PGMountOperation; result_: TGMountOperationResult); cdecl; external;
@ -6362,6 +6376,7 @@ procedure g_mount_operation_set_password_save(AMountOperation: PGMountOperation;
procedure g_mount_operation_set_username(AMountOperation: PGMountOperation; username: Pgchar); cdecl; external;
procedure g_mount_remount(AMount: PGMount; flags: TGMountMountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_mount_shadow(AMount: PGMount); cdecl; external;
procedure g_mount_unmount(AMount: PGMount; flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_mount_unmount_with_operation(AMount: PGMount; flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_mount_unshadow(AMount: PGMount); cdecl; external;
procedure g_network_service_set_scheme(ANetworkService: PGNetworkService; scheme: Pgchar); cdecl; external;
@ -6382,9 +6397,9 @@ procedure g_resolver_lookup_by_name_async(AResolver: PGResolver; hostname: Pgcha
procedure g_resolver_lookup_service_async(AResolver: PGResolver; service: Pgchar; protocol: Pgchar; domain: Pgchar; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_resolver_set_default(AResolver: PGResolver); cdecl; external;
procedure g_settings_apply(ASettings: PGSettings); cdecl; external;
procedure g_settings_bind(ASettings: PGSettings; key: Pgchar; object_: TGObject; property_: Pgchar; flags: TGSettingsBindFlags); cdecl; external;
procedure g_settings_bind_with_mapping(ASettings: PGSettings; key: Pgchar; object_: TGObject; property_: Pgchar; flags: TGSettingsBindFlags; get_mapping: TGSettingsBindGetMapping; set_mapping: TGSettingsBindSetMapping; user_data: gpointer; destroy_: TGDestroyNotify); cdecl; external;
procedure g_settings_bind_writable(ASettings: PGSettings; key: Pgchar; object_: TGObject; property_: Pgchar; inverted: gboolean); cdecl; external;
procedure g_settings_bind(ASettings: PGSettings; key: Pgchar; object_: PGObject; property_: Pgchar; flags: TGSettingsBindFlags); cdecl; external;
procedure g_settings_bind_with_mapping(ASettings: PGSettings; key: Pgchar; object_: PGObject; property_: Pgchar; flags: TGSettingsBindFlags; get_mapping: TGSettingsBindGetMapping; set_mapping: TGSettingsBindSetMapping; user_data: gpointer; destroy_: TGDestroyNotify); cdecl; external;
procedure g_settings_bind_writable(ASettings: PGSettings; key: Pgchar; object_: PGObject; property_: Pgchar; inverted: gboolean); cdecl; external;
procedure g_settings_delay(ASettings: PGSettings); cdecl; external;
procedure g_settings_get(ASettings: PGSettings; key: Pgchar; format: Pgchar; args: array of const); cdecl; external;
procedure g_settings_reset(ASettings: PGSettings; key: Pgchar); cdecl; external;
@ -6449,6 +6464,7 @@ procedure g_tls_connection_set_database(ATlsConnection: PGTlsConnection; databas
procedure g_tls_connection_set_interaction(ATlsConnection: PGTlsConnection; interaction: PGTlsInteraction); cdecl; external;
procedure g_tls_connection_set_rehandshake_mode(ATlsConnection: PGTlsConnection; mode: TGTlsRehandshakeMode); cdecl; external;
procedure g_tls_connection_set_require_close_notify(ATlsConnection: PGTlsConnection; require_close_notify: gboolean); cdecl; external;
procedure g_tls_connection_set_use_system_certdb(ATlsConnection: PGTlsConnection; use_system_certdb: gboolean); cdecl; external;
procedure g_tls_database_lookup_certificate_for_handle_async(ATlsDatabase: PGTlsDatabase; handle: Pgchar; interaction: PGTlsInteraction; flags: TGTlsDatabaseLookupFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_tls_database_lookup_certificate_issuer_async(ATlsDatabase: PGTlsDatabase; certificate: PGTlsCertificate; interaction: PGTlsInteraction; flags: TGTlsDatabaseLookupFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_tls_database_lookup_certificates_issued_by_async(ATlsDatabase: PGTlsDatabase; issuer_raw_dn: Pguint8; interaction: PGTlsInteraction; flags: TGTlsDatabaseLookupFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
@ -6464,6 +6480,7 @@ procedure g_unix_mount_free(mount_entry: PGUnixMountEntry); cdecl; external;
procedure g_unix_mount_monitor_set_rate_limit(AUnixMountMonitor: PGUnixMountMonitor; limit_msec: gint); cdecl; external;
procedure g_unix_mount_point_free(AUnixMountPoint: PGUnixMountPoint); cdecl; external;
procedure g_unix_output_stream_set_close_fd(AUnixOutputStream: PGUnixOutputStream; close_fd: gboolean); cdecl; external;
procedure g_volume_eject(AVolume: PGVolume; flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_volume_eject_with_operation(AVolume: PGVolume; flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_volume_mount(AVolume: PGVolume; flags: TGMountMountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl; external;
procedure g_zlib_compressor_set_file_info(AZlibCompressor: PGZlibCompressor; file_info: PGFileInfo); cdecl; external;
@ -7013,6 +7030,16 @@ begin
Result := Gio2.g_file_dup(@self);
end;
procedure TGFile.eject_mountable(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_file_eject_mountable(@self, flags, cancellable, callback, user_data);
end;
function TGFile.eject_mountable_finish(result_: PGAsyncResult): gboolean; cdecl;
begin
Result := Gio2.g_file_eject_mountable_finish(@self, result_);
end;
procedure TGFile.eject_mountable_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_file_eject_mountable_with_operation(@self, flags, mount_operation, cancellable, callback, user_data);
@ -7448,6 +7475,16 @@ begin
Result := Gio2.g_file_trash(@self, cancellable);
end;
procedure TGFile.unmount_mountable(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_file_unmount_mountable(@self, flags, cancellable, callback, user_data);
end;
function TGFile.unmount_mountable_finish(result_: PGAsyncResult): gboolean; cdecl;
begin
Result := Gio2.g_file_unmount_mountable_finish(@self, result_);
end;
procedure TGFile.unmount_mountable_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_file_unmount_mountable_with_operation(@self, flags, mount_operation, cancellable, callback, user_data);
@ -9363,6 +9400,16 @@ begin
Result := Gio2.g_drive_can_stop(@self);
end;
procedure TGDrive.eject(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_drive_eject(@self, flags, cancellable, callback, user_data);
end;
function TGDrive.eject_finish(result_: PGAsyncResult): gboolean; cdecl;
begin
Result := Gio2.g_drive_eject_finish(@self, result_);
end;
procedure TGDrive.eject_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_drive_eject_with_operation(@self, flags, mount_operation, cancellable, callback, user_data);
@ -9598,6 +9645,16 @@ begin
Result := Gio2.g_mount_can_unmount(@self);
end;
procedure TGMount.eject(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_mount_eject(@self, flags, cancellable, callback, user_data);
end;
function TGMount.eject_finish(result_: PGAsyncResult): gboolean; cdecl;
begin
Result := Gio2.g_mount_eject_finish(@self, result_);
end;
procedure TGMount.eject_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_mount_eject_with_operation(@self, flags, mount_operation, cancellable, callback, user_data);
@ -9678,6 +9735,16 @@ begin
Gio2.g_mount_shadow(@self);
end;
procedure TGMount.unmount(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_mount_unmount(@self, flags, cancellable, callback, user_data);
end;
function TGMount.unmount_finish(result_: PGAsyncResult): gboolean; cdecl;
begin
Result := Gio2.g_mount_unmount_finish(@self, result_);
end;
procedure TGMount.unmount_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_mount_unmount_with_operation(@self, flags, mount_operation, cancellable, callback, user_data);
@ -10433,6 +10500,16 @@ begin
Result := Gio2.g_volume_can_mount(@self);
end;
procedure TGVolume.eject(flags: TGMountUnmountFlags; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_volume_eject(@self, flags, cancellable, callback, user_data);
end;
function TGVolume.eject_finish(result_: PGAsyncResult): gboolean; cdecl;
begin
Result := Gio2.g_volume_eject_finish(@self, result_);
end;
procedure TGVolume.eject_with_operation(flags: TGMountUnmountFlags; mount_operation: PGMountOperation; cancellable: PGCancellable; callback: TGAsyncReadyCallback; user_data: gpointer); cdecl;
begin
Gio2.g_volume_eject_with_operation(@self, flags, mount_operation, cancellable, callback, user_data);
@ -10498,6 +10575,11 @@ begin
Result := Gio2.g_volume_should_automount(@self);
end;
function TGVolumeMonitor.adopt_orphan_mount(mount: PGMount): PGVolume; cdecl;
begin
Result := Gio2.g_volume_monitor_adopt_orphan_mount(mount);
end;
function TGVolumeMonitor.get: PGVolumeMonitor; cdecl;
begin
Result := Gio2.g_volume_monitor_get();
@ -10883,17 +10965,17 @@ begin
Gio2.g_settings_apply(@self);
end;
procedure TGSettings.bind(key: Pgchar; object_: TGObject; property_: Pgchar; flags: TGSettingsBindFlags); cdecl;
procedure TGSettings.bind(key: Pgchar; object_: PGObject; property_: Pgchar; flags: TGSettingsBindFlags); cdecl;
begin
Gio2.g_settings_bind(@self, key, object_, property_, flags);
end;
procedure TGSettings.bind_with_mapping(key: Pgchar; object_: TGObject; property_: Pgchar; flags: TGSettingsBindFlags; get_mapping: TGSettingsBindGetMapping; set_mapping: TGSettingsBindSetMapping; user_data: gpointer; destroy_: TGDestroyNotify); cdecl;
procedure TGSettings.bind_with_mapping(key: Pgchar; object_: PGObject; property_: Pgchar; flags: TGSettingsBindFlags; get_mapping: TGSettingsBindGetMapping; set_mapping: TGSettingsBindSetMapping; user_data: gpointer; destroy_: TGDestroyNotify); cdecl;
begin
Gio2.g_settings_bind_with_mapping(@self, key, object_, property_, flags, get_mapping, set_mapping, user_data, destroy_);
end;
procedure TGSettings.bind_writable(key: Pgchar; object_: TGObject; property_: Pgchar; inverted: gboolean); cdecl;
procedure TGSettings.bind_writable(key: Pgchar; object_: PGObject; property_: Pgchar; inverted: gboolean); cdecl;
begin
Gio2.g_settings_bind_writable(@self, key, object_, property_, inverted);
end;
@ -11923,6 +12005,11 @@ begin
Result := Gio2.g_tls_interaction_ask_password_finish(@self, result_);
end;
function TGTlsInteraction.invoke_ask_password(password: PGTlsPassword; cancellable: PGCancellable): TGTlsInteractionResult; cdecl;
begin
Result := Gio2.g_tls_interaction_invoke_ask_password(@self, password, cancellable);
end;
function TGTlsConnection.emit_accept_certificate(peer_cert: PGTlsCertificate; errors: TGTlsCertificateFlags): gboolean; cdecl;
begin
Result := Gio2.g_tls_connection_emit_accept_certificate(@self, peer_cert, errors);
@ -11963,6 +12050,11 @@ begin
Result := Gio2.g_tls_connection_get_require_close_notify(@self);
end;
function TGTlsConnection.get_use_system_certdb: gboolean; cdecl;
begin
Result := Gio2.g_tls_connection_get_use_system_certdb(@self);
end;
function TGTlsConnection.handshake(cancellable: PGCancellable): gboolean; cdecl;
begin
Result := Gio2.g_tls_connection_handshake(@self, cancellable);
@ -12003,6 +12095,11 @@ begin
Gio2.g_tls_connection_set_require_close_notify(@self, require_close_notify);
end;
procedure TGTlsConnection.set_use_system_certdb(use_system_certdb: gboolean); cdecl;
begin
Gio2.g_tls_connection_set_use_system_certdb(@self, use_system_certdb);
end;
function TGTlsFileDatabase.new(anchors: Pgchar): PGTlsDatabase; cdecl;
begin
Result := Gio2.g_tls_file_database_new(anchors);

655
bindings/gtk3/glib2.pas
View File

@ -92,8 +92,8 @@ const
LOG_FATAL_MASK = 0;
LOG_LEVEL_USER_SHIFT = 8;
MAJOR_VERSION = 2;
MICRO_VERSION = 18;
MINOR_VERSION = 29;
MICRO_VERSION = 0;
MINOR_VERSION = 30;
MODULE_SUFFIX = 'so';
MUTEX_DEBUG_MAGIC = 4175530711;
OPTION_REMAINING = '';
@ -1264,7 +1264,7 @@ type
function new(checksum_type: TGChecksumType): PGChecksum; cdecl; inline; static;
function type_get_length(checksum_type: TGChecksumType): gssize; cdecl; inline; static;
end;
TGChildWatchFunc = procedure(pid: TGPid; status: gint; data: gpointer); cdecl;
TGChildWatchFunc = procedure(pid: TGPid; status: gint; user_data: gpointer); cdecl;
PPGList = ^PGList;
PGList = ^TGList;
@ -1315,24 +1315,24 @@ type
PPGCompletion = ^PGCompletion;
PGCompletion = ^TGCompletion;
PPGCompletionFunc = ^PGCompletionFunc;
PGCompletionFunc = ^TGCompletionFunc;
PPGCompletionStrncmpFunc = ^PGCompletionStrncmpFunc;
PGCompletionStrncmpFunc = ^TGCompletionStrncmpFunc;
PPGCompletionFunc = ^PGCompletionFunc;
PGCompletionFunc = ^TGCompletionFunc;
TGCompletion = object
items: PGList;
func: TGCompletionFunc;
prefix: Pgchar;
cache: PGList;
strncmp_func: TGCompletionStrncmpFunc;
procedure add_items(items: PGList); cdecl; inline;
procedure clear_items; cdecl; inline;
function complete(prefix: Pgchar; new_prefix: PPgchar): PGList; cdecl; inline;
function complete_utf8(prefix: Pgchar; new_prefix: PPgchar): PGList; cdecl; inline;
procedure free; cdecl; inline;
procedure remove_items(items: PGList); cdecl; inline;
procedure set_compare(strncmp_func: TGCompletionStrncmpFunc); cdecl; inline;
function new(func: TGCompletionFunc): PGCompletion; cdecl; inline; static;
end;
@ -1408,7 +1408,7 @@ type
procedure set_julian(julian_date: guint32); cdecl; inline;
procedure set_month(month: TGDateMonth); cdecl; inline;
procedure set_parse(str: Pgchar); cdecl; inline;
procedure set_time(time_: TGTime); cdecl; inline;
procedure set_time_t(timet: glong); cdecl; inline;
procedure set_time_val(timeval: PGTimeVal); cdecl; inline;
procedure set_year(year: TGDateYear); cdecl; inline;
@ -1446,9 +1446,6 @@ type
PPPgint64 = ^PPgint64;
PPgint64 = ^Pgint64;
Pgint64 = ^gint64;
PPGSource = ^PGSource;
PGSource = ^TGSource;
TGDateTime = object
function new(tz: PGTimeZone; year: gint; month: gint; day: gint; hour: gint; minute: gint; seconds: gdouble): PGDateTime; cdecl; inline; static;
function new_from_timeval_local(tv: PGTimeVal): PGDateTime; cdecl; inline; static;
@ -1488,7 +1485,6 @@ type
procedure get_ymd(year: Pgint; month: Pgint; day: Pgint); cdecl; inline;
function is_daylight_savings: gboolean; cdecl; inline;
function ref: PGDateTime; cdecl; inline;
function source_new(cancel_on_set: gboolean): PGSource; cdecl; inline;
function to_local: PGDateTime; cdecl; inline;
function to_timeval(tv: PGTimeVal): gboolean; cdecl; inline;
function to_timezone(tz: PGTimeZone): PGDateTime; cdecl; inline;
@ -1519,71 +1515,6 @@ type
function new_utc: PGTimeZone; cdecl; inline; static;
end;
PPPGPollFD = ^PPGPollFD;
PPGPollFD = ^PGPollFD;
PGPollFD = ^TGPollFD;
PPGMainContext = ^PGMainContext;
PGMainContext = ^TGMainContext;
PPGSourceFunc = ^PGSourceFunc;
PGSourceFunc = ^TGSourceFunc;
TGSourceFunc = function(data: gpointer): gboolean; cdecl;
PPGSourceCallbackFuncs = ^PGSourceCallbackFuncs;
PGSourceCallbackFuncs = ^TGSourceCallbackFuncs;
PPGSourceFuncs = ^PGSourceFuncs;
PGSourceFuncs = ^TGSourceFuncs;
PPGSList = ^PGSList;
PGSList = ^TGSList;
PPGSourcePrivate = ^PGSourcePrivate;
PGSourcePrivate = ^TGSourcePrivate;
TGSource = object
callback_data: gpointer;
callback_funcs: PGSourceCallbackFuncs;
source_funcs: PGSourceFuncs;
ref_count: guint;
context: PGMainContext;
priority: gint;
flags: guint;
source_id: guint;
poll_fds: PGSList;
prev: PGSource;
next: PGSource;
name: Pgchar;
priv: PGSourcePrivate;
procedure add_child_source(child_source: PGSource); cdecl; inline;
procedure add_poll(fd: PGPollFD); cdecl; inline;
function attach(context: PGMainContext): guint; cdecl; inline;
procedure destroy_; cdecl; inline;
function get_can_recurse: gboolean; cdecl; inline;
function get_context: PGMainContext; cdecl; inline;
function get_id: guint; cdecl; inline;
function get_name: Pgchar; cdecl; inline;
function get_priority: gint; cdecl; inline;
function get_time: gint64; cdecl; inline;
function is_destroyed: gboolean; cdecl; inline;
function ref: PGSource; cdecl; inline;
procedure remove_child_source(child_source: PGSource); cdecl; inline;
procedure remove_poll(fd: PGPollFD); cdecl; inline;
procedure set_callback(func: TGSourceFunc; data: gpointer; notify: TGDestroyNotify); cdecl; inline;
procedure set_callback_indirect(callback_data: gpointer; callback_funcs: PGSourceCallbackFuncs); cdecl; inline;
procedure set_can_recurse(can_recurse: gboolean); cdecl; inline;
procedure set_funcs(funcs: PGSourceFuncs); cdecl; inline;
procedure set_name(name: Pgchar); cdecl; inline;
procedure set_priority(priority: gint); cdecl; inline;
procedure unref; cdecl; inline;
function new(source_funcs: PGSourceFuncs; struct_size: guint): PGSource; cdecl; inline; static;
function remove(tag: guint): gboolean; cdecl; inline; static;
function remove_by_funcs_user_data(funcs: PGSourceFuncs; user_data: gpointer): gboolean; cdecl; inline; static;
function remove_by_user_data(user_data: gpointer): gboolean; cdecl; inline; static;
procedure set_name_by_id(tag: guint; name: Pgchar); cdecl; inline; static;
end;
PPGDebugKey = ^PGDebugKey;
PGDebugKey = ^TGDebugKey;
@ -1832,6 +1763,9 @@ type
PPGSeekType = ^PGSeekType;
PGSeekType = ^TGSeekType;
PPGSource = ^PGSource;
PGSource = ^TGSource;
PPGIOCondition = ^PGIOCondition;
PGIOCondition = ^TGIOCondition;
@ -1961,6 +1895,71 @@ type
end;
TGIOFunc = function(source: PGIOChannel; condition: TGIOCondition; data: gpointer): gboolean; cdecl;
PPGSourceFuncs = ^PGSourceFuncs;
PGSourceFuncs = ^TGSourceFuncs;
PPPGPollFD = ^PPGPollFD;
PPGPollFD = ^PGPollFD;
PGPollFD = ^TGPollFD;
PPGMainContext = ^PGMainContext;
PGMainContext = ^TGMainContext;
PPGSourceFunc = ^PGSourceFunc;
PGSourceFunc = ^TGSourceFunc;
TGSourceFunc = function(user_data: gpointer): gboolean; cdecl;
PPGSourceCallbackFuncs = ^PGSourceCallbackFuncs;
PGSourceCallbackFuncs = ^TGSourceCallbackFuncs;
PPGSList = ^PGSList;
PGSList = ^TGSList;
PPGSourcePrivate = ^PGSourcePrivate;
PGSourcePrivate = ^TGSourcePrivate;
TGSource = object
callback_data: gpointer;
callback_funcs: PGSourceCallbackFuncs;
source_funcs: PGSourceFuncs;
ref_count: guint;
context: PGMainContext;
priority: gint;
flags: guint;
source_id: guint;
poll_fds: PGSList;
prev: PGSource;
next: PGSource;
name: Pgchar;
priv: PGSourcePrivate;
function new(source_funcs: PGSourceFuncs; struct_size: guint): PGSource; cdecl; inline; static;
procedure add_child_source(child_source: PGSource); cdecl; inline;
procedure add_poll(fd: PGPollFD); cdecl; inline;
function attach(context: PGMainContext): guint; cdecl; inline;
procedure destroy_; cdecl; inline;
function get_can_recurse: gboolean; cdecl; inline;
function get_context: PGMainContext; cdecl; inline;
procedure get_current_time(timeval: PGTimeVal); cdecl; inline;
function get_id: guint; cdecl; inline;
function get_name: Pgchar; cdecl; inline;
function get_priority: gint; cdecl; inline;
function get_time: gint64; cdecl; inline;
function is_destroyed: gboolean; cdecl; inline;
function ref: PGSource; cdecl; inline;
procedure remove_child_source(child_source: PGSource); cdecl; inline;
procedure remove_poll(fd: PGPollFD); cdecl; inline;
procedure set_callback(func: TGSourceFunc; data: gpointer; notify: TGDestroyNotify); cdecl; inline;
procedure set_callback_indirect(callback_data: gpointer; callback_funcs: PGSourceCallbackFuncs); cdecl; inline;
procedure set_can_recurse(can_recurse: gboolean); cdecl; inline;
procedure set_funcs(funcs: PGSourceFuncs); cdecl; inline;
procedure set_name(name: Pgchar); cdecl; inline;
procedure set_priority(priority: gint); cdecl; inline;
procedure unref; cdecl; inline;
function remove(tag: guint): gboolean; cdecl; inline; static;
function remove_by_funcs_user_data(funcs: PGSourceFuncs; user_data: gpointer): gboolean; cdecl; inline; static;
function remove_by_user_data(user_data: gpointer): gboolean; cdecl; inline; static;
procedure set_name_by_id(tag: guint; name: Pgchar); cdecl; inline; static;
end;
PPGKeyFileFlags = ^PGKeyFileFlags;
PGKeyFileFlags = ^TGKeyFileFlags;
@ -2025,40 +2024,14 @@ type
PGLogLevelFlags = ^TGLogLevelFlags;
TGLogFunc = procedure(log_domain: Pgchar; log_level: TGLogLevelFlags; message: Pgchar; user_data: gpointer); cdecl;
PPPgushort = ^PPgushort;
PPgushort = ^Pgushort;
Pgushort = ^gushort;
TGPollFD = record
fd: gint;
events: gushort;
revents: gushort;
end;
PPGSourceDummyMarshal = ^PGSourceDummyMarshal;
PGSourceDummyMarshal = ^TGSourceDummyMarshal;
TGSourceDummyMarshal = procedure; cdecl;
TGSourceFuncs = record
prepare: function(source: PGSource; timeout_: Pgint): gboolean; cdecl;
check: function(source: PGSource): gboolean; cdecl;
dispatch: function(source: PGSource; callback: TGSourceFunc; user_data: gpointer): gboolean; cdecl;
finalize: procedure(source: PGSource); cdecl;
closure_callback: TGSourceFunc;
closure_marshal: TGSourceDummyMarshal;
end;
TGPollFunc = function(ufds: PGPollFD; nfsd: guint; timeout_: gint): gint; cdecl;
PPGPollFunc = ^PGPollFunc;
PGPollFunc = ^TGPollFunc;
TGPollFunc = function(ufds: PGPollFD; nfsd: guint; timeout_: gint): gint; cdecl;
PPGMutex = ^PGMutex;
PGMutex = ^TGMutex;
TGMainContext = object
function new: PGMainContext; cdecl; inline; static;
function acquire: gboolean; cdecl; inline;
procedure add_poll(fd: PGPollFD; priority: gint); cdecl; inline;
function check(max_priority: gint; fds: PGPollFD; n_fds: gint): gint; cdecl; inline;
@ -2085,9 +2058,35 @@ type
procedure wakeup; cdecl; inline;
function default_: PGMainContext; cdecl; inline; static;
function get_thread_default: PGMainContext; cdecl; inline; static;
function new: PGMainContext; cdecl; inline; static;
end;
PPPgushort = ^PPgushort;
PPgushort = ^Pgushort;
Pgushort = ^gushort;
TGPollFD = record
fd: gint;
events: gushort;
revents: gushort;
end;
PPGSourceDummyMarshal = ^PGSourceDummyMarshal;
PGSourceDummyMarshal = ^TGSourceDummyMarshal;
TGSourceDummyMarshal = procedure; cdecl;
TGSourceFuncs = record
prepare: function(source: PGSource; timeout_: Pgint): gboolean; cdecl;
check: function(source: PGSource): gboolean; cdecl;
dispatch: function(source: PGSource; callback: TGSourceFunc; user_data: gpointer): gboolean; cdecl;
finalize: procedure(source: PGSource); cdecl;
closure_callback: TGSourceFunc;
closure_marshal: TGSourceDummyMarshal;
end;
TGMutex = record
end;
@ -2096,13 +2095,13 @@ type
PPGMainLoop = ^PGMainLoop;
PGMainLoop = ^TGMainLoop;
TGMainLoop = object
function new(context: PGMainContext; is_running: gboolean): PGMainLoop; cdecl; inline; static;
function get_context: PGMainContext; cdecl; inline;
function is_running: gboolean; cdecl; inline;
procedure quit; cdecl; inline;
function ref: PGMainLoop; cdecl; inline;
procedure run; cdecl; inline;
procedure unref; cdecl; inline;
function new(context: PGMainContext; is_running: gboolean): PGMainLoop; cdecl; inline; static;
end;
PPGMappedFile = ^PGMappedFile;
@ -2144,10 +2143,10 @@ type
function length(list: PGSList): guint; cdecl; inline; static;
function nth(list: PGSList; n: guint): PGSList; cdecl; inline; static;
function nth_data(list: PGSList; n: guint): gpointer; cdecl; inline; static;
procedure pop_allocator; cdecl; inline; static;
function position(list: PGSList; llink: PGSList): gint; cdecl; inline; static;
function prepend(list: PGSList; data: gpointer): PGSList; cdecl; inline; static;
procedure push_allocator(dummy: gpointer); cdecl; inline; static;
function remove(list: PGSList; data: gpointer): PGSList; cdecl; inline; static;
function remove_all(list: PGSList; data: gpointer): PGSList; cdecl; inline; static;
function remove_link(list: PGSList; link_: PGSList): PGSList; cdecl; inline; static;
@ -2534,22 +2533,22 @@ type
PGTuples = ^TGTuples;
TGTuples = object
len: guint;
procedure destroy_; cdecl; inline;
function index(index_: gint; field: gint): gpointer; cdecl; inline;
end;
PPGRelation = ^PGRelation;
PGRelation = ^TGRelation;
TGRelation = object
function count(key: gpointer; field: gint): gint; cdecl; inline;
function delete(key: gpointer; field: gint): gint; cdecl; inline;
procedure destroy_; cdecl; inline;
//function exists(args: array of const): gboolean; cdecl; inline;
procedure index(field: gint; hash_func: TGHashFunc; key_equal_func: TGEqualFunc); cdecl; inline;
//procedure insert(args: array of const); cdecl; inline;
procedure print; cdecl; inline;
function select(key: gpointer; field: gint): PGTuples; cdecl; inline;
function new(fields: gint): PGRelation; cdecl; inline; static;
end;
PPGScannerConfig = ^PGScannerConfig;
@ -3326,6 +3325,8 @@ function g_checksum_type_get_length(checksum_type: TGChecksumType): gssize; cdec
function g_child_watch_add(pid: TGPid; function_: TGChildWatchFunc; data: gpointer): guint; cdecl; external;
function g_child_watch_add_full(priority: gint; pid: TGPid; function_: TGChildWatchFunc; data: gpointer; notify: TGDestroyNotify): guint; cdecl; external;
function g_child_watch_source_new(pid: TGPid): PGSource; cdecl; external;
function g_completion_complete(ACompletion: PGCompletion; prefix: Pgchar; new_prefix: PPgchar): PGList; cdecl; external;
function g_completion_complete_utf8(ACompletion: PGCompletion; prefix: Pgchar; new_prefix: PPgchar): PGList; cdecl; external;
function g_completion_new(func: TGCompletionFunc): PGCompletion; cdecl; external;
function g_compute_checksum_for_data(checksum_type: TGChecksumType; data: Pguint8; length: gsize): Pgchar; cdecl; external;
function g_compute_checksum_for_string(checksum_type: TGChecksumType; str: Pgchar; length: gssize): Pgchar; cdecl; external;
@ -3404,7 +3405,6 @@ function g_date_time_new_now_local: PGDateTime; cdecl; external;
function g_date_time_new_now_utc: PGDateTime; cdecl; external;
function g_date_time_new_utc(year: gint; month: gint; day: gint; hour: gint; minute: gint; seconds: gdouble): PGDateTime; cdecl; external;
function g_date_time_ref(ADateTime: PGDateTime): PGDateTime; cdecl; external;
function g_date_time_source_new(ADateTime: PGDateTime; cancel_on_set: gboolean): PGSource; cdecl; external;
function g_date_time_to_local(ADateTime: PGDateTime): PGDateTime; cdecl; external;
function g_date_time_to_timeval(ADateTime: PGDateTime; tv: PGTimeVal): gboolean; cdecl; external;
function g_date_time_to_timezone(ADateTime: PGDateTime; tz: PGTimeZone): PGDateTime; cdecl; external;
@ -3629,6 +3629,7 @@ function g_main_context_find_source_by_id(AMainContext: PGMainContext; source_id
function g_main_context_find_source_by_user_data(AMainContext: PGMainContext; user_data: gpointer): PGSource; cdecl; external;
function g_main_context_get_poll_func(AMainContext: PGMainContext): TGPollFunc; cdecl; external;
function g_main_context_get_thread_default: PGMainContext; cdecl; external;
function g_main_context_get_type: TGType; cdecl; external;
function g_main_context_is_owner(AMainContext: PGMainContext): gboolean; cdecl; external;
function g_main_context_iteration(AMainContext: PGMainContext; may_block: gboolean): gboolean; cdecl; external;
function g_main_context_new: PGMainContext; cdecl; external;
@ -3640,6 +3641,7 @@ function g_main_context_wait(AMainContext: PGMainContext; cond: PGCond; mutex: P
function g_main_current_source: PGSource; cdecl; external;
function g_main_depth: gint; cdecl; external;
function g_main_loop_get_context(AMainLoop: PGMainLoop): PGMainContext; cdecl; external;
function g_main_loop_get_type: TGType; cdecl; external;
function g_main_loop_is_running(AMainLoop: PGMainLoop): gboolean; cdecl; external;
function g_main_loop_new(context: PGMainContext; is_running: gboolean): PGMainLoop; cdecl; external;
function g_main_loop_ref(AMainLoop: PGMainLoop): PGMainLoop; cdecl; external;
@ -3810,6 +3812,11 @@ function g_regex_replace_literal(ARegex: PGRegex; string_: Pgchar; string_len: g
function g_regex_split(ARegex: PGRegex; string_: Pgchar; match_options: TGRegexMatchFlags): PPgchar; cdecl; external;
function g_regex_split_full(ARegex: PGRegex; string_: Pgchar; string_len: gssize; start_position: gint; match_options: TGRegexMatchFlags; max_tokens: gint): PPgchar; cdecl; external;
function g_regex_split_simple(pattern: Pgchar; string_: Pgchar; compile_options: TGRegexCompileFlags; match_options: TGRegexMatchFlags): PPgchar; cdecl; external;
function g_relation_count(ARelation: PGRelation; key: gpointer; field: gint): gint; cdecl; external;
function g_relation_delete(ARelation: PGRelation; key: gpointer; field: gint): gint; cdecl; external;
function g_relation_exists(ARelation: PGRelation; args: array of const): gboolean; cdecl; external;
function g_relation_new(fields: gint): PGRelation; cdecl; external;
function g_relation_select(ARelation: PGRelation; key: gpointer; field: gint): PGTuples; cdecl; external;
function g_rmdir(filename: Pgchar): gint; cdecl; external;
function g_scanner_cur_line(AScanner: PGScanner): guint; cdecl; external;
function g_scanner_cur_position(AScanner: PGScanner): guint; cdecl; external;
@ -3890,6 +3897,7 @@ function g_source_get_id(ASource: PGSource): guint; cdecl; external;
function g_source_get_name(ASource: PGSource): Pgchar; cdecl; external;
function g_source_get_priority(ASource: PGSource): gint; cdecl; external;
function g_source_get_time(ASource: PGSource): gint64; cdecl; external;
function g_source_get_type: TGType; cdecl; external;
function g_source_is_destroyed(ASource: PGSource): gboolean; cdecl; external;
function g_source_new(source_funcs: PGSourceFuncs; struct_size: guint): PGSource; cdecl; external;
function g_source_ref(ASource: PGSource): PGSource; cdecl; external;
@ -4050,6 +4058,7 @@ function g_try_malloc0_n(n_blocks: gsize; n_block_bytes: gsize): gpointer; cdecl
function g_try_malloc_n(n_blocks: gsize; n_block_bytes: gsize): gpointer; cdecl; external;
function g_try_realloc(mem: gpointer; n_bytes: gsize): gpointer; cdecl; external;
function g_try_realloc_n(mem: gpointer; n_blocks: gsize; n_block_bytes: gsize): gpointer; cdecl; external;
function g_tuples_index(ATuples: PGTuples; index_: gint; field: gint): gpointer; cdecl; external;
function g_ucs4_to_utf16(str: Pgunichar; len: glong; items_read: Pglong; items_written: Pglong): Pguint16; cdecl; external;
function g_ucs4_to_utf8(str: Pgunichar; len: glong; items_read: Pglong; items_written: Pglong): Pgchar; cdecl; external;
function g_unichar_break_type(c: gunichar): TGUnicodeBreakType; cdecl; external;
@ -4244,7 +4253,6 @@ function g_vprintf(format: Pgchar; args: Tva_list): gint; cdecl; external;
function g_vsnprintf(string_: Pgchar; n: gulong; format: Pgchar; args: Tva_list): gint; cdecl; external;
function g_vsprintf(string_: Pgchar; format: Pgchar; args: Tva_list): gint; cdecl; external;
function glib_check_version(required_major: guint; required_minor: guint; required_micro: guint): Pgchar; cdecl; external;
function intern: TGType; cdecl; external;
procedure g_allocator_free(AAllocator: PGAllocator); cdecl; external;
procedure g_array_sort(array_: Pgpointer; compare_func: TGCompareFunc); cdecl; external;
procedure g_array_sort_with_data(array_: Pgpointer; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; external;
@ -4297,6 +4305,11 @@ procedure g_checksum_get_digest(AChecksum: PGChecksum; buffer: Pguint8; digest_l
procedure g_checksum_reset(AChecksum: PGChecksum); cdecl; external;
procedure g_checksum_update(AChecksum: PGChecksum; data: Pguint8; length: gssize); cdecl; external;
procedure g_clear_error; cdecl; external;
procedure g_completion_add_items(ACompletion: PGCompletion; items: PGList); cdecl; external;
procedure g_completion_clear_items(ACompletion: PGCompletion); cdecl; external;
procedure g_completion_free(ACompletion: PGCompletion); cdecl; external;
procedure g_completion_remove_items(ACompletion: PGCompletion; items: PGList); cdecl; external;
procedure g_completion_set_compare(ACompletion: PGCompletion; strncmp_func: TGCompletionStrncmpFunc); cdecl; external;
procedure g_datalist_clear(datalist: PPGData); cdecl; external;
procedure g_datalist_foreach(datalist: PPGData; func: TGDataForeachFunc; user_data: gpointer); cdecl; external;
procedure g_datalist_id_set_data_full(datalist: PPGData; key_id: TGQuark; data: gpointer; destroy_func: TGDestroyNotify); cdecl; external;
@ -4318,6 +4331,7 @@ procedure g_date_set_dmy(ADate: PGDate; day: TGDateDay; month: TGDateMonth; y: T
procedure g_date_set_julian(ADate: PGDate; julian_date: guint32); cdecl; external;
procedure g_date_set_month(ADate: PGDate; month: TGDateMonth); cdecl; external;
procedure g_date_set_parse(ADate: PGDate; str: Pgchar); cdecl; external;
procedure g_date_set_time(ADate: PGDate; time_: TGTime); cdecl; external;
procedure g_date_set_time_t(ADate: PGDate; timet: glong); cdecl; external;
procedure g_date_set_time_val(ADate: PGDate; timeval: PGTimeVal); cdecl; external;
procedure g_date_set_year(ADate: PGDate; year: TGDateYear); cdecl; external;
@ -4485,6 +4499,10 @@ procedure g_rand_set_seed(ARand: PGRand; seed: guint32); cdecl; external;
procedure g_rand_set_seed_array(ARand: PGRand; seed: Pguint32; seed_length: guint); cdecl; external;
procedure g_random_set_seed(seed: guint32); cdecl; external;
procedure g_regex_unref(ARegex: PGRegex); cdecl; external;
procedure g_relation_destroy(ARelation: PGRelation); cdecl; external;
procedure g_relation_index(ARelation: PGRelation; field: gint; hash_func: TGHashFunc; key_equal_func: TGEqualFunc); cdecl; external;
procedure g_relation_insert(ARelation: PGRelation; args: array of const); cdecl; external;
procedure g_relation_print(ARelation: PGRelation); cdecl; external;
procedure g_reload_user_special_dirs_cache; cdecl; external;
procedure g_return_if_fail_warning(log_domain: Pgchar; pretty_function: Pgchar; expression: Pgchar); cdecl; external;
procedure g_scanner_destroy(AScanner: PGScanner); cdecl; external;
@ -4526,6 +4544,7 @@ procedure g_slist_push_allocator(dummy: gpointer); cdecl; external;
procedure g_source_add_child_source(ASource: PGSource; child_source: PGSource); cdecl; external;
procedure g_source_add_poll(ASource: PGSource; fd: PGPollFD); cdecl; external;
procedure g_source_destroy(ASource: PGSource); cdecl; external;
procedure g_source_get_current_time(ASource: PGSource; timeval: PGTimeVal); cdecl; external;
procedure g_source_remove_child_source(ASource: PGSource; child_source: PGSource); cdecl; external;
procedure g_source_remove_poll(ASource: PGSource; fd: PGPollFD); cdecl; external;
procedure g_source_set_callback(ASource: PGSource; func: TGSourceFunc; data: gpointer; notify: TGDestroyNotify); cdecl; external;
@ -4606,6 +4625,7 @@ procedure g_tree_insert(ATree: PGTree; key: gpointer; value: gpointer); cdecl; e
procedure g_tree_replace(ATree: PGTree; key: gpointer; value: gpointer); cdecl; external;
procedure g_tree_traverse(ATree: PGTree; traverse_func: TGTraverseFunc; traverse_type: TGTraverseType; user_data: gpointer); cdecl; external;
procedure g_tree_unref(ATree: PGTree); cdecl; external;
procedure g_tuples_destroy(ATuples: PGTuples); cdecl; external;
procedure g_unicode_canonical_ordering(string_: Pgunichar; len: gsize); cdecl; external;
procedure g_unsetenv(variable: Pgchar); cdecl; external;
procedure g_usleep(microseconds: gulong); cdecl; external;
@ -5332,6 +5352,41 @@ begin
Result := GLib2.g_list_sort_with_data(list, compare_func, user_data);
end;
procedure TGCompletion.add_items(items: PGList); cdecl;
begin
GLib2.g_completion_add_items(@self, items);
end;
procedure TGCompletion.clear_items; cdecl;
begin
GLib2.g_completion_clear_items(@self);
end;
function TGCompletion.complete(prefix: Pgchar; new_prefix: PPgchar): PGList; cdecl;
begin
Result := GLib2.g_completion_complete(@self, prefix, new_prefix);
end;
function TGCompletion.complete_utf8(prefix: Pgchar; new_prefix: PPgchar): PGList; cdecl;
begin
Result := GLib2.g_completion_complete_utf8(@self, prefix, new_prefix);
end;
procedure TGCompletion.free; cdecl;
begin
GLib2.g_completion_free(@self);
end;
procedure TGCompletion.remove_items(items: PGList); cdecl;
begin
GLib2.g_completion_remove_items(@self, items);
end;
procedure TGCompletion.set_compare(strncmp_func: TGCompletionStrncmpFunc); cdecl;
begin
GLib2.g_completion_set_compare(@self, strncmp_func);
end;
function TGCompletion.new(func: TGCompletionFunc): PGCompletion; cdecl;
begin
Result := GLib2.g_completion_new(func);
@ -5477,6 +5532,11 @@ begin
GLib2.g_date_set_parse(@self, str);
end;
procedure TGDate.set_time(time_: TGTime); cdecl;
begin
GLib2.g_date_set_time(@self, time_);
end;
procedure TGDate.set_time_t(timet: glong); cdecl;
begin
GLib2.g_date_set_time_t(@self, timet);
@ -5762,11 +5822,6 @@ begin
Result := GLib2.g_date_time_ref(@self);
end;
function TGDateTime.source_new(cancel_on_set: gboolean): PGSource; cdecl;
begin
Result := GLib2.g_date_time_source_new(@self, cancel_on_set);
end;
function TGDateTime.to_local: PGDateTime; cdecl;
begin
Result := GLib2.g_date_time_to_local(@self);
@ -5862,136 +5917,6 @@ begin
Result := GLib2.g_time_zone_new_utc();
end;
procedure TGSource.add_child_source(child_source: PGSource); cdecl;
begin
GLib2.g_source_add_child_source(@self, child_source);
end;
procedure TGSource.add_poll(fd: PGPollFD); cdecl;
begin
GLib2.g_source_add_poll(@self, fd);
end;
function TGSource.attach(context: PGMainContext): guint; cdecl;
begin
Result := GLib2.g_source_attach(@self, context);
end;
procedure TGSource.destroy_; cdecl;
begin
GLib2.g_source_destroy(@self);
end;
function TGSource.get_can_recurse: gboolean; cdecl;
begin
Result := GLib2.g_source_get_can_recurse(@self);
end;
function TGSource.get_context: PGMainContext; cdecl;
begin
Result := GLib2.g_source_get_context(@self);
end;
function TGSource.get_id: guint; cdecl;
begin
Result := GLib2.g_source_get_id(@self);
end;
function TGSource.get_name: Pgchar; cdecl;
begin
Result := GLib2.g_source_get_name(@self);
end;
function TGSource.get_priority: gint; cdecl;
begin
Result := GLib2.g_source_get_priority(@self);
end;
function TGSource.get_time: gint64; cdecl;
begin
Result := GLib2.g_source_get_time(@self);
end;
function TGSource.is_destroyed: gboolean; cdecl;
begin
Result := GLib2.g_source_is_destroyed(@self);
end;
function TGSource.ref: PGSource; cdecl;
begin
Result := GLib2.g_source_ref(@self);
end;
procedure TGSource.remove_child_source(child_source: PGSource); cdecl;
begin
GLib2.g_source_remove_child_source(@self, child_source);
end;
procedure TGSource.remove_poll(fd: PGPollFD); cdecl;
begin
GLib2.g_source_remove_poll(@self, fd);
end;
procedure TGSource.set_callback(func: TGSourceFunc; data: gpointer; notify: TGDestroyNotify); cdecl;
begin
GLib2.g_source_set_callback(@self, func, data, notify);
end;
procedure TGSource.set_callback_indirect(callback_data: gpointer; callback_funcs: PGSourceCallbackFuncs); cdecl;
begin
GLib2.g_source_set_callback_indirect(@self, callback_data, callback_funcs);
end;
procedure TGSource.set_can_recurse(can_recurse: gboolean); cdecl;
begin
GLib2.g_source_set_can_recurse(@self, can_recurse);
end;
procedure TGSource.set_funcs(funcs: PGSourceFuncs); cdecl;
begin
GLib2.g_source_set_funcs(@self, funcs);
end;
procedure TGSource.set_name(name: Pgchar); cdecl;
begin
GLib2.g_source_set_name(@self, name);
end;
procedure TGSource.set_priority(priority: gint); cdecl;
begin
GLib2.g_source_set_priority(@self, priority);
end;
procedure TGSource.unref; cdecl;
begin
GLib2.g_source_unref(@self);
end;
function TGSource.new(source_funcs: PGSourceFuncs; struct_size: guint): PGSource; cdecl;
begin
Result := GLib2.g_source_new(source_funcs, struct_size);
end;
function TGSource.remove(tag: guint): gboolean; cdecl;
begin
Result := GLib2.g_source_remove(tag);
end;
function TGSource.remove_by_funcs_user_data(funcs: PGSourceFuncs; user_data: gpointer): gboolean; cdecl;
begin
Result := GLib2.g_source_remove_by_funcs_user_data(funcs, user_data);
end;
function TGSource.remove_by_user_data(user_data: gpointer): gboolean; cdecl;
begin
Result := GLib2.g_source_remove_by_user_data(user_data);
end;
procedure TGSource.set_name_by_id(tag: guint; name: Pgchar); cdecl;
begin
GLib2.g_source_set_name_by_id(tag, name);
end;
procedure TGDir.close; cdecl;
begin
GLib2.g_dir_close(@self);
@ -6637,6 +6562,141 @@ begin
Result := GLib2.g_io_channel_error_quark();
end;
function TGSource.new(source_funcs: PGSourceFuncs; struct_size: guint): PGSource; cdecl;
begin
Result := GLib2.g_source_new(source_funcs, struct_size);
end;
procedure TGSource.add_child_source(child_source: PGSource); cdecl;
begin
GLib2.g_source_add_child_source(@self, child_source);
end;
procedure TGSource.add_poll(fd: PGPollFD); cdecl;
begin
GLib2.g_source_add_poll(@self, fd);
end;
function TGSource.attach(context: PGMainContext): guint; cdecl;
begin
Result := GLib2.g_source_attach(@self, context);
end;
procedure TGSource.destroy_; cdecl;
begin
GLib2.g_source_destroy(@self);
end;
function TGSource.get_can_recurse: gboolean; cdecl;
begin
Result := GLib2.g_source_get_can_recurse(@self);
end;
function TGSource.get_context: PGMainContext; cdecl;
begin
Result := GLib2.g_source_get_context(@self);
end;
procedure TGSource.get_current_time(timeval: PGTimeVal); cdecl;
begin
GLib2.g_source_get_current_time(@self, timeval);
end;
function TGSource.get_id: guint; cdecl;
begin
Result := GLib2.g_source_get_id(@self);
end;
function TGSource.get_name: Pgchar; cdecl;
begin
Result := GLib2.g_source_get_name(@self);
end;
function TGSource.get_priority: gint; cdecl;
begin
Result := GLib2.g_source_get_priority(@self);
end;
function TGSource.get_time: gint64; cdecl;
begin
Result := GLib2.g_source_get_time(@self);
end;
function TGSource.is_destroyed: gboolean; cdecl;
begin
Result := GLib2.g_source_is_destroyed(@self);
end;
function TGSource.ref: PGSource; cdecl;
begin
Result := GLib2.g_source_ref(@self);
end;
procedure TGSource.remove_child_source(child_source: PGSource); cdecl;
begin
GLib2.g_source_remove_child_source(@self, child_source);
end;
procedure TGSource.remove_poll(fd: PGPollFD); cdecl;
begin
GLib2.g_source_remove_poll(@self, fd);
end;
procedure TGSource.set_callback(func: TGSourceFunc; data: gpointer; notify: TGDestroyNotify); cdecl;
begin
GLib2.g_source_set_callback(@self, func, data, notify);
end;
procedure TGSource.set_callback_indirect(callback_data: gpointer; callback_funcs: PGSourceCallbackFuncs); cdecl;
begin
GLib2.g_source_set_callback_indirect(@self, callback_data, callback_funcs);
end;
procedure TGSource.set_can_recurse(can_recurse: gboolean); cdecl;
begin
GLib2.g_source_set_can_recurse(@self, can_recurse);
end;
procedure TGSource.set_funcs(funcs: PGSourceFuncs); cdecl;
begin
GLib2.g_source_set_funcs(@self, funcs);
end;
procedure TGSource.set_name(name: Pgchar); cdecl;
begin
GLib2.g_source_set_name(@self, name);
end;
procedure TGSource.set_priority(priority: gint); cdecl;
begin
GLib2.g_source_set_priority(@self, priority);
end;
procedure TGSource.unref; cdecl;
begin
GLib2.g_source_unref(@self);
end;
function TGSource.remove(tag: guint): gboolean; cdecl;
begin
Result := GLib2.g_source_remove(tag);
end;
function TGSource.remove_by_funcs_user_data(funcs: PGSourceFuncs; user_data: gpointer): gboolean; cdecl;
begin
Result := GLib2.g_source_remove_by_funcs_user_data(funcs, user_data);
end;
function TGSource.remove_by_user_data(user_data: gpointer): gboolean; cdecl;
begin
Result := GLib2.g_source_remove_by_user_data(user_data);
end;
procedure TGSource.set_name_by_id(tag: guint; name: Pgchar); cdecl;
begin
GLib2.g_source_set_name_by_id(tag, name);
end;
procedure TGKeyFile.free; cdecl;
begin
GLib2.g_key_file_free(@self);
@ -6862,6 +6922,11 @@ begin
Result := GLib2.g_key_file_new();
end;
function TGMainContext.new: PGMainContext; cdecl;
begin
Result := GLib2.g_main_context_new();
end;
function TGMainContext.acquire: gboolean; cdecl;
begin
Result := GLib2.g_main_context_acquire(@self);
@ -6992,9 +7057,9 @@ begin
Result := GLib2.g_main_context_get_thread_default();
end;
function TGMainContext.new: PGMainContext; cdecl;
function TGMainLoop.new(context: PGMainContext; is_running: gboolean): PGMainLoop; cdecl;
begin
Result := GLib2.g_main_context_new();
Result := GLib2.g_main_loop_new(context, is_running);
end;
function TGMainLoop.get_context: PGMainContext; cdecl;
@ -7027,11 +7092,6 @@ begin
GLib2.g_main_loop_unref(@self);
end;
function TGMainLoop.new(context: PGMainContext; is_running: gboolean): PGMainLoop; cdecl;
begin
Result := GLib2.g_main_loop_new(context, is_running);
end;
procedure TGMappedFile.free; cdecl;
begin
GLib2.g_mapped_file_free(@self);
@ -7162,6 +7222,11 @@ begin
Result := GLib2.g_slist_nth_data(list, n);
end;
procedure TGSList.pop_allocator; cdecl;
begin
GLib2.g_slist_pop_allocator();
end;
function TGSList.position(list: PGSList; llink: PGSList): gint; cdecl;
begin
Result := GLib2.g_slist_position(list, llink);
@ -7172,6 +7237,11 @@ begin
Result := GLib2.g_slist_prepend(list, data);
end;
procedure TGSList.push_allocator(dummy: gpointer); cdecl;
begin
GLib2.g_slist_push_allocator(dummy);
end;
function TGSList.remove(list: PGSList; data: gpointer): PGSList; cdecl;
begin
Result := GLib2.g_slist_remove(list, data);
@ -8132,6 +8202,51 @@ begin
Result := GLib2.g_rand_new_with_seed_array(seed, seed_length);
end;
procedure TGTuples.destroy_; cdecl;
begin
GLib2.g_tuples_destroy(@self);
end;
function TGTuples.index(index_: gint; field: gint): gpointer; cdecl;
begin
Result := GLib2.g_tuples_index(@self, index_, field);
end;
function TGRelation.count(key: gpointer; field: gint): gint; cdecl;
begin
Result := GLib2.g_relation_count(@self, key, field);
end;
function TGRelation.delete(key: gpointer; field: gint): gint; cdecl;
begin
Result := GLib2.g_relation_delete(@self, key, field);
end;
procedure TGRelation.destroy_; cdecl;
begin
GLib2.g_relation_destroy(@self);
end;
procedure TGRelation.index(field: gint; hash_func: TGHashFunc; key_equal_func: TGEqualFunc); cdecl;
begin
GLib2.g_relation_index(@self, field, hash_func, key_equal_func);
end;
procedure TGRelation.print; cdecl;
begin
GLib2.g_relation_print(@self);
end;
function TGRelation.select(key: gpointer; field: gint): PGTuples; cdecl;
begin
Result := GLib2.g_relation_select(@self, key, field);
end;
function TGRelation.new(fields: gint): PGRelation; cdecl;
begin
Result := GLib2.g_relation_new(fields);
end;
function TGScanner.cur_line: guint; cdecl;
begin
Result := GLib2.g_scanner_cur_line(@self);

124
bindings/gtk3/gobject2.pas
View File

@ -194,8 +194,8 @@ type
function is_floating: gboolean; cdecl; inline;
procedure notify(property_name: Pgchar); cdecl; inline;
procedure notify_by_pspec(pspec: PGParamSpec); cdecl; inline;
function ref: TGObject; cdecl; inline;
function ref_sink: TGObject; cdecl; inline;
function ref: PGObject; cdecl; inline;
function ref_sink: PGObject; cdecl; inline;
procedure remove_toggle_ref(notify: TGToggleNotify; data: gpointer); cdecl; inline;
procedure remove_weak_pointer(weak_pointer_location: Pgpointer); cdecl; inline;
procedure run_dispose; cdecl; inline;
@ -229,12 +229,29 @@ type
PPGValueTransform = ^PGValueTransform;
PGValueTransform = ^TGValueTransform;
TGValueTransform = procedure(src_value: PGValue; dest_value: PGValue); cdecl;
PP_Value__data__union = ^P_Value__data__union;
P_Value__data__union = ^T_Value__data__union;
T_Value__data__union = record
case longint of
0 : (v_int: gint);
1 : (v_uint: guint);
2 : (v_long: glong);
3 : (v_ulong: gulong);
4 : (v_int64: gint64);
5 : (v_uint64: guint64);
6 : (v_float: gfloat);
7 : (v_double: gdouble);
8 : (v_pointer: gpointer);
end;
TGValue = object
g_type: TGType;
data: array [0..1] of gpointer;
data: array [0..1] of T_Value__data__union;
procedure copy(dest_value: PGValue); cdecl; inline;
function dup_boxed: gpointer; cdecl; inline;
function dup_object: TGObject; cdecl; inline;
function dup_object: PGObject; cdecl; inline;
function dup_param: PGParamSpec; cdecl; inline;
function dup_string: Pgchar; cdecl; inline;
function dup_variant: PGVariant; cdecl; inline;
@ -249,7 +266,7 @@ type
function get_int: gint; cdecl; inline;
function get_int64: gint64; cdecl; inline;
function get_long: glong; cdecl; inline;
function get_object: TGObject; cdecl; inline;
function get_object: PGObject; cdecl; inline;
function get_param: PGParamSpec; cdecl; inline;
function get_pointer: gpointer; cdecl; inline;
function get_string: Pgchar; cdecl; inline;
@ -263,7 +280,7 @@ type
function reset: PGValue; cdecl; inline;
procedure set_boolean(v_boolean: gboolean); cdecl; inline;
procedure set_boxed(v_boxed: gpointer); cdecl; inline;
procedure set_boxed_take_ownership(v_boxed: gpointer); cdecl; inline;
procedure set_char(v_char: gchar); cdecl; inline;
procedure set_double(v_double: gdouble); cdecl; inline;
procedure set_enum(v_enum: gint); cdecl; inline;
@ -274,15 +291,15 @@ type
procedure set_int(v_int: gint); cdecl; inline;
procedure set_int64(v_int64: gint64); cdecl; inline;
procedure set_long(v_long: glong); cdecl; inline;
procedure set_object(v_object: TGObject); cdecl; inline;
procedure set_object(v_object: PGObject); cdecl; inline;
procedure set_object_take_ownership(v_object: gpointer); cdecl; inline;
procedure set_param(param: PGParamSpec); cdecl; inline;
procedure set_param_take_ownership(param: PGParamSpec); cdecl; inline;
procedure set_pointer(v_pointer: gpointer); cdecl; inline;
procedure set_static_boxed(v_boxed: gpointer); cdecl; inline;
procedure set_static_string(v_string: Pgchar); cdecl; inline;
procedure set_string(v_string: Pgchar); cdecl; inline;
procedure set_string_take_ownership(v_string: Pgchar); cdecl; inline;
procedure set_uchar(v_uchar: guint8); cdecl; inline;
procedure set_uint(v_uint: guint); cdecl; inline;
procedure set_uint64(v_uint64: guint64); cdecl; inline;
@ -397,13 +414,13 @@ type
TGTypeClass = object
g_type: TGType;
function get_private(private_type: TGType): gpointer; cdecl; inline;
function peek_parent: TGTypeClass; cdecl; inline;
function peek_parent: PGTypeClass; cdecl; inline;
procedure unref; cdecl; inline;
procedure unref_uncached; cdecl; inline;
procedure add_private(g_class: gpointer; private_size: gsize); cdecl; inline; static;
function peek(type_: TGType): TGTypeClass; cdecl; inline; static;
function peek_static(type_: TGType): TGTypeClass; cdecl; inline; static;
function ref(type_: TGType): TGTypeClass; cdecl; inline; static;
function peek(type_: TGType): PGTypeClass; cdecl; inline; static;
function peek_static(type_: TGType): PGTypeClass; cdecl; inline; static;
function ref(type_: TGType): PGTypeClass; cdecl; inline; static;
end;
PPGEnumValue = ^PGEnumValue;
@ -895,10 +912,10 @@ type
TGTypeInterface = object
g_type: TGType;
g_instance_type: TGType;
function peek_parent: TGTypeInterface; cdecl; inline;
function peek_parent: PGTypeInterface; cdecl; inline;
procedure add_prerequisite(interface_type: TGType; prerequisite_type: TGType); cdecl; inline; static;
function get_plugin(instance_type: TGType; interface_type: TGType): PGTypePlugin; cdecl; inline; static;
function peek(instance_class: TGTypeClass; iface_type: TGType): TGTypeInterface; cdecl; inline; static;
function peek(instance_class: PGTypeClass; iface_type: TGType): PGTypeInterface; cdecl; inline; static;
function prerequisites(interface_type: TGType; n_prerequisites: Pguint): PGType; cdecl; inline; static;
end;
TGTypePlugin = object
@ -1038,8 +1055,8 @@ function g_object_is_floating(AObject: PGObject): gboolean; cdecl; external;
function g_object_new(object_type: TGType; first_property_name: Pgchar; args: array of const): gpointer; cdecl; external;
function g_object_new_valist(object_type: TGType; first_property_name: Pgchar; var_args: Tva_list): PGObject; cdecl; external;
function g_object_newv(object_type: TGType; n_parameters: guint; parameters: PGParameter): PGObject; cdecl; external;
function g_object_ref(AObject: PGObject): TGObject; cdecl; external;
function g_object_ref_sink(AObject: PGObject): TGObject; cdecl; external;
function g_object_ref(AObject: PGObject): PGObject; cdecl; external;
function g_object_ref_sink(AObject: PGObject): PGObject; cdecl; external;
function g_object_steal_data(AObject: PGObject; key: Pgchar): gpointer; cdecl; external;
function g_object_steal_qdata(AObject: PGObject; quark: TGQuark): gpointer; cdecl; external;
function g_param_spec_boolean(name: Pgchar; nick: Pgchar; blurb: Pgchar; default_value: gboolean; flags: TGParamFlags): PGParamSpec; cdecl; external;
@ -1118,13 +1135,13 @@ function g_type_check_value(value: PGValue): gboolean; cdecl; external;
function g_type_check_value_holds(value: PGValue; type_: TGType): gboolean; cdecl; external;
function g_type_children(type_: TGType; n_children: Pguint): PGType; cdecl; external;
function g_type_class_get_private(ATypeClass: PGTypeClass; private_type: TGType): gpointer; cdecl; external;
function g_type_class_peek(type_: TGType): TGTypeClass; cdecl; external;
function g_type_class_peek_parent(ATypeClass: PGTypeClass): TGTypeClass; cdecl; external;
function g_type_class_peek_static(type_: TGType): TGTypeClass; cdecl; external;
function g_type_class_ref(type_: TGType): TGTypeClass; cdecl; external;
function g_type_class_peek(type_: TGType): PGTypeClass; cdecl; external;
function g_type_class_peek_parent(ATypeClass: PGTypeClass): PGTypeClass; cdecl; external;
function g_type_class_peek_static(type_: TGType): PGTypeClass; cdecl; external;
function g_type_class_ref(type_: TGType): PGTypeClass; cdecl; external;
function g_type_create_instance(type_: TGType): PGTypeInstance; cdecl; external;
function g_type_default_interface_peek(g_type: TGType): TGTypeInterface; cdecl; external;
function g_type_default_interface_ref(g_type: TGType): TGTypeInterface; cdecl; external;
function g_type_default_interface_peek(g_type: TGType): PGTypeInterface; cdecl; external;
function g_type_default_interface_ref(g_type: TGType): PGTypeInterface; cdecl; external;
function g_type_depth(type_: TGType): guint; cdecl; external;
function g_type_from_name(name: Pgchar): TGType; cdecl; external;
function g_type_fundamental(type_id: TGType): TGType; cdecl; external;
@ -1133,8 +1150,8 @@ function g_type_get_plugin(type_: TGType): PGTypePlugin; cdecl; external;
function g_type_get_qdata(type_: TGType; quark: TGQuark): gpointer; cdecl; external;
function g_type_instance_get_private(ATypeInstance: PGTypeInstance; private_type: TGType): gpointer; cdecl; external;
function g_type_interface_get_plugin(instance_type: TGType; interface_type: TGType): PGTypePlugin; cdecl; external;
function g_type_interface_peek(instance_class: TGTypeClass; iface_type: TGType): TGTypeInterface; cdecl; external;
function g_type_interface_peek_parent(ATypeInterface: PGTypeInterface): TGTypeInterface; cdecl; external;
function g_type_interface_peek(instance_class: PGTypeClass; iface_type: TGType): PGTypeInterface; cdecl; external;
function g_type_interface_peek_parent(ATypeInterface: PGTypeInterface): PGTypeInterface; cdecl; external;
function g_type_interface_prerequisites(interface_type: TGType; n_prerequisites: Pguint): PGType; cdecl; external;
function g_type_interfaces(type_: TGType; n_interfaces: Pguint): PGType; cdecl; external;
function g_type_is_a(type_: TGType; is_a_type: TGType): gboolean; cdecl; external;
@ -1167,7 +1184,7 @@ function g_value_array_remove(AValueArray: PGValueArray; index_: guint): PGValue
function g_value_array_sort(AValueArray: PGValueArray; compare_func: TGCompareFunc): PGValueArray; cdecl; external;
function g_value_array_sort_with_data(AValueArray: PGValueArray; compare_func: TGCompareDataFunc; user_data: gpointer): PGValueArray; cdecl; external;
function g_value_dup_boxed(AValue: PGValue): gpointer; cdecl; external;
function g_value_dup_object(AValue: PGValue): TGObject; cdecl; external;
function g_value_dup_object(AValue: PGValue): PGObject; cdecl; external;
function g_value_dup_param(AValue: PGValue): PGParamSpec; cdecl; external;
function g_value_dup_string(AValue: PGValue): Pgchar; cdecl; external;
function g_value_dup_variant(AValue: PGValue): PGVariant; cdecl; external;
@ -1183,7 +1200,7 @@ function g_value_get_gtype(value: PGValue): TGType; cdecl; external;
function g_value_get_int(AValue: PGValue): gint; cdecl; external;
function g_value_get_int64(AValue: PGValue): gint64; cdecl; external;
function g_value_get_long(AValue: PGValue): glong; cdecl; external;
function g_value_get_object(AValue: PGValue): TGObject; cdecl; external;
function g_value_get_object(AValue: PGValue): PGObject; cdecl; external;
function g_value_get_param(AValue: PGValue): PGParamSpec; cdecl; external;
function g_value_get_pointer(AValue: PGValue): gpointer; cdecl; external;
function g_value_get_string(AValue: PGValue): Pgchar; cdecl; external;
@ -1199,7 +1216,6 @@ function g_value_reset(AValue: PGValue): PGValue; cdecl; external;
function g_value_transform(AValue: PGValue; dest_value: PGValue): gboolean; cdecl; external;
function g_value_type_compatible(src_type: TGType; dest_type: TGType): gboolean; cdecl; external;
function g_value_type_transformable(src_type: TGType; dest_type: TGType): gboolean; cdecl; external;
function intern: TGType; cdecl; external;
procedure g_boxed_free(boxed_type: TGType; boxed: gpointer); cdecl; external;
procedure g_cclosure_marshal_BOOLEAN__BOXED_BOXED(closure: PGClosure; return_value: PGValue; n_param_values: guint; param_values: PGValue; invocation_hint: gpointer; marshal_data: gpointer); cdecl; external;
procedure g_cclosure_marshal_BOOLEAN__FLAGS(closure: PGClosure; return_value: PGValue; n_param_values: guint; param_values: PGValue; invocation_hint: gpointer; marshal_data: gpointer); cdecl; external;
@ -1300,7 +1316,7 @@ procedure g_type_add_interface_static(instance_type: TGType; interface_type: TGT
procedure g_type_class_add_private(g_class: gpointer; private_size: gsize); cdecl; external;
procedure g_type_class_unref(ATypeClass: PGTypeClass); cdecl; external;
procedure g_type_class_unref_uncached(ATypeClass: PGTypeClass); cdecl; external;
procedure g_type_default_interface_unref(g_iface: TGTypeInterface); cdecl; external;
procedure g_type_default_interface_unref(g_iface: PGTypeInterface); cdecl; external;
procedure g_type_free_instance(instance: PGTypeInstance); cdecl; external;
procedure g_type_init; cdecl; external;
procedure g_type_init_with_debug_flags(debug_flags: TGTypeDebugFlags); cdecl; external;
@ -1321,6 +1337,7 @@ procedure g_value_copy(AValue: PGValue; dest_value: PGValue); cdecl; external;
procedure g_value_register_transform_func(src_type: TGType; dest_type: TGType; transform_func: TGValueTransform); cdecl; external;
procedure g_value_set_boolean(AValue: PGValue; v_boolean: gboolean); cdecl; external;
procedure g_value_set_boxed(AValue: PGValue; v_boxed: gpointer); cdecl; external;
procedure g_value_set_boxed_take_ownership(AValue: PGValue; v_boxed: gpointer); cdecl; external;
procedure g_value_set_char(AValue: PGValue; v_char: gchar); cdecl; external;
procedure g_value_set_double(AValue: PGValue; v_double: gdouble); cdecl; external;
procedure g_value_set_enum(AValue: PGValue; v_enum: gint); cdecl; external;
@ -1331,12 +1348,15 @@ procedure g_value_set_instance(AValue: PGValue; instance: gpointer); cdecl; exte
procedure g_value_set_int(AValue: PGValue; v_int: gint); cdecl; external;
procedure g_value_set_int64(AValue: PGValue; v_int64: gint64); cdecl; external;
procedure g_value_set_long(AValue: PGValue; v_long: glong); cdecl; external;
procedure g_value_set_object(AValue: PGValue; v_object: TGObject); cdecl; external;
procedure g_value_set_object(AValue: PGValue; v_object: PGObject); cdecl; external;
procedure g_value_set_object_take_ownership(AValue: PGValue; v_object: gpointer); cdecl; external;
procedure g_value_set_param(AValue: PGValue; param: PGParamSpec); cdecl; external;
procedure g_value_set_param_take_ownership(AValue: PGValue; param: PGParamSpec); cdecl; external;
procedure g_value_set_pointer(AValue: PGValue; v_pointer: gpointer); cdecl; external;
procedure g_value_set_static_boxed(AValue: PGValue; v_boxed: gpointer); cdecl; external;
procedure g_value_set_static_string(AValue: PGValue; v_string: Pgchar); cdecl; external;
procedure g_value_set_string(AValue: PGValue; v_string: Pgchar); cdecl; external;
procedure g_value_set_string_take_ownership(AValue: PGValue; v_string: Pgchar); cdecl; external;
procedure g_value_set_uchar(AValue: PGValue; v_uchar: guint8); cdecl; external;
procedure g_value_set_uint(AValue: PGValue; v_uint: guint); cdecl; external;
procedure g_value_set_uint64(AValue: PGValue; v_uint64: guint64); cdecl; external;
@ -1439,12 +1459,12 @@ begin
GObject2.g_object_notify_by_pspec(@self, pspec);
end;
function TGObject.ref: TGObject; cdecl;
function TGObject.ref: PGObject; cdecl;
begin
Result := GObject2.g_object_ref(@self);
end;
function TGObject.ref_sink: TGObject; cdecl;
function TGObject.ref_sink: PGObject; cdecl;
begin
Result := GObject2.g_object_ref_sink(@self);
end;
@ -1564,7 +1584,7 @@ begin
Result := GObject2.g_value_dup_boxed(@self);
end;
function TGValue.dup_object: TGObject; cdecl;
function TGValue.dup_object: PGObject; cdecl;
begin
Result := GObject2.g_value_dup_object(@self);
end;
@ -1639,7 +1659,7 @@ begin
Result := GObject2.g_value_get_long(@self);
end;
function TGValue.get_object: TGObject; cdecl;
function TGValue.get_object: PGObject; cdecl;
begin
Result := GObject2.g_value_get_object(@self);
end;
@ -1709,6 +1729,11 @@ begin
GObject2.g_value_set_boxed(@self, v_boxed);
end;
procedure TGValue.set_boxed_take_ownership(v_boxed: gpointer); cdecl;
begin
GObject2.g_value_set_boxed_take_ownership(@self, v_boxed);
end;
procedure TGValue.set_char(v_char: gchar); cdecl;
begin
GObject2.g_value_set_char(@self, v_char);
@ -1759,16 +1784,26 @@ begin
GObject2.g_value_set_long(@self, v_long);
end;
procedure TGValue.set_object(v_object: TGObject); cdecl;
procedure TGValue.set_object(v_object: PGObject); cdecl;
begin
GObject2.g_value_set_object(@self, v_object);
end;
procedure TGValue.set_object_take_ownership(v_object: gpointer); cdecl;
begin
GObject2.g_value_set_object_take_ownership(@self, v_object);
end;
procedure TGValue.set_param(param: PGParamSpec); cdecl;
begin
GObject2.g_value_set_param(@self, param);
end;
procedure TGValue.set_param_take_ownership(param: PGParamSpec); cdecl;
begin
GObject2.g_value_set_param_take_ownership(@self, param);
end;
procedure TGValue.set_pointer(v_pointer: gpointer); cdecl;
begin
GObject2.g_value_set_pointer(@self, v_pointer);
@ -1789,6 +1824,11 @@ begin
GObject2.g_value_set_string(@self, v_string);
end;
procedure TGValue.set_string_take_ownership(v_string: Pgchar); cdecl;
begin
GObject2.g_value_set_string_take_ownership(@self, v_string);
end;
procedure TGValue.set_uchar(v_uchar: guint8); cdecl;
begin
GObject2.g_value_set_uchar(@self, v_uchar);
@ -2074,7 +2114,7 @@ begin
Result := GObject2.g_type_class_get_private(@self, private_type);
end;
function TGTypeClass.peek_parent: TGTypeClass; cdecl;
function TGTypeClass.peek_parent: PGTypeClass; cdecl;
begin
Result := GObject2.g_type_class_peek_parent(@self);
end;
@ -2094,17 +2134,17 @@ begin
GObject2.g_type_class_add_private(g_class, private_size);
end;
function TGTypeClass.peek(type_: TGType): TGTypeClass; cdecl;
function TGTypeClass.peek(type_: TGType): PGTypeClass; cdecl;
begin
Result := GObject2.g_type_class_peek(type_);
end;
function TGTypeClass.peek_static(type_: TGType): TGTypeClass; cdecl;
function TGTypeClass.peek_static(type_: TGType): PGTypeClass; cdecl;
begin
Result := GObject2.g_type_class_peek_static(type_);
end;
function TGTypeClass.ref(type_: TGType): TGTypeClass; cdecl;
function TGTypeClass.ref(type_: TGType): PGTypeClass; cdecl;
begin
Result := GObject2.g_type_class_ref(type_);
end;
@ -2234,7 +2274,7 @@ begin
Result := GObject2.g_type_value_table_peek(type_);
end;
function TGTypeInterface.peek_parent: TGTypeInterface; cdecl;
function TGTypeInterface.peek_parent: PGTypeInterface; cdecl;
begin
Result := GObject2.g_type_interface_peek_parent(@self);
end;
@ -2249,7 +2289,7 @@ begin
Result := GObject2.g_type_interface_get_plugin(instance_type, interface_type);
end;
function TGTypeInterface.peek(instance_class: TGTypeClass; iface_type: TGType): TGTypeInterface; cdecl;
function TGTypeInterface.peek(instance_class: PGTypeClass; iface_type: TGType): PGTypeInterface; cdecl;
begin
Result := GObject2.g_type_interface_peek(instance_class, iface_type);
end;

851
bindings/gtk3/gtk3.pas
View File

File diff suppressed because it is too large Load Diff