diff --git a/bindings/gtk3/examples/dialog/dialog.lpi b/bindings/gtk3/examples/dialog/dialog.lpi index 1bafaad82..cccc27fad 100644 --- a/bindings/gtk3/examples/dialog/dialog.lpi +++ b/bindings/gtk3/examples/dialog/dialog.lpi @@ -55,6 +55,12 @@ + + + + + + diff --git a/bindings/gtk3/examples/dialog/dialog.lpr b/bindings/gtk3/examples/dialog/dialog.lpr index 77b61eec2..044d05d0f 100644 --- a/bindings/gtk3/examples/dialog/dialog.lpr +++ b/bindings/gtk3/examples/dialog/dialog.lpr @@ -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); diff --git a/bindings/gtk3/gdk3.pas b/bindings/gtk3/gdk3.pas index d09eb1229..957ebe9a4 100644 --- a/bindings/gtk3/gdk3.pas +++ b/bindings/gtk3/gdk3.pas @@ -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; diff --git a/bindings/gtk3/gdkpixbuf2.pas b/bindings/gtk3/gdkpixbuf2.pas index 378956af7..b406aae9c 100644 --- a/bindings/gtk3/gdkpixbuf2.pas +++ b/bindings/gtk3/gdkpixbuf2.pas @@ -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); diff --git a/bindings/gtk3/gio2.pas b/bindings/gtk3/gio2.pas index c82ee91cd..e32949c4d 100644 --- a/bindings/gtk3/gio2.pas +++ b/bindings/gtk3/gio2.pas @@ -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); diff --git a/bindings/gtk3/glib2.pas b/bindings/gtk3/glib2.pas index c3c66570e..c1ee1bde7 100644 --- a/bindings/gtk3/glib2.pas +++ b/bindings/gtk3/glib2.pas @@ -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); diff --git a/bindings/gtk3/gobject2.pas b/bindings/gtk3/gobject2.pas index e5fdb932a..24f3b0188 100644 --- a/bindings/gtk3/gobject2.pas +++ b/bindings/gtk3/gobject2.pas @@ -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; diff --git a/bindings/gtk3/gtk3.pas b/bindings/gtk3/gtk3.pas index 118592e8f..7c110dc2c 100644 --- a/bindings/gtk3/gtk3.pas +++ b/bindings/gtk3/gtk3.pas @@ -14,13 +14,13 @@ uses const Gtk3_library = 'libgtk-3.so.0'; - BINARY_AGE = 116; + BINARY_AGE = 200; INPUT_ERROR = -1; INTERFACE_AGE = 0; MAJOR_VERSION = 3; MAX_COMPOSE_LEN = 7; - MICRO_VERSION = 16; - MINOR_VERSION = 1; + MICRO_VERSION = 0; + MINOR_VERSION = 2; PAPER_NAME_A3 = 'iso_a3'; PAPER_NAME_A4 = 'iso_a4'; PAPER_NAME_A5 = 'iso_a5'; @@ -1303,6 +1303,9 @@ type PPGtkTargetEntry = ^PGtkTargetEntry; PGtkTargetEntry = ^TGtkTargetEntry; + PPGtkRequisition = ^PGtkRequisition; + PGtkRequisition = ^TGtkRequisition; + PPGtkClipboard = ^PGtkClipboard; PGtkClipboard = ^TGtkClipboard; @@ -1315,9 +1318,6 @@ type PPGtkWidgetPath = ^PGtkWidgetPath; PGtkWidgetPath = ^TGtkWidgetPath; - PPGtkRequisition = ^PGtkRequisition; - PGtkRequisition = ^TGtkRequisition; - PPGtkSizeRequestMode = ^PGtkSizeRequestMode; PGtkSizeRequestMode = ^TGtkSizeRequestMode; @@ -1401,7 +1401,7 @@ type function get_app_paintable: gboolean; cdecl; inline; function get_can_default: gboolean; cdecl; inline; function get_can_focus: gboolean; cdecl; inline; - + procedure get_child_requisition(requisition: PGtkRequisition); cdecl; inline; function get_child_visible: gboolean; cdecl; inline; function get_clipboard(selection: TGdkAtom): PGtkClipboard; cdecl; inline; function get_composite_name: Pgchar; cdecl; inline; @@ -1437,7 +1437,7 @@ type function get_realized: gboolean; cdecl; inline; function get_receives_default: gboolean; cdecl; inline; function get_request_mode: TGtkSizeRequestMode; cdecl; inline; - + procedure get_requisition(requisition: PGtkRequisition); cdecl; inline; function get_root_window: PGdkWindow; cdecl; inline; function get_screen: PGdkScreen; cdecl; inline; function get_sensitive: gboolean; cdecl; inline; @@ -1507,7 +1507,7 @@ type function region_intersect(region: Pcairo_region_t): Pcairo_region_t; cdecl; inline; function remove_accelerator(accel_group: PGtkAccelGroup; accel_key: guint; accel_mods: TGdkModifierType): gboolean; cdecl; inline; procedure remove_mnemonic_label(label_: PGtkWidget); cdecl; inline; - + function render_icon(stock_id: Pgchar; size: gint; detail: Pgchar): PGdkPixbuf; cdecl; inline; function render_icon_pixbuf(stock_id: Pgchar; size: gint): PGdkPixbuf; cdecl; inline; procedure reparent(new_parent: PGtkWidget); cdecl; inline; procedure reset_rc_styles; cdecl; inline; @@ -1563,7 +1563,7 @@ type procedure show_all; cdecl; inline; procedure show_now; cdecl; inline; procedure size_allocate(allocation: PGtkAllocation); cdecl; inline; - + procedure size_request(requisition: PGtkRequisition); cdecl; inline; procedure style_attach; cdecl; inline; //procedure style_get(first_property_name: Pgchar; args: array of const); cdecl; inline; procedure style_get_property(property_name: Pgchar; value: PGValue); cdecl; inline; @@ -2838,11 +2838,14 @@ type procedure append_custom_item(name: Pgchar; label_: Pgchar; icon: PGIcon); cdecl; inline; procedure append_separator; cdecl; inline; function get_heading: Pgchar; cdecl; inline; + function get_show_default_item: gboolean; cdecl; inline; function get_show_dialog_item: gboolean; cdecl; inline; procedure set_active_custom_item(name: Pgchar); cdecl; inline; procedure set_heading(heading: Pgchar); cdecl; inline; + procedure set_show_default_item(setting: gboolean); cdecl; inline; procedure set_show_dialog_item(setting: gboolean); cdecl; inline; property heading: Pgchar read get_heading { property is writeable but setter not declared } ; + property show_default_item: gboolean read get_show_default_item { property is writeable but setter not declared } ; property show_dialog_item: gboolean read get_show_dialog_item { property is writeable but setter not declared } ; end; @@ -3201,8 +3204,8 @@ type function get_n_pages: gint; cdecl; inline; function get_nth_page(page_num: gint): PGtkWidget; cdecl; inline; function get_page_complete(page: PGtkWidget): gboolean; cdecl; inline; - - + function get_page_header_image(page: PGtkWidget): PGdkPixbuf; cdecl; inline; + function get_page_side_image(page: PGtkWidget): PGdkPixbuf; cdecl; inline; function get_page_title(page: PGtkWidget): Pgchar; cdecl; inline; function get_page_type(page: PGtkWidget): TGtkAssistantPageType; cdecl; inline; function insert_page(page: PGtkWidget; position: gint): gint; cdecl; inline; @@ -3214,8 +3217,8 @@ type procedure set_current_page(page_num: gint); cdecl; inline; procedure set_forward_page_func(page_func: TGtkAssistantPageFunc; data: gpointer; destroy_: TGDestroyNotify); cdecl; inline; procedure set_page_complete(page: PGtkWidget; complete: gboolean); cdecl; inline; - - + procedure set_page_header_image(page: PGtkWidget; pixbuf: PGdkPixbuf); cdecl; inline; + procedure set_page_side_image(page: PGtkWidget; pixbuf: PGdkPixbuf); cdecl; inline; procedure set_page_title(page: PGtkWidget; title: Pgchar); cdecl; inline; procedure set_page_type(page: PGtkWidget; type_: TGtkAssistantPageType); cdecl; inline; procedure update_buttons_state; cdecl; inline; @@ -3597,7 +3600,7 @@ type procedure get_preferred_width_for_height(widget: PGtkWidget; height: gint; minimum_width: Pgint; natural_width: Pgint); cdecl; inline; function get_request_mode: TGtkSizeRequestMode; cdecl; inline; function get_sensitive: gboolean; cdecl; inline; - + procedure get_size(widget: PGtkWidget; cell_area: PGdkRectangle; x_offset: Pgint; y_offset: Pgint; width: Pgint; height: Pgint); cdecl; inline; function get_state(widget: PGtkWidget; cell_state: TGtkCellRendererState): TGtkStateFlags; cdecl; inline; function get_visible: gboolean; cdecl; inline; function is_activatable: gboolean; cdecl; inline; @@ -4257,7 +4260,7 @@ type function get_draw_sensitive: gboolean; cdecl; inline; function get_fit_model: gboolean; cdecl; inline; function get_model: PGtkTreeModel; cdecl; inline; - + function get_size_of_row(path: PGtkTreePath; requisition: PGtkRequisition): gboolean; cdecl; inline; procedure set_background_color(color: PGdkColor); cdecl; inline; procedure set_background_rgba(rgba: PGdkRGBA); cdecl; inline; procedure set_displayed_row(path: PGtkTreePath); cdecl; inline; @@ -4352,21 +4355,21 @@ type function get_accel_path: Pgchar; cdecl; inline; function get_label: Pgchar; cdecl; inline; function get_reserve_indicator: gboolean; cdecl; inline; - + function get_right_justified: gboolean; cdecl; inline; function get_submenu: PGtkWidget; cdecl; inline; function get_use_underline: gboolean; cdecl; inline; procedure select; cdecl; inline; procedure set_accel_path(accel_path: Pgchar); cdecl; inline; procedure set_label(label_: Pgchar); cdecl; inline; procedure set_reserve_indicator(reserve: gboolean); cdecl; inline; - + procedure set_right_justified(right_justified: gboolean); cdecl; inline; procedure set_submenu(submenu: PGtkWidget); cdecl; inline; procedure set_use_underline(setting: gboolean); cdecl; inline; procedure toggle_size_allocate(allocation: gint); cdecl; inline; procedure toggle_size_request(requisition: Pgint); cdecl; inline; property accel_path: Pgchar read get_accel_path { property is writeable but setter not declared } ; property label_: Pgchar read get_label { property is writeable but setter not declared } ; - //property right_justified: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_right_justified { property is writeable but setter not declared } ; + property right_justified: gboolean read get_right_justified { property is writeable but setter not declared } ; property submenu: PGtkWidget read get_submenu { property is writeable but setter not declared } ; property use_underline: gboolean read get_use_underline { property is writeable but setter not declared } ; end; @@ -5600,6 +5603,32 @@ type _gtk_reserved4: procedure; cdecl; end; + PPGtkFontChooser = ^PGtkFontChooser; + PGtkFontChooser = ^TGtkFontChooser; + + PPGtkFontFilterFunc = ^PGtkFontFilterFunc; + PGtkFontFilterFunc = ^TGtkFontFilterFunc; + TGtkFontFilterFunc = function(family: PPangoFontFamily; face: PPangoFontFace; data: gpointer): gboolean; cdecl; + TGtkFontChooser = object + font_activated: procedure(object_: gchar); cdecl; + function get_font: Pgchar; cdecl; inline; + function get_font_desc: PPangoFontDescription; cdecl; inline; + function get_font_face: PPangoFontFace; cdecl; inline; + function get_font_family: PPangoFontFamily; cdecl; inline; + function get_font_size: gint; cdecl; inline; + function get_preview_text: Pgchar; cdecl; inline; + function get_show_preview_entry: gboolean; cdecl; inline; + procedure set_filter_func(filter: TGtkFontFilterFunc; user_data: gpointer; destroy_: TGDestroyNotify); cdecl; inline; + procedure set_font(fontname: Pgchar); cdecl; inline; + procedure set_font_desc(font_desc: PPangoFontDescription); cdecl; inline; + procedure set_preview_text(text: Pgchar); cdecl; inline; + procedure set_show_preview_entry(show_preview_entry: gboolean); cdecl; inline; + property font: Pgchar read get_font { property is writeable but setter not declared } ; + property font_desc: PPangoFontDescription read get_font_desc { property is writeable but setter not declared } ; + property preview_text: Pgchar read get_preview_text { property is writeable but setter not declared } ; + property show_preview_entry: gboolean read get_show_preview_entry { property is writeable but setter not declared } ; + end; + PPGtkFontButtonPrivate = ^PGtkFontButtonPrivate; PGtkFontButtonPrivate = ^TGtkFontButtonPrivate; @@ -5644,49 +5673,6 @@ type _gtk_reserved3: procedure; cdecl; _gtk_reserved4: procedure; cdecl; end; - TGtkFontFilterFunc = function(family: PPangoFontFamily; face: PPangoFontFace; data: gpointer): gboolean; cdecl; - - PPGtkFontChooserPrivate = ^PGtkFontChooserPrivate; - PGtkFontChooserPrivate = ^TGtkFontChooserPrivate; - - TGtkFontChooserPrivate = record - end; - - - - PPGtkFontChooser = ^PGtkFontChooser; - PGtkFontChooser = ^TGtkFontChooser; - - PPGtkFontFilterFunc = ^PGtkFontFilterFunc; - PGtkFontFilterFunc = ^TGtkFontFilterFunc; - TGtkFontChooser = object(TGtkBox) - priv3: PGtkFontChooserPrivate; - function new: PGtkFontChooser; cdecl; inline; static; - function get_face: PPangoFontFace; cdecl; inline; - function get_family: PPangoFontFamily; cdecl; inline; - function get_font_name: Pgchar; cdecl; inline; - function get_preview_text: Pgchar; cdecl; inline; - function get_show_preview_entry: gboolean; cdecl; inline; - function get_size: gint; cdecl; inline; - procedure set_filter_func(filter: TGtkFontFilterFunc; data: gpointer; destroy_: TGDestroyNotify); cdecl; inline; - function set_font_name(fontname: Pgchar): gboolean; cdecl; inline; - procedure set_preview_text(text: Pgchar); cdecl; inline; - procedure set_show_preview_entry(show_preview_entry: gboolean); cdecl; inline; - property font_name: Pgchar read get_font_name { property is writeable but setter not declared } ; - property preview_text: Pgchar read get_preview_text { property is writeable but setter not declared } ; - property show_preview_entry: gboolean read get_show_preview_entry { property is writeable but setter not declared } ; - end; - - PPGtkFontChooserClass = ^PGtkFontChooserClass; - PGtkFontChooserClass = ^TGtkFontChooserClass; - TGtkFontChooserClass = object - parent_class: TGtkBoxClass; - font_activated: procedure(chooser: PGtkFontChooser; fontname: Pgchar); cdecl; - _gtk_reserved1: procedure; cdecl; - _gtk_reserved2: procedure; cdecl; - _gtk_reserved3: procedure; cdecl; - _gtk_reserved4: procedure; cdecl; - end; PPGtkFontChooserDialogPrivate = ^PGtkFontChooserDialogPrivate; PGtkFontChooserDialogPrivate = ^TGtkFontChooserDialogPrivate; @@ -5701,11 +5687,6 @@ type TGtkFontChooserDialog = object(TGtkDialog) priv5: PGtkFontChooserDialogPrivate; function new(title: Pgchar; window: PGtkWindow): PGtkFontChooserDialog; cdecl; inline; static; - function get_font_chooser: PGtkWidget; cdecl; inline; - function get_font_name: Pgchar; cdecl; inline; - function get_preview_text: Pgchar; cdecl; inline; - function set_font_name(fontname: Pgchar): gboolean; cdecl; inline; - procedure set_preview_text(text: Pgchar); cdecl; inline; end; PPGtkFontChooserDialogClass = ^PGtkFontChooserDialogClass; @@ -5718,6 +5699,47 @@ type _gtk_reserved4: procedure; cdecl; end; + PPGtkFontChooserIface = ^PGtkFontChooserIface; + PGtkFontChooserIface = ^TGtkFontChooserIface; + TGtkFontChooserIface = object + base_iface: TGTypeInterface; + get_font_family: function(chooser: PGtkFontChooser): PPangoFontFamily; cdecl; + get_font_face: function(chooser: PGtkFontChooser): PPangoFontFace; cdecl; + get_font_size: function(chooser: PGtkFontChooser): gint; cdecl; + set_filter_func: procedure(chooser: PGtkFontChooser; filter: TGtkFontFilterFunc; data: gpointer; destroy_: TGDestroyNotify); cdecl; + font_activated: procedure(chooser: PGtkFontChooser; fontname: Pgchar); cdecl; + padding: array [0..11] of gpointer; + end; + + PPGtkFontChooserWidgetPrivate = ^PGtkFontChooserWidgetPrivate; + PGtkFontChooserWidgetPrivate = ^TGtkFontChooserWidgetPrivate; + + TGtkFontChooserWidgetPrivate = record + end; + + + + PPGtkFontChooserWidget = ^PGtkFontChooserWidget; + PGtkFontChooserWidget = ^TGtkFontChooserWidget; + TGtkFontChooserWidget = object(TGtkBox) + priv3: PGtkFontChooserWidgetPrivate; + function new: PGtkFontChooserWidget; cdecl; inline; static; + end; + + PPGtkFontChooserWidgetClass = ^PGtkFontChooserWidgetClass; + PGtkFontChooserWidgetClass = ^TGtkFontChooserWidgetClass; + TGtkFontChooserWidgetClass = object + parent_class: TGtkBoxClass; + _gtk_reserved1: procedure; cdecl; + _gtk_reserved2: procedure; cdecl; + _gtk_reserved3: procedure; cdecl; + _gtk_reserved4: procedure; cdecl; + _gtk_reserved5: procedure; cdecl; + _gtk_reserved6: procedure; cdecl; + _gtk_reserved7: procedure; cdecl; + _gtk_reserved8: procedure; cdecl; + end; + PPGtkFontSelectionPrivate = ^PGtkFontSelectionPrivate; PGtkFontSelectionPrivate = ^TGtkFontSelectionPrivate; @@ -5731,20 +5753,20 @@ type TGtkFontSelection = object(TGtkBox) priv3: PGtkFontSelectionPrivate; function new: PGtkFontSelection; cdecl; inline; static; - - - - - - - - - - - - - //property font_name: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_font_name { property is writeable but setter not declared } ; - //property preview_text: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_preview_text { property is writeable but setter not declared } ; + function get_face: PPangoFontFace; cdecl; inline; + function get_face_list: PGtkWidget; cdecl; inline; + function get_family: PPangoFontFamily; cdecl; inline; + function get_family_list: PGtkWidget; cdecl; inline; + function get_font_name: Pgchar; cdecl; inline; + function get_preview_entry: PGtkWidget; cdecl; inline; + function get_preview_text: Pgchar; cdecl; inline; + function get_size: gint; cdecl; inline; + function get_size_entry: PGtkWidget; cdecl; inline; + function get_size_list: PGtkWidget; cdecl; inline; + function set_font_name(fontname: Pgchar): gboolean; cdecl; inline; + procedure set_preview_text(text: Pgchar); cdecl; inline; + property font_name: Pgchar read get_font_name { property is writeable but setter not declared } ; + property preview_text: Pgchar read get_preview_text { property is writeable but setter not declared } ; end; PPGtkFontSelectionClass = ^PGtkFontSelectionClass; @@ -5769,14 +5791,14 @@ type PGtkFontSelectionDialog = ^TGtkFontSelectionDialog; TGtkFontSelectionDialog = object(TGtkDialog) priv5: PGtkFontSelectionDialogPrivate; - - - - - - - - + function new(title: Pgchar): PGtkFontSelectionDialog; cdecl; inline; static; + function get_cancel_button: PGtkWidget; cdecl; inline; + function get_font_name: Pgchar; cdecl; inline; + function get_font_selection: PGtkWidget; cdecl; inline; + function get_ok_button: PGtkWidget; cdecl; inline; + function get_preview_text: Pgchar; cdecl; inline; + function set_font_name(fontname: Pgchar): gboolean; cdecl; inline; + procedure set_preview_text(text: Pgchar); cdecl; inline; end; PPGtkFontSelectionDialogClass = ^PGtkFontSelectionDialogClass; @@ -5891,7 +5913,7 @@ type PPGtkHBox = ^PGtkHBox; PGtkHBox = ^TGtkHBox; TGtkHBox = object(TGtkBox) - + function new(homogeneous: gboolean; spacing: gint): PGtkHBox; cdecl; inline; static; end; PPGtkHBoxClass = ^PGtkHBoxClass; @@ -5903,7 +5925,7 @@ type PPGtkHButtonBox = ^PGtkHButtonBox; PGtkHButtonBox = ^TGtkHButtonBox; TGtkHButtonBox = object(TGtkButtonBox) - + function new: PGtkHButtonBox; cdecl; inline; static; end; PPGtkHButtonBoxClass = ^PGtkHButtonBoxClass; @@ -5938,7 +5960,7 @@ type PPGtkHPaned = ^PGtkHPaned; PGtkHPaned = ^TGtkHPaned; TGtkHPaned = object(TGtkPaned) - + function new: PGtkHPaned; cdecl; inline; static; end; PPGtkPanedClass = ^PGtkPanedClass; @@ -6068,8 +6090,8 @@ type PPGtkHScale = ^PGtkHScale; PGtkHScale = ^TGtkHScale; TGtkHScale = object(TGtkScale) - - + function new(adjustment: PGtkAdjustment): PGtkHScale; cdecl; inline; static; + function new_with_range(min: gdouble; max: gdouble; step: gdouble): PGtkHScale; cdecl; inline; static; end; PPGtkScaleClass = ^PGtkScaleClass; @@ -6117,7 +6139,7 @@ type PPGtkHScrollbar = ^PGtkHScrollbar; PGtkHScrollbar = ^TGtkHScrollbar; TGtkHScrollbar = object(TGtkScrollbar) - + function new(adjustment: PGtkAdjustment): PGtkHScrollbar; cdecl; inline; static; end; PPGtkScrollbarClass = ^PGtkScrollbarClass; @@ -6149,7 +6171,7 @@ type PPGtkHSeparator = ^PGtkHSeparator; PGtkHSeparator = ^TGtkHSeparator; TGtkHSeparator = object(TGtkSeparator) - + function new: PGtkHSeparator; cdecl; inline; static; end; PPGtkSeparatorClass = ^PGtkSeparatorClass; @@ -6344,7 +6366,7 @@ type function copy: PGtkIconSet; cdecl; inline; procedure get_sizes(sizes: PPgint; n_sizes: Pgint); cdecl; inline; function ref: PGtkIconSet; cdecl; inline; - + function render_icon(style: PGtkStyle; direction: TGtkTextDirection; state: TGtkStateType; size: gint; widget: PGtkWidget; detail: Pgchar): PGdkPixbuf; cdecl; inline; function render_icon_pixbuf(context: PGtkStyleContext; size: gint): PGdkPixbuf; cdecl; inline; procedure unref; cdecl; inline; end; @@ -6382,7 +6404,7 @@ type function load_icon: PGdkPixbuf; cdecl; inline; function load_symbolic(fg: PGdkRGBA; success_color: PGdkRGBA; warning_color: PGdkRGBA; error_color: PGdkRGBA; was_symbolic: Pgboolean): PGdkPixbuf; cdecl; inline; function load_symbolic_for_context(context: PGtkStyleContext; was_symbolic: Pgboolean): PGdkPixbuf; cdecl; inline; - + function load_symbolic_for_style(style: PGtkStyle; state: TGtkStateType; was_symbolic: Pgboolean): PGdkPixbuf; cdecl; inline; procedure set_raw_coordinates(raw_coordinates: gboolean); cdecl; inline; end; @@ -6496,7 +6518,7 @@ type styles: PGSList; property_cache: gpointer; icon_factories: PGSList; - + function new: PGtkStyle; cdecl; inline; static; procedure apply_default_background(cr: Pcairo_t; window: PGdkWindow; state_type: TGtkStateType; x: gint; y: gint; width: gint; height: gint); cdecl; inline; function attach(window: PGdkWindow): PGtkStyle; cdecl; inline; function copy: PGtkStyle; cdecl; inline; @@ -6989,14 +7011,14 @@ type priv2: PGtkLayoutPrivate; function new(hadjustment: PGtkAdjustment; vadjustment: PGtkAdjustment): PGtkLayout; cdecl; inline; static; function get_bin_window: PGdkWindow; cdecl; inline; - + function get_hadjustment: PGtkAdjustment; cdecl; inline; procedure get_size(width: Pguint; height: Pguint); cdecl; inline; - + function get_vadjustment: PGtkAdjustment; cdecl; inline; procedure move(child_widget: PGtkWidget; x: gint; y: gint); cdecl; inline; procedure put(child_widget: PGtkWidget; x: gint; y: gint); cdecl; inline; - + procedure set_hadjustment(adjustment: PGtkAdjustment); cdecl; inline; procedure set_size(width: guint; height: guint); cdecl; inline; - + procedure set_vadjustment(adjustment: PGtkAdjustment); cdecl; inline; //property height: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_height { property is writeable but setter not declared } ; //property width: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_width { property is writeable but setter not declared } ; end; @@ -8270,8 +8292,8 @@ type rc_style_lists: PGSList; icon_factories: PGSList; Bitfield0 : TGtkRcStyleBitfield0; { auto generated type } - - + function new: PGtkRcStyle; cdecl; inline; static; + function copy: PGtkRcStyle; cdecl; inline; end; PPGtkRcStyleClass = ^PGtkRcStyleClass; @@ -8967,7 +8989,7 @@ type function new_from_icon_name(icon_name: Pgchar): PGtkStatusIcon; cdecl; inline; static; function new_from_pixbuf(pixbuf: PGdkPixbuf): PGtkStatusIcon; cdecl; inline; static; function new_from_stock(stock_id: Pgchar): PGtkStatusIcon; cdecl; inline; static; - procedure position_menu(menu: PGtkMenu; x: Pgint; y: Pgint; push_in: Pgboolean; user_data: TGtkStatusIcon); cdecl; inline; static; + procedure position_menu(menu: PGtkMenu; x: Pgint; y: Pgint; push_in: Pgboolean; user_data: PGtkStatusIcon); cdecl; inline; static; function get_geometry(screen: PPGdkScreen; area: PGdkRectangle; orientation: PGtkOrientation): gboolean; cdecl; inline; function get_gicon: PGIcon; cdecl; inline; function get_has_tooltip: gboolean; cdecl; inline; @@ -9712,7 +9734,7 @@ type function get_cursor_visible: gboolean; cdecl; inline; function get_default_attributes: PGtkTextAttributes; cdecl; inline; function get_editable: gboolean; cdecl; inline; - + function get_hadjustment: PGtkAdjustment; cdecl; inline; function get_indent: gint; cdecl; inline; procedure get_iter_at_location(iter: PGtkTextIter; x: gint; y: gint); cdecl; inline; procedure get_iter_at_position(iter: PGtkTextIter; trailing: Pgint; x: gint; y: gint); cdecl; inline; @@ -9727,7 +9749,7 @@ type function get_pixels_inside_wrap: gint; cdecl; inline; function get_right_margin: gint; cdecl; inline; function get_tabs: PPangoTabArray; cdecl; inline; - + function get_vadjustment: PGtkAdjustment; cdecl; inline; procedure get_visible_rect(visible_rect: PGdkRectangle); cdecl; inline; function get_window(win: TGtkTextWindowType): PGdkWindow; cdecl; inline; function get_window_type(window: PGdkWindow): TGtkTextWindowType; cdecl; inline; @@ -9979,10 +10001,10 @@ type function get_exclusive(group: PGtkToolItemGroup): gboolean; cdecl; inline; function get_expand(group: PGtkToolItemGroup): gboolean; cdecl; inline; function get_group_position(group: PGtkToolItemGroup): gint; cdecl; inline; - + function get_hadjustment: PGtkAdjustment; cdecl; inline; function get_icon_size: gint; cdecl; inline; function get_style: TGtkToolbarStyle; cdecl; inline; - + function get_vadjustment: PGtkAdjustment; cdecl; inline; procedure set_drag_source(targets: TGtkToolPaletteDragTargets); cdecl; inline; procedure set_exclusive(group: PGtkToolItemGroup; exclusive: gboolean); cdecl; inline; procedure set_expand(group: PGtkToolItemGroup; expand: gboolean); cdecl; inline; @@ -10226,7 +10248,7 @@ type function get_expander_column: PGtkTreeViewColumn; cdecl; inline; function get_fixed_height_mode: gboolean; cdecl; inline; function get_grid_lines: TGtkTreeViewGridLines; cdecl; inline; - + function get_hadjustment: PGtkAdjustment; cdecl; inline; function get_headers_clickable: gboolean; cdecl; inline; function get_headers_visible: gboolean; cdecl; inline; function get_hover_expand: gboolean; cdecl; inline; @@ -10246,7 +10268,7 @@ type function get_show_expanders: gboolean; cdecl; inline; function get_tooltip_column: gint; cdecl; inline; function get_tooltip_context(x: Pgint; y: Pgint; keyboard_tip: gboolean; model: PPGtkTreeModel; path: PPGtkTreePath; iter: PGtkTreeIter): gboolean; cdecl; inline; - + function get_vadjustment: PGtkAdjustment; cdecl; inline; function get_visible_range(start_path: PPGtkTreePath; end_path: PPGtkTreePath): gboolean; cdecl; inline; procedure get_visible_rect(visible_rect: PGdkRectangle); cdecl; inline; function insert_column(column: PGtkTreeViewColumn; position: gint): gint; cdecl; inline; @@ -10271,7 +10293,7 @@ type procedure set_expander_column(column: PGtkTreeViewColumn); cdecl; inline; procedure set_fixed_height_mode(enable: gboolean); cdecl; inline; procedure set_grid_lines(grid_lines: TGtkTreeViewGridLines); cdecl; inline; - + procedure set_hadjustment(adjustment: PGtkAdjustment); cdecl; inline; procedure set_headers_clickable(setting: gboolean); cdecl; inline; procedure set_headers_visible(headers_visible: gboolean); cdecl; inline; procedure set_hover_expand(expand: gboolean); cdecl; inline; @@ -10290,7 +10312,7 @@ type procedure set_tooltip_cell(tooltip: PGtkTooltip; path: PGtkTreePath; column: PGtkTreeViewColumn; cell: PGtkCellRenderer); cdecl; inline; procedure set_tooltip_column(column: gint); cdecl; inline; procedure set_tooltip_row(tooltip: PGtkTooltip; path: PGtkTreePath); cdecl; inline; - + procedure set_vadjustment(adjustment: PGtkAdjustment); cdecl; inline; procedure unset_rows_drag_dest; cdecl; inline; procedure unset_rows_drag_source; cdecl; inline; //property enable_grid_lines: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_enable_grid_lines { property is writeable but setter not declared } ; @@ -10666,7 +10688,7 @@ type PPGtkVBox = ^PGtkVBox; PGtkVBox = ^TGtkVBox; TGtkVBox = object(TGtkBox) - + function new(homogeneous: gboolean; spacing: gint): PGtkVBox; cdecl; inline; static; end; PPGtkVBoxClass = ^PGtkVBoxClass; @@ -10678,7 +10700,7 @@ type PPGtkVButtonBox = ^PGtkVButtonBox; PGtkVButtonBox = ^TGtkVButtonBox; TGtkVButtonBox = object(TGtkButtonBox) - + function new: PGtkVButtonBox; cdecl; inline; static; end; PPGtkVButtonBoxClass = ^PGtkVButtonBoxClass; @@ -10690,7 +10712,7 @@ type PPGtkVPaned = ^PGtkVPaned; PGtkVPaned = ^TGtkVPaned; TGtkVPaned = object(TGtkPaned) - + function new: PGtkVPaned; cdecl; inline; static; end; PPGtkVPanedClass = ^PGtkVPanedClass; @@ -10702,8 +10724,8 @@ type PPGtkVScale = ^PGtkVScale; PGtkVScale = ^TGtkVScale; TGtkVScale = object(TGtkScale) - - + function new(adjustment: PGtkAdjustment): PGtkVScale; cdecl; inline; static; + function new_with_range(min: gdouble; max: gdouble; step: gdouble): PGtkVScale; cdecl; inline; static; end; PPGtkVScaleClass = ^PGtkVScaleClass; @@ -10715,7 +10737,7 @@ type PPGtkVScrollbar = ^PGtkVScrollbar; PGtkVScrollbar = ^TGtkVScrollbar; TGtkVScrollbar = object(TGtkScrollbar) - + function new(adjustment: PGtkAdjustment): PGtkVScrollbar; cdecl; inline; static; end; PPGtkVScrollbarClass = ^PGtkVScrollbarClass; @@ -10727,7 +10749,7 @@ type PPGtkVSeparator = ^PGtkVSeparator; PGtkVSeparator = ^TGtkVSeparator; TGtkVSeparator = object(TGtkSeparator) - + function new: PGtkVSeparator; cdecl; inline; static; end; PPGtkVSeparatorClass = ^PGtkVSeparatorClass; @@ -10750,13 +10772,13 @@ type priv3: PGtkViewportPrivate; function new(hadjustment: PGtkAdjustment; vadjustment: PGtkAdjustment): PGtkViewport; cdecl; inline; static; function get_bin_window: PGdkWindow; cdecl; inline; - + function get_hadjustment: PGtkAdjustment; cdecl; inline; function get_shadow_type: TGtkShadowType; cdecl; inline; - + function get_vadjustment: PGtkAdjustment; cdecl; inline; function get_view_window: PGdkWindow; cdecl; inline; - + procedure set_hadjustment(adjustment: PGtkAdjustment); cdecl; inline; procedure set_shadow_type(type_: TGtkShadowType); cdecl; inline; - + procedure set_vadjustment(adjustment: PGtkAdjustment); cdecl; inline; property shadow_type: TGtkShadowType read get_shadow_type { property is writeable but setter not declared } ; end; @@ -10946,6 +10968,7 @@ function gtk_alignment_get_type: TGType; cdecl; external; function gtk_alignment_new(xalign: gfloat; yalign: gfloat; xscale: gfloat; yscale: gfloat): PGtkAlignment; cdecl; external; function gtk_alternative_dialog_button_order(screen: PGdkScreen): gboolean; cdecl; external; function gtk_app_chooser_button_get_heading(AAppChooserButton: PGtkAppChooserButton): Pgchar; cdecl; external; +function gtk_app_chooser_button_get_show_default_item(AAppChooserButton: PGtkAppChooserButton): gboolean; cdecl; external; function gtk_app_chooser_button_get_show_dialog_item(AAppChooserButton: PGtkAppChooserButton): gboolean; cdecl; external; function gtk_app_chooser_button_get_type: TGType; cdecl; external; function gtk_app_chooser_button_new(content_type: Pgchar): PGtkAppChooserButton; cdecl; external; @@ -10977,6 +11000,8 @@ function gtk_assistant_get_current_page(AAssistant: PGtkAssistant): gint; cdecl; function gtk_assistant_get_n_pages(AAssistant: PGtkAssistant): gint; cdecl; external; function gtk_assistant_get_nth_page(AAssistant: PGtkAssistant; page_num: gint): PGtkWidget; cdecl; external; function gtk_assistant_get_page_complete(AAssistant: PGtkAssistant; page: PGtkWidget): gboolean; cdecl; external; +function gtk_assistant_get_page_header_image(AAssistant: PGtkAssistant; page: PGtkWidget): PGdkPixbuf; cdecl; external; +function gtk_assistant_get_page_side_image(AAssistant: PGtkAssistant; page: PGtkWidget): PGdkPixbuf; cdecl; external; function gtk_assistant_get_page_title(AAssistant: PGtkAssistant; page: PGtkWidget): Pgchar; cdecl; external; function gtk_assistant_get_page_type(AAssistant: PGtkAssistant; page: PGtkWidget): TGtkAssistantPageType; cdecl; external; function gtk_assistant_get_type: TGType; cdecl; external; @@ -11102,6 +11127,7 @@ function gtk_cell_view_get_displayed_row(ACellView: PGtkCellView): PGtkTreePath; function gtk_cell_view_get_draw_sensitive(ACellView: PGtkCellView): gboolean; cdecl; external; function gtk_cell_view_get_fit_model(ACellView: PGtkCellView): gboolean; cdecl; external; function gtk_cell_view_get_model(ACellView: PGtkCellView): PGtkTreeModel; cdecl; external; +function gtk_cell_view_get_size_of_row(ACellView: PGtkCellView; path: PGtkTreePath; requisition: PGtkRequisition): gboolean; cdecl; external; function gtk_cell_view_get_type: TGType; cdecl; external; function gtk_cell_view_new: PGtkCellView; cdecl; external; function gtk_cell_view_new_with_context(area: PGtkCellArea; context: PGtkCellAreaContext): PGtkCellView; cdecl; external; @@ -11382,24 +11408,39 @@ function gtk_font_button_get_use_size(AFontButton: PGtkFontButton): gboolean; cd function gtk_font_button_new: PGtkFontButton; cdecl; external; function gtk_font_button_new_with_font(fontname: Pgchar): PGtkFontButton; cdecl; external; function gtk_font_button_set_font_name(AFontButton: PGtkFontButton; fontname: Pgchar): gboolean; cdecl; external; -function gtk_font_chooser_dialog_get_font_chooser(AFontChooserDialog: PGtkFontChooserDialog): PGtkWidget; cdecl; external; -function gtk_font_chooser_dialog_get_font_name(AFontChooserDialog: PGtkFontChooserDialog): Pgchar; cdecl; external; -function gtk_font_chooser_dialog_get_preview_text(AFontChooserDialog: PGtkFontChooserDialog): Pgchar; cdecl; external; function gtk_font_chooser_dialog_get_type: TGType; cdecl; external; function gtk_font_chooser_dialog_new(title: Pgchar; window: PGtkWindow): PGtkFontChooserDialog; cdecl; external; -function gtk_font_chooser_dialog_set_font_name(AFontChooserDialog: PGtkFontChooserDialog; fontname: Pgchar): gboolean; cdecl; external; -function gtk_font_chooser_get_face(AFontChooser: PGtkFontChooser): PPangoFontFace; cdecl; external; -function gtk_font_chooser_get_family(AFontChooser: PGtkFontChooser): PPangoFontFamily; cdecl; external; -function gtk_font_chooser_get_font_name(AFontChooser: PGtkFontChooser): Pgchar; cdecl; external; +function gtk_font_chooser_get_font(AFontChooser: PGtkFontChooser): Pgchar; cdecl; external; +function gtk_font_chooser_get_font_desc(AFontChooser: PGtkFontChooser): PPangoFontDescription; cdecl; external; +function gtk_font_chooser_get_font_face(AFontChooser: PGtkFontChooser): PPangoFontFace; cdecl; external; +function gtk_font_chooser_get_font_family(AFontChooser: PGtkFontChooser): PPangoFontFamily; cdecl; external; +function gtk_font_chooser_get_font_size(AFontChooser: PGtkFontChooser): gint; cdecl; external; function gtk_font_chooser_get_preview_text(AFontChooser: PGtkFontChooser): Pgchar; cdecl; external; function gtk_font_chooser_get_show_preview_entry(AFontChooser: PGtkFontChooser): gboolean; cdecl; external; -function gtk_font_chooser_get_size(AFontChooser: PGtkFontChooser): gint; cdecl; external; function gtk_font_chooser_get_type: TGType; cdecl; external; -function gtk_font_chooser_new: PGtkFontChooser; cdecl; external; -function gtk_font_chooser_set_font_name(AFontChooser: PGtkFontChooser; fontname: Pgchar): gboolean; cdecl; external; +function gtk_font_chooser_widget_get_type: TGType; cdecl; external; +function gtk_font_chooser_widget_new: PGtkFontChooserWidget; cdecl; external; +function gtk_font_selection_dialog_get_cancel_button(AFontSelectionDialog: PGtkFontSelectionDialog): PGtkWidget; cdecl; external; +function gtk_font_selection_dialog_get_font_name(AFontSelectionDialog: PGtkFontSelectionDialog): Pgchar; cdecl; external; +function gtk_font_selection_dialog_get_font_selection(AFontSelectionDialog: PGtkFontSelectionDialog): PGtkWidget; cdecl; external; +function gtk_font_selection_dialog_get_ok_button(AFontSelectionDialog: PGtkFontSelectionDialog): PGtkWidget; cdecl; external; +function gtk_font_selection_dialog_get_preview_text(AFontSelectionDialog: PGtkFontSelectionDialog): Pgchar; cdecl; external; function gtk_font_selection_dialog_get_type: TGType; cdecl; external; +function gtk_font_selection_dialog_new(title: Pgchar): PGtkFontSelectionDialog; cdecl; external; +function gtk_font_selection_dialog_set_font_name(AFontSelectionDialog: PGtkFontSelectionDialog; fontname: Pgchar): gboolean; cdecl; external; +function gtk_font_selection_get_face(AFontSelection: PGtkFontSelection): PPangoFontFace; cdecl; external; +function gtk_font_selection_get_face_list(AFontSelection: PGtkFontSelection): PGtkWidget; cdecl; external; +function gtk_font_selection_get_family(AFontSelection: PGtkFontSelection): PPangoFontFamily; cdecl; external; +function gtk_font_selection_get_family_list(AFontSelection: PGtkFontSelection): PGtkWidget; cdecl; external; +function gtk_font_selection_get_font_name(AFontSelection: PGtkFontSelection): Pgchar; cdecl; external; +function gtk_font_selection_get_preview_entry(AFontSelection: PGtkFontSelection): PGtkWidget; cdecl; external; +function gtk_font_selection_get_preview_text(AFontSelection: PGtkFontSelection): Pgchar; cdecl; external; +function gtk_font_selection_get_size(AFontSelection: PGtkFontSelection): gint; cdecl; external; +function gtk_font_selection_get_size_entry(AFontSelection: PGtkFontSelection): PGtkWidget; cdecl; external; +function gtk_font_selection_get_size_list(AFontSelection: PGtkFontSelection): PGtkWidget; cdecl; external; function gtk_font_selection_get_type: TGType; cdecl; external; function gtk_font_selection_new: PGtkFontSelection; cdecl; external; +function gtk_font_selection_set_font_name(AFontSelection: PGtkFontSelection; fontname: Pgchar): gboolean; cdecl; external; function gtk_frame_get_label(AFrame: PGtkFrame): Pgchar; cdecl; external; function gtk_frame_get_label_widget(AFrame: PGtkFrame): PGtkWidget; cdecl; external; function gtk_frame_get_shadow_type(AFrame: PGtkFrame): TGtkShadowType; cdecl; external; @@ -11439,11 +11480,18 @@ function gtk_handle_box_get_snap_edge(AHandleBox: PGtkHandleBox): TGtkPositionTy function gtk_handle_box_get_type: TGType; cdecl; external; function gtk_handle_box_new: PGtkHandleBox; cdecl; external; function gtk_hbox_get_type: TGType; cdecl; external; +function gtk_hbox_new(homogeneous: gboolean; spacing: gint): PGtkHBox; cdecl; external; function gtk_hbutton_box_get_type: TGType; cdecl; external; +function gtk_hbutton_box_new: PGtkHButtonBox; cdecl; external; function gtk_hpaned_get_type: TGType; cdecl; external; +function gtk_hpaned_new: PGtkHPaned; cdecl; external; function gtk_hscale_get_type: TGType; cdecl; external; +function gtk_hscale_new(adjustment: PGtkAdjustment): PGtkHScale; cdecl; external; +function gtk_hscale_new_with_range(min: gdouble; max: gdouble; step: gdouble): PGtkHScale; cdecl; external; function gtk_hscrollbar_get_type: TGType; cdecl; external; +function gtk_hscrollbar_new(adjustment: PGtkAdjustment): PGtkHScrollbar; cdecl; external; function gtk_hseparator_get_type: TGType; cdecl; external; +function gtk_hseparator_new: PGtkHSeparator; cdecl; external; function gtk_hsv_get_type: TGType; cdecl; external; function gtk_hsv_is_adjusting(AHSV: PGtkHSV): gboolean; cdecl; external; function gtk_hsv_new: PGtkHSV; cdecl; external; @@ -11462,12 +11510,14 @@ function gtk_icon_info_get_type: TGType; cdecl; external; function gtk_icon_info_load_icon(AIconInfo: PGtkIconInfo): PGdkPixbuf; cdecl; external; function gtk_icon_info_load_symbolic(AIconInfo: PGtkIconInfo; fg: PGdkRGBA; success_color: PGdkRGBA; warning_color: PGdkRGBA; error_color: PGdkRGBA; was_symbolic: Pgboolean): PGdkPixbuf; cdecl; external; function gtk_icon_info_load_symbolic_for_context(AIconInfo: PGtkIconInfo; context: PGtkStyleContext; was_symbolic: Pgboolean): PGdkPixbuf; cdecl; external; +function gtk_icon_info_load_symbolic_for_style(AIconInfo: PGtkIconInfo; style: PGtkStyle; state: TGtkStateType; was_symbolic: Pgboolean): PGdkPixbuf; cdecl; external; function gtk_icon_info_new_for_pixbuf(icon_theme: PGtkIconTheme; pixbuf: PGdkPixbuf): PGtkIconInfo; cdecl; external; function gtk_icon_set_copy(AIconSet: PGtkIconSet): PGtkIconSet; cdecl; external; function gtk_icon_set_get_type: TGType; cdecl; external; function gtk_icon_set_new: PGtkIconSet; cdecl; external; function gtk_icon_set_new_from_pixbuf(pixbuf: PGdkPixbuf): PGtkIconSet; cdecl; external; function gtk_icon_set_ref(AIconSet: PGtkIconSet): PGtkIconSet; cdecl; external; +function gtk_icon_set_render_icon(AIconSet: PGtkIconSet; style: PGtkStyle; direction: TGtkTextDirection; state: TGtkStateType; size: gint; widget: PGtkWidget; detail: Pgchar): PGdkPixbuf; cdecl; external; function gtk_icon_set_render_icon_pixbuf(AIconSet: PGtkIconSet; context: PGtkStyleContext; size: gint): PGdkPixbuf; cdecl; external; function gtk_icon_size_from_name(name: Pgchar): gint; cdecl; external; function gtk_icon_size_get_name(size: gint): Pgchar; cdecl; external; @@ -11599,7 +11649,9 @@ function gtk_label_get_width_chars(ALabel: PGtkLabel): gint; cdecl; external; function gtk_label_new(str: Pgchar): PGtkLabel; cdecl; external; function gtk_label_new_with_mnemonic(str: Pgchar): PGtkLabel; cdecl; external; function gtk_layout_get_bin_window(ALayout: PGtkLayout): PGdkWindow; cdecl; external; +function gtk_layout_get_hadjustment(ALayout: PGtkLayout): PGtkAdjustment; cdecl; external; function gtk_layout_get_type: TGType; cdecl; external; +function gtk_layout_get_vadjustment(ALayout: PGtkLayout): PGtkAdjustment; cdecl; external; function gtk_layout_new(hadjustment: PGtkAdjustment; vadjustment: PGtkAdjustment): PGtkLayout; cdecl; external; function gtk_link_button_get_type: TGType; cdecl; external; function gtk_link_button_get_uri(ALinkButton: PGtkLinkButton): Pgchar; cdecl; external; @@ -11634,6 +11686,7 @@ function gtk_menu_get_type: TGType; cdecl; external; function gtk_menu_item_get_accel_path(AMenuItem: PGtkMenuItem): Pgchar; cdecl; external; function gtk_menu_item_get_label(AMenuItem: PGtkMenuItem): Pgchar; cdecl; external; function gtk_menu_item_get_reserve_indicator(AMenuItem: PGtkMenuItem): gboolean; cdecl; external; +function gtk_menu_item_get_right_justified(AMenuItem: PGtkMenuItem): gboolean; cdecl; external; function gtk_menu_item_get_submenu(AMenuItem: PGtkMenuItem): PGtkWidget; cdecl; external; function gtk_menu_item_get_type: TGType; cdecl; external; function gtk_menu_item_get_use_underline(AMenuItem: PGtkMenuItem): gboolean; cdecl; external; @@ -11889,7 +11942,9 @@ function gtk_rc_property_parse_requisition(pspec: PGParamSpec; gstring: PGString function gtk_rc_reparse_all: gboolean; cdecl; external; function gtk_rc_reparse_all_for_settings(settings: PGtkSettings; force_load: gboolean): gboolean; cdecl; external; function gtk_rc_scanner_new: PGScanner; cdecl; external; +function gtk_rc_style_copy(ARcStyle: PGtkRcStyle): PGtkRcStyle; cdecl; external; function gtk_rc_style_get_type: TGType; cdecl; external; +function gtk_rc_style_new: PGtkRcStyle; cdecl; external; function gtk_recent_action_get_show_numbers(ARecentAction: PGtkRecentAction): gboolean; cdecl; external; function gtk_recent_action_get_type: TGType; cdecl; external; function gtk_recent_action_new(name: Pgchar; label_: Pgchar; tooltip: Pgchar; stock_id: Pgchar): PGtkRecentAction; cdecl; external; @@ -12107,6 +12162,7 @@ function gtk_style_get_type: TGType; cdecl; external; function gtk_style_has_context(AStyle: PGtkStyle): gboolean; cdecl; external; function gtk_style_lookup_color(AStyle: PGtkStyle; color_name: Pgchar; color: PGdkColor): gboolean; cdecl; external; function gtk_style_lookup_icon_set(AStyle: PGtkStyle; stock_id: Pgchar): PGtkIconSet; cdecl; external; +function gtk_style_new: PGtkStyle; cdecl; external; function gtk_style_properties_get_property(AStyleProperties: PGtkStyleProperties; property_: Pgchar; state: TGtkStateFlags; value: PGValue): gboolean; cdecl; external; function gtk_style_properties_get_type: TGType; cdecl; external; function gtk_style_properties_lookup_color(AStyleProperties: PGtkStyleProperties; name: Pgchar): PGtkSymbolicColor; cdecl; external; @@ -12310,6 +12366,7 @@ function gtk_text_view_get_buffer(ATextView: PGtkTextView): PGtkTextBuffer; cdec function gtk_text_view_get_cursor_visible(ATextView: PGtkTextView): gboolean; cdecl; external; function gtk_text_view_get_default_attributes(ATextView: PGtkTextView): PGtkTextAttributes; cdecl; external; function gtk_text_view_get_editable(ATextView: PGtkTextView): gboolean; cdecl; external; +function gtk_text_view_get_hadjustment(ATextView: PGtkTextView): PGtkAdjustment; cdecl; external; function gtk_text_view_get_indent(ATextView: PGtkTextView): gint; cdecl; external; function gtk_text_view_get_justification(ATextView: PGtkTextView): TGtkJustification; cdecl; external; function gtk_text_view_get_left_margin(ATextView: PGtkTextView): gint; cdecl; external; @@ -12320,6 +12377,7 @@ function gtk_text_view_get_pixels_inside_wrap(ATextView: PGtkTextView): gint; cd function gtk_text_view_get_right_margin(ATextView: PGtkTextView): gint; cdecl; external; function gtk_text_view_get_tabs(ATextView: PGtkTextView): PPangoTabArray; cdecl; external; function gtk_text_view_get_type: TGType; cdecl; external; +function gtk_text_view_get_vadjustment(ATextView: PGtkTextView): PGtkAdjustment; cdecl; external; function gtk_text_view_get_window(ATextView: PGtkTextView; win: TGtkTextWindowType): PGdkWindow; cdecl; external; function gtk_text_view_get_window_type(ATextView: PGtkTextView; window: PGdkWindow): TGtkTextWindowType; cdecl; external; function gtk_text_view_get_wrap_mode(ATextView: PGtkTextView): TGtkWrapMode; cdecl; external; @@ -12404,9 +12462,11 @@ function gtk_tool_palette_get_drop_item(AToolPalette: PGtkToolPalette; x: gint; function gtk_tool_palette_get_exclusive(AToolPalette: PGtkToolPalette; group: PGtkToolItemGroup): gboolean; cdecl; external; function gtk_tool_palette_get_expand(AToolPalette: PGtkToolPalette; group: PGtkToolItemGroup): gboolean; cdecl; external; function gtk_tool_palette_get_group_position(AToolPalette: PGtkToolPalette; group: PGtkToolItemGroup): gint; cdecl; external; +function gtk_tool_palette_get_hadjustment(AToolPalette: PGtkToolPalette): PGtkAdjustment; cdecl; external; function gtk_tool_palette_get_icon_size(AToolPalette: PGtkToolPalette): gint; cdecl; external; function gtk_tool_palette_get_style(AToolPalette: PGtkToolPalette): TGtkToolbarStyle; cdecl; external; function gtk_tool_palette_get_type: TGType; cdecl; external; +function gtk_tool_palette_get_vadjustment(AToolPalette: PGtkToolPalette): PGtkAdjustment; cdecl; external; function gtk_tool_palette_new: PGtkToolPalette; cdecl; external; function gtk_tool_shell_get_ellipsize_mode(AToolShell: PGtkToolShell): TPangoEllipsizeMode; cdecl; external; function gtk_tool_shell_get_icon_size(AToolShell: PGtkToolShell): gint; cdecl; external; @@ -12549,6 +12609,7 @@ function gtk_tree_view_get_enable_tree_lines(ATreeView: PGtkTreeView): gboolean; function gtk_tree_view_get_expander_column(ATreeView: PGtkTreeView): PGtkTreeViewColumn; cdecl; external; function gtk_tree_view_get_fixed_height_mode(ATreeView: PGtkTreeView): gboolean; cdecl; external; function gtk_tree_view_get_grid_lines(ATreeView: PGtkTreeView): TGtkTreeViewGridLines; cdecl; external; +function gtk_tree_view_get_hadjustment(ATreeView: PGtkTreeView): PGtkAdjustment; cdecl; external; function gtk_tree_view_get_headers_clickable(ATreeView: PGtkTreeView): gboolean; cdecl; external; function gtk_tree_view_get_headers_visible(ATreeView: PGtkTreeView): gboolean; cdecl; external; function gtk_tree_view_get_hover_expand(ATreeView: PGtkTreeView): gboolean; cdecl; external; @@ -12569,6 +12630,7 @@ function gtk_tree_view_get_show_expanders(ATreeView: PGtkTreeView): gboolean; cd function gtk_tree_view_get_tooltip_column(ATreeView: PGtkTreeView): gint; cdecl; external; function gtk_tree_view_get_tooltip_context(ATreeView: PGtkTreeView; x: Pgint; y: Pgint; keyboard_tip: gboolean; model: PPGtkTreeModel; path: PPGtkTreePath; iter: PGtkTreeIter): gboolean; cdecl; external; function gtk_tree_view_get_type: TGType; cdecl; external; +function gtk_tree_view_get_vadjustment(ATreeView: PGtkTreeView): PGtkAdjustment; cdecl; external; function gtk_tree_view_get_visible_range(ATreeView: PGtkTreeView; start_path: PPGtkTreePath; end_path: PPGtkTreePath): gboolean; cdecl; external; function gtk_tree_view_insert_column(ATreeView: PGtkTreeView; column: PGtkTreeViewColumn; position: gint): gint; cdecl; external; function gtk_tree_view_insert_column_with_attributes(ATreeView: PGtkTreeView; position: gint; title: Pgchar; cell: PGtkCellRenderer; args: array of const): gint; cdecl; external; @@ -12593,18 +12655,27 @@ function gtk_ui_manager_get_widget(AUIManager: PGtkUIManager; path: Pgchar): PGt function gtk_ui_manager_new: PGtkUIManager; cdecl; external; function gtk_ui_manager_new_merge_id(AUIManager: PGtkUIManager): guint; cdecl; external; function gtk_vbox_get_type: TGType; cdecl; external; +function gtk_vbox_new(homogeneous: gboolean; spacing: gint): PGtkVBox; cdecl; external; function gtk_vbutton_box_get_type: TGType; cdecl; external; +function gtk_vbutton_box_new: PGtkVButtonBox; cdecl; external; function gtk_viewport_get_bin_window(AViewport: PGtkViewport): PGdkWindow; cdecl; external; +function gtk_viewport_get_hadjustment(AViewport: PGtkViewport): PGtkAdjustment; cdecl; external; function gtk_viewport_get_shadow_type(AViewport: PGtkViewport): TGtkShadowType; cdecl; external; function gtk_viewport_get_type: TGType; cdecl; external; +function gtk_viewport_get_vadjustment(AViewport: PGtkViewport): PGtkAdjustment; cdecl; external; function gtk_viewport_get_view_window(AViewport: PGtkViewport): PGdkWindow; cdecl; external; function gtk_viewport_new(hadjustment: PGtkAdjustment; vadjustment: PGtkAdjustment): PGtkViewport; cdecl; external; function gtk_volume_button_get_type: TGType; cdecl; external; function gtk_volume_button_new: PGtkVolumeButton; cdecl; external; function gtk_vpaned_get_type: TGType; cdecl; external; +function gtk_vpaned_new: PGtkVPaned; cdecl; external; function gtk_vscale_get_type: TGType; cdecl; external; +function gtk_vscale_new(adjustment: PGtkAdjustment): PGtkVScale; cdecl; external; +function gtk_vscale_new_with_range(min: gdouble; max: gdouble; step: gdouble): PGtkVScale; cdecl; external; function gtk_vscrollbar_get_type: TGType; cdecl; external; +function gtk_vscrollbar_new(adjustment: PGtkAdjustment): PGtkVScrollbar; cdecl; external; function gtk_vseparator_get_type: TGType; cdecl; external; +function gtk_vseparator_new: PGtkVSeparator; cdecl; external; function gtk_widget_activate(AWidget: PGtkWidget): gboolean; cdecl; external; function gtk_widget_can_activate_accel(AWidget: PGtkWidget; signal_id: guint): gboolean; cdecl; external; function gtk_widget_child_focus(AWidget: PGtkWidget; direction: TGtkDirectionType): gboolean; cdecl; external; @@ -12719,6 +12790,7 @@ function gtk_widget_path_ref(AWidgetPath: PGtkWidgetPath): PGtkWidgetPath; cdecl function gtk_widget_path_to_string(AWidgetPath: PGtkWidgetPath): Pgchar; cdecl; external; function gtk_widget_region_intersect(AWidget: PGtkWidget; region: Pcairo_region_t): Pcairo_region_t; cdecl; external; function gtk_widget_remove_accelerator(AWidget: PGtkWidget; accel_group: PGtkAccelGroup; accel_key: guint; accel_mods: TGdkModifierType): gboolean; cdecl; external; +function gtk_widget_render_icon(AWidget: PGtkWidget; stock_id: Pgchar; size: gint; detail: Pgchar): PGdkPixbuf; cdecl; external; function gtk_widget_render_icon_pixbuf(AWidget: PGtkWidget; stock_id: Pgchar; size: gint): PGdkPixbuf; cdecl; external; function gtk_widget_send_expose(AWidget: PGtkWidget; event: PGdkEvent): gint; cdecl; external; function gtk_widget_send_focus_change(AWidget: PGtkWidget; event: PGdkEvent): gboolean; cdecl; external; @@ -12864,6 +12936,7 @@ procedure gtk_app_chooser_button_append_custom_item(AAppChooserButton: PGtkAppCh procedure gtk_app_chooser_button_append_separator(AAppChooserButton: PGtkAppChooserButton); cdecl; external; procedure gtk_app_chooser_button_set_active_custom_item(AAppChooserButton: PGtkAppChooserButton; name: Pgchar); cdecl; external; procedure gtk_app_chooser_button_set_heading(AAppChooserButton: PGtkAppChooserButton; heading: Pgchar); cdecl; external; +procedure gtk_app_chooser_button_set_show_default_item(AAppChooserButton: PGtkAppChooserButton; setting: gboolean); cdecl; external; procedure gtk_app_chooser_button_set_show_dialog_item(AAppChooserButton: PGtkAppChooserButton; setting: gboolean); cdecl; external; procedure gtk_app_chooser_dialog_set_heading(AAppChooserDialog: PGtkAppChooserDialog; heading: Pgchar); cdecl; external; procedure gtk_app_chooser_refresh(AAppChooser: PGtkAppChooser); cdecl; external; @@ -12886,6 +12959,8 @@ procedure gtk_assistant_remove_page(AAssistant: PGtkAssistant; page_num: gint); procedure gtk_assistant_set_current_page(AAssistant: PGtkAssistant; page_num: gint); cdecl; external; procedure gtk_assistant_set_forward_page_func(AAssistant: PGtkAssistant; page_func: TGtkAssistantPageFunc; data: gpointer; destroy_: TGDestroyNotify); cdecl; external; procedure gtk_assistant_set_page_complete(AAssistant: PGtkAssistant; page: PGtkWidget; complete: gboolean); cdecl; external; +procedure gtk_assistant_set_page_header_image(AAssistant: PGtkAssistant; page: PGtkWidget; pixbuf: PGdkPixbuf); cdecl; external; +procedure gtk_assistant_set_page_side_image(AAssistant: PGtkAssistant; page: PGtkWidget; pixbuf: PGdkPixbuf); cdecl; external; procedure gtk_assistant_set_page_title(AAssistant: PGtkAssistant; page: PGtkWidget; title: Pgchar); cdecl; external; procedure gtk_assistant_set_page_type(AAssistant: PGtkAssistant; page: PGtkWidget; type_: TGtkAssistantPageType); cdecl; external; procedure gtk_assistant_update_buttons_state(AAssistant: PGtkAssistant); cdecl; external; @@ -12998,6 +13073,7 @@ procedure gtk_cell_renderer_get_preferred_height_for_width(ACellRenderer: PGtkCe procedure gtk_cell_renderer_get_preferred_size(ACellRenderer: PGtkCellRenderer; widget: PGtkWidget; minimum_size: PGtkRequisition; natural_size: PGtkRequisition); cdecl; external; procedure gtk_cell_renderer_get_preferred_width(ACellRenderer: PGtkCellRenderer; widget: PGtkWidget; minimum_size: Pgint; natural_size: Pgint); cdecl; external; procedure gtk_cell_renderer_get_preferred_width_for_height(ACellRenderer: PGtkCellRenderer; widget: PGtkWidget; height: gint; minimum_width: Pgint; natural_width: Pgint); cdecl; external; +procedure gtk_cell_renderer_get_size(ACellRenderer: PGtkCellRenderer; widget: PGtkWidget; cell_area: PGdkRectangle; x_offset: Pgint; y_offset: Pgint; width: Pgint; height: Pgint); cdecl; external; procedure gtk_cell_renderer_render(ACellRenderer: PGtkCellRenderer; cr: Pcairo_t; widget: PGtkWidget; background_area: PGdkRectangle; cell_area: PGdkRectangle; flags: TGtkCellRendererState); cdecl; external; procedure gtk_cell_renderer_set_alignment(ACellRenderer: PGtkCellRenderer; xalign: gfloat; yalign: gfloat); cdecl; external; procedure gtk_cell_renderer_set_fixed_size(ACellRenderer: PGtkCellRenderer; width: gint; height: gint); cdecl; external; @@ -13242,10 +13318,13 @@ procedure gtk_font_button_set_show_style(AFontButton: PGtkFontButton; show_style procedure gtk_font_button_set_title(AFontButton: PGtkFontButton; title: Pgchar); cdecl; external; procedure gtk_font_button_set_use_font(AFontButton: PGtkFontButton; use_font: gboolean); cdecl; external; procedure gtk_font_button_set_use_size(AFontButton: PGtkFontButton; use_size: gboolean); cdecl; external; -procedure gtk_font_chooser_dialog_set_preview_text(AFontChooserDialog: PGtkFontChooserDialog; text: Pgchar); cdecl; external; -procedure gtk_font_chooser_set_filter_func(AFontChooser: PGtkFontChooser; filter: TGtkFontFilterFunc; data: gpointer; destroy_: TGDestroyNotify); cdecl; external; +procedure gtk_font_chooser_set_filter_func(AFontChooser: PGtkFontChooser; filter: TGtkFontFilterFunc; user_data: gpointer; destroy_: TGDestroyNotify); cdecl; external; +procedure gtk_font_chooser_set_font(AFontChooser: PGtkFontChooser; fontname: Pgchar); cdecl; external; +procedure gtk_font_chooser_set_font_desc(AFontChooser: PGtkFontChooser; font_desc: PPangoFontDescription); cdecl; external; procedure gtk_font_chooser_set_preview_text(AFontChooser: PGtkFontChooser; text: Pgchar); cdecl; external; procedure gtk_font_chooser_set_show_preview_entry(AFontChooser: PGtkFontChooser; show_preview_entry: gboolean); cdecl; external; +procedure gtk_font_selection_dialog_set_preview_text(AFontSelectionDialog: PGtkFontSelectionDialog; text: Pgchar); cdecl; external; +procedure gtk_font_selection_set_preview_text(AFontSelection: PGtkFontSelection; text: Pgchar); cdecl; external; procedure gtk_frame_get_label_align(AFrame: PGtkFrame; xalign: Pgfloat; yalign: Pgfloat); cdecl; external; procedure gtk_frame_set_label(AFrame: PGtkFrame; label_: Pgchar); cdecl; external; procedure gtk_frame_set_label_align(AFrame: PGtkFrame; xalign: gfloat; yalign: gfloat); cdecl; external; @@ -13392,7 +13471,9 @@ procedure gtk_label_set_width_chars(ALabel: PGtkLabel; n_chars: gint); cdecl; ex procedure gtk_layout_get_size(ALayout: PGtkLayout; width: Pguint; height: Pguint); cdecl; external; procedure gtk_layout_move(ALayout: PGtkLayout; child_widget: PGtkWidget; x: gint; y: gint); cdecl; external; procedure gtk_layout_put(ALayout: PGtkLayout; child_widget: PGtkWidget; x: gint; y: gint); cdecl; external; +procedure gtk_layout_set_hadjustment(ALayout: PGtkLayout; adjustment: PGtkAdjustment); cdecl; external; procedure gtk_layout_set_size(ALayout: PGtkLayout; width: guint; height: guint); cdecl; external; +procedure gtk_layout_set_vadjustment(ALayout: PGtkLayout; adjustment: PGtkAdjustment); cdecl; external; procedure gtk_link_button_set_uri(ALinkButton: PGtkLinkButton; uri: Pgchar); cdecl; external; procedure gtk_link_button_set_visited(ALinkButton: PGtkLinkButton; visited: gboolean); cdecl; external; procedure gtk_list_store_append(AListStore: PGtkListStore; iter: PGtkTreeIter); cdecl; external; @@ -13427,6 +13508,7 @@ procedure gtk_menu_item_select(AMenuItem: PGtkMenuItem); cdecl; external; procedure gtk_menu_item_set_accel_path(AMenuItem: PGtkMenuItem; accel_path: Pgchar); cdecl; external; procedure gtk_menu_item_set_label(AMenuItem: PGtkMenuItem; label_: Pgchar); cdecl; external; procedure gtk_menu_item_set_reserve_indicator(AMenuItem: PGtkMenuItem; reserve: gboolean); cdecl; external; +procedure gtk_menu_item_set_right_justified(AMenuItem: PGtkMenuItem; right_justified: gboolean); cdecl; external; procedure gtk_menu_item_set_submenu(AMenuItem: PGtkMenuItem; submenu: PGtkWidget); cdecl; external; procedure gtk_menu_item_set_use_underline(AMenuItem: PGtkMenuItem; setting: gboolean); cdecl; external; procedure gtk_menu_item_toggle_size_allocate(AMenuItem: PGtkMenuItem; allocation: gint); cdecl; external; @@ -13725,7 +13807,7 @@ procedure gtk_spin_button_spin(ASpinButton: PGtkSpinButton; direction: TGtkSpinT procedure gtk_spin_button_update(ASpinButton: PGtkSpinButton); cdecl; external; procedure gtk_spinner_start(ASpinner: PGtkSpinner); cdecl; external; procedure gtk_spinner_stop(ASpinner: PGtkSpinner); cdecl; external; -procedure gtk_status_icon_position_menu(menu: PGtkMenu; x: Pgint; y: Pgint; push_in: Pgboolean; user_data: TGtkStatusIcon); cdecl; external; +procedure gtk_status_icon_position_menu(menu: PGtkMenu; x: Pgint; y: Pgint; push_in: Pgboolean; user_data: PGtkStatusIcon); cdecl; external; procedure gtk_status_icon_set_from_file(AStatusIcon: PGtkStatusIcon; filename: Pgchar); cdecl; external; procedure gtk_status_icon_set_from_gicon(AStatusIcon: PGtkStatusIcon; icon: PGIcon); cdecl; external; procedure gtk_status_icon_set_from_icon_name(AStatusIcon: PGtkStatusIcon; icon_name: Pgchar); cdecl; external; @@ -14102,6 +14184,7 @@ procedure gtk_tree_view_set_enable_tree_lines(ATreeView: PGtkTreeView; enabled: procedure gtk_tree_view_set_expander_column(ATreeView: PGtkTreeView; column: PGtkTreeViewColumn); cdecl; external; procedure gtk_tree_view_set_fixed_height_mode(ATreeView: PGtkTreeView; enable: gboolean); cdecl; external; procedure gtk_tree_view_set_grid_lines(ATreeView: PGtkTreeView; grid_lines: TGtkTreeViewGridLines); cdecl; external; +procedure gtk_tree_view_set_hadjustment(ATreeView: PGtkTreeView; adjustment: PGtkAdjustment); cdecl; external; procedure gtk_tree_view_set_headers_clickable(ATreeView: PGtkTreeView; setting: gboolean); cdecl; external; procedure gtk_tree_view_set_headers_visible(ATreeView: PGtkTreeView; headers_visible: gboolean); cdecl; external; procedure gtk_tree_view_set_hover_expand(ATreeView: PGtkTreeView; expand: gboolean); cdecl; external; @@ -14120,6 +14203,7 @@ procedure gtk_tree_view_set_show_expanders(ATreeView: PGtkTreeView; enabled: gbo procedure gtk_tree_view_set_tooltip_cell(ATreeView: PGtkTreeView; tooltip: PGtkTooltip; path: PGtkTreePath; column: PGtkTreeViewColumn; cell: PGtkCellRenderer); cdecl; external; procedure gtk_tree_view_set_tooltip_column(ATreeView: PGtkTreeView; column: gint); cdecl; external; procedure gtk_tree_view_set_tooltip_row(ATreeView: PGtkTreeView; tooltip: PGtkTooltip; path: PGtkTreePath); cdecl; external; +procedure gtk_tree_view_set_vadjustment(ATreeView: PGtkTreeView; adjustment: PGtkAdjustment); cdecl; external; procedure gtk_tree_view_unset_rows_drag_dest(ATreeView: PGtkTreeView); cdecl; external; procedure gtk_tree_view_unset_rows_drag_source(ATreeView: PGtkTreeView); cdecl; external; procedure gtk_ui_manager_add_ui(AUIManager: PGtkUIManager; merge_id: guint; path: Pgchar; name: Pgchar; action: Pgchar; type_: TGtkUIManagerItemType; top: gboolean); cdecl; external; @@ -14128,7 +14212,9 @@ procedure gtk_ui_manager_insert_action_group(AUIManager: PGtkUIManager; action_g procedure gtk_ui_manager_remove_action_group(AUIManager: PGtkUIManager; action_group: PGtkActionGroup); cdecl; external; procedure gtk_ui_manager_remove_ui(AUIManager: PGtkUIManager; merge_id: guint); cdecl; external; procedure gtk_ui_manager_set_add_tearoffs(AUIManager: PGtkUIManager; add_tearoffs: gboolean); cdecl; external; +procedure gtk_viewport_set_hadjustment(AViewport: PGtkViewport; adjustment: PGtkAdjustment); cdecl; external; procedure gtk_viewport_set_shadow_type(AViewport: PGtkViewport; type_: TGtkShadowType); cdecl; external; +procedure gtk_viewport_set_vadjustment(AViewport: PGtkViewport; adjustment: PGtkAdjustment); cdecl; external; procedure gtk_widget_add_accelerator(AWidget: PGtkWidget; accel_signal: Pgchar; accel_group: PGtkAccelGroup; accel_key: guint; accel_mods: TGdkModifierType; accel_flags: TGtkAccelFlags); cdecl; external; procedure gtk_widget_add_device_events(AWidget: PGtkWidget; device: PGdkDevice; events: TGdkEventMask); cdecl; external; procedure gtk_widget_add_events(AWidget: PGtkWidget; events: gint); cdecl; external; @@ -14146,12 +14232,14 @@ procedure gtk_widget_ensure_style(AWidget: PGtkWidget); cdecl; external; procedure gtk_widget_error_bell(AWidget: PGtkWidget); cdecl; external; procedure gtk_widget_freeze_child_notify(AWidget: PGtkWidget); cdecl; external; procedure gtk_widget_get_allocation(AWidget: PGtkWidget; allocation: PGtkAllocation); cdecl; external; +procedure gtk_widget_get_child_requisition(AWidget: PGtkWidget; requisition: PGtkRequisition); cdecl; external; procedure gtk_widget_get_pointer(AWidget: PGtkWidget; x: Pgint; y: Pgint); cdecl; external; procedure gtk_widget_get_preferred_height(AWidget: PGtkWidget; minimum_height: Pgint; natural_height: Pgint); cdecl; external; procedure gtk_widget_get_preferred_height_for_width(AWidget: PGtkWidget; width: gint; minimum_height: Pgint; natural_height: Pgint); cdecl; external; procedure gtk_widget_get_preferred_size(AWidget: PGtkWidget; minimum_size: PGtkRequisition; natural_size: PGtkRequisition); cdecl; external; procedure gtk_widget_get_preferred_width(AWidget: PGtkWidget; minimum_width: Pgint; natural_width: Pgint); cdecl; external; procedure gtk_widget_get_preferred_width_for_height(AWidget: PGtkWidget; height: gint; minimum_width: Pgint; natural_width: Pgint); cdecl; external; +procedure gtk_widget_get_requisition(AWidget: PGtkWidget; requisition: PGtkRequisition); cdecl; external; procedure gtk_widget_get_size_request(AWidget: PGtkWidget; width: Pgint; height: Pgint); cdecl; external; procedure gtk_widget_grab_default(AWidget: PGtkWidget); cdecl; external; procedure gtk_widget_grab_focus(AWidget: PGtkWidget); cdecl; external; @@ -14245,6 +14333,7 @@ procedure gtk_widget_show(AWidget: PGtkWidget); cdecl; external; procedure gtk_widget_show_all(AWidget: PGtkWidget); cdecl; external; procedure gtk_widget_show_now(AWidget: PGtkWidget); cdecl; external; procedure gtk_widget_size_allocate(AWidget: PGtkWidget; allocation: PGtkAllocation); cdecl; external; +procedure gtk_widget_size_request(AWidget: PGtkWidget; requisition: PGtkRequisition); cdecl; external; procedure gtk_widget_style_attach(AWidget: PGtkWidget); cdecl; external; procedure gtk_widget_style_get(AWidget: PGtkWidget; first_property_name: Pgchar; args: array of const); cdecl; external; procedure gtk_widget_style_get_property(AWidget: PGtkWidget; property_name: Pgchar; value: PGValue); cdecl; external; @@ -14671,6 +14760,11 @@ begin Result := Gtk3.gtk_widget_get_can_focus(@self); end; +procedure TGtkWidget.get_child_requisition(requisition: PGtkRequisition); cdecl; +begin + Gtk3.gtk_widget_get_child_requisition(@self, requisition); +end; + function TGtkWidget.get_child_visible: gboolean; cdecl; begin Result := Gtk3.gtk_widget_get_child_visible(@self); @@ -14846,6 +14940,11 @@ begin Result := Gtk3.gtk_widget_get_request_mode(@self); end; +procedure TGtkWidget.get_requisition(requisition: PGtkRequisition); cdecl; +begin + Gtk3.gtk_widget_get_requisition(@self, requisition); +end; + function TGtkWidget.get_root_window: PGdkWindow; cdecl; begin Result := Gtk3.gtk_widget_get_root_window(@self); @@ -15191,6 +15290,11 @@ begin Gtk3.gtk_widget_remove_mnemonic_label(@self, label_); end; +function TGtkWidget.render_icon(stock_id: Pgchar; size: gint; detail: Pgchar): PGdkPixbuf; cdecl; +begin + Result := Gtk3.gtk_widget_render_icon(@self, stock_id, size, detail); +end; + function TGtkWidget.render_icon_pixbuf(stock_id: Pgchar; size: gint): PGdkPixbuf; cdecl; begin Result := Gtk3.gtk_widget_render_icon_pixbuf(@self, stock_id, size); @@ -15466,6 +15570,11 @@ begin Gtk3.gtk_widget_size_allocate(@self, allocation); end; +procedure TGtkWidget.size_request(requisition: PGtkRequisition); cdecl; +begin + Gtk3.gtk_widget_size_request(@self, requisition); +end; + procedure TGtkWidget.style_attach; cdecl; begin Gtk3.gtk_widget_style_attach(@self); @@ -17631,6 +17740,11 @@ begin Result := Gtk3.gtk_app_chooser_button_get_heading(@self); end; +function TGtkAppChooserButton.get_show_default_item: gboolean; cdecl; +begin + Result := Gtk3.gtk_app_chooser_button_get_show_default_item(@self); +end; + function TGtkAppChooserButton.get_show_dialog_item: gboolean; cdecl; begin Result := Gtk3.gtk_app_chooser_button_get_show_dialog_item(@self); @@ -17646,6 +17760,11 @@ begin Gtk3.gtk_app_chooser_button_set_heading(@self, heading); end; +procedure TGtkAppChooserButton.set_show_default_item(setting: gboolean); cdecl; +begin + Gtk3.gtk_app_chooser_button_set_show_default_item(@self, setting); +end; + procedure TGtkAppChooserButton.set_show_dialog_item(setting: gboolean); cdecl; begin Gtk3.gtk_app_chooser_button_set_show_dialog_item(@self, setting); @@ -18121,6 +18240,16 @@ begin Result := Gtk3.gtk_assistant_get_page_complete(@self, page); end; +function TGtkAssistant.get_page_header_image(page: PGtkWidget): PGdkPixbuf; cdecl; +begin + Result := Gtk3.gtk_assistant_get_page_header_image(@self, page); +end; + +function TGtkAssistant.get_page_side_image(page: PGtkWidget): PGdkPixbuf; cdecl; +begin + Result := Gtk3.gtk_assistant_get_page_side_image(@self, page); +end; + function TGtkAssistant.get_page_title(page: PGtkWidget): Pgchar; cdecl; begin Result := Gtk3.gtk_assistant_get_page_title(@self, page); @@ -18176,6 +18305,16 @@ begin Gtk3.gtk_assistant_set_page_complete(@self, page, complete); end; +procedure TGtkAssistant.set_page_header_image(page: PGtkWidget; pixbuf: PGdkPixbuf); cdecl; +begin + Gtk3.gtk_assistant_set_page_header_image(@self, page, pixbuf); +end; + +procedure TGtkAssistant.set_page_side_image(page: PGtkWidget; pixbuf: PGdkPixbuf); cdecl; +begin + Gtk3.gtk_assistant_set_page_side_image(@self, page, pixbuf); +end; + procedure TGtkAssistant.set_page_title(page: PGtkWidget; title: Pgchar); cdecl; begin Gtk3.gtk_assistant_set_page_title(@self, page, title); @@ -18621,6 +18760,11 @@ begin Result := Gtk3.gtk_cell_renderer_get_sensitive(@self); end; +procedure TGtkCellRenderer.get_size(widget: PGtkWidget; cell_area: PGdkRectangle; x_offset: Pgint; y_offset: Pgint; width: Pgint; height: Pgint); cdecl; +begin + Gtk3.gtk_cell_renderer_get_size(@self, widget, cell_area, x_offset, y_offset, width, height); +end; + function TGtkCellRenderer.get_state(widget: PGtkWidget; cell_state: TGtkCellRendererState): TGtkStateFlags; cdecl; begin Result := Gtk3.gtk_cell_renderer_get_state(@self, widget, cell_state); @@ -19321,6 +19465,11 @@ begin Result := Gtk3.gtk_cell_view_get_model(@self); end; +function TGtkCellView.get_size_of_row(path: PGtkTreePath; requisition: PGtkRequisition): gboolean; cdecl; +begin + Result := Gtk3.gtk_cell_view_get_size_of_row(@self, path, requisition); +end; + procedure TGtkCellView.set_background_color(color: PGdkColor); cdecl; begin Gtk3.gtk_cell_view_set_background_color(@self, color); @@ -19456,6 +19605,11 @@ begin Result := Gtk3.gtk_menu_item_get_reserve_indicator(@self); end; +function TGtkMenuItem.get_right_justified: gboolean; cdecl; +begin + Result := Gtk3.gtk_menu_item_get_right_justified(@self); +end; + function TGtkMenuItem.get_submenu: PGtkWidget; cdecl; begin Result := Gtk3.gtk_menu_item_get_submenu(@self); @@ -19486,6 +19640,11 @@ begin Gtk3.gtk_menu_item_set_reserve_indicator(@self, reserve); end; +procedure TGtkMenuItem.set_right_justified(right_justified: gboolean); cdecl; +begin + Gtk3.gtk_menu_item_set_right_justified(@self, right_justified); +end; + procedure TGtkMenuItem.set_submenu(submenu: PGtkWidget); cdecl; begin Gtk3.gtk_menu_item_set_submenu(@self, submenu); @@ -21816,6 +21975,66 @@ begin Gtk3.gtk_fixed_put(@self, widget, x, y); end; +function TGtkFontChooser.get_font: Pgchar; cdecl; +begin + Result := Gtk3.gtk_font_chooser_get_font(@self); +end; + +function TGtkFontChooser.get_font_desc: PPangoFontDescription; cdecl; +begin + Result := Gtk3.gtk_font_chooser_get_font_desc(@self); +end; + +function TGtkFontChooser.get_font_face: PPangoFontFace; cdecl; +begin + Result := Gtk3.gtk_font_chooser_get_font_face(@self); +end; + +function TGtkFontChooser.get_font_family: PPangoFontFamily; cdecl; +begin + Result := Gtk3.gtk_font_chooser_get_font_family(@self); +end; + +function TGtkFontChooser.get_font_size: gint; cdecl; +begin + Result := Gtk3.gtk_font_chooser_get_font_size(@self); +end; + +function TGtkFontChooser.get_preview_text: Pgchar; cdecl; +begin + Result := Gtk3.gtk_font_chooser_get_preview_text(@self); +end; + +function TGtkFontChooser.get_show_preview_entry: gboolean; cdecl; +begin + Result := Gtk3.gtk_font_chooser_get_show_preview_entry(@self); +end; + +procedure TGtkFontChooser.set_filter_func(filter: TGtkFontFilterFunc; user_data: gpointer; destroy_: TGDestroyNotify); cdecl; +begin + Gtk3.gtk_font_chooser_set_filter_func(@self, filter, user_data, destroy_); +end; + +procedure TGtkFontChooser.set_font(fontname: Pgchar); cdecl; +begin + Gtk3.gtk_font_chooser_set_font(@self, fontname); +end; + +procedure TGtkFontChooser.set_font_desc(font_desc: PPangoFontDescription); cdecl; +begin + Gtk3.gtk_font_chooser_set_font_desc(@self, font_desc); +end; + +procedure TGtkFontChooser.set_preview_text(text: Pgchar); cdecl; +begin + Gtk3.gtk_font_chooser_set_preview_text(@self, text); +end; + +procedure TGtkFontChooser.set_show_preview_entry(show_preview_entry: gboolean); cdecl; +begin + Gtk3.gtk_font_chooser_set_show_preview_entry(@self, show_preview_entry); +end; + function TGtkFontButton.new: PGtkFontButton; cdecl; begin Result := Gtk3.gtk_font_button_new(); @@ -21886,89 +22105,14 @@ begin Gtk3.gtk_font_button_set_use_size(@self, use_size); end; -function TGtkFontChooser.new: PGtkFontChooser; cdecl; -begin - Result := Gtk3.gtk_font_chooser_new(); -end; - -function TGtkFontChooser.get_face: PPangoFontFace; cdecl; -begin - Result := Gtk3.gtk_font_chooser_get_face(@self); -end; - -function TGtkFontChooser.get_family: PPangoFontFamily; cdecl; -begin - Result := Gtk3.gtk_font_chooser_get_family(@self); -end; - -function TGtkFontChooser.get_font_name: Pgchar; cdecl; -begin - Result := Gtk3.gtk_font_chooser_get_font_name(@self); -end; - -function TGtkFontChooser.get_preview_text: Pgchar; cdecl; -begin - Result := Gtk3.gtk_font_chooser_get_preview_text(@self); -end; - -function TGtkFontChooser.get_show_preview_entry: gboolean; cdecl; -begin - Result := Gtk3.gtk_font_chooser_get_show_preview_entry(@self); -end; - -function TGtkFontChooser.get_size: gint; cdecl; -begin - Result := Gtk3.gtk_font_chooser_get_size(@self); -end; - -procedure TGtkFontChooser.set_filter_func(filter: TGtkFontFilterFunc; data: gpointer; destroy_: TGDestroyNotify); cdecl; -begin - Gtk3.gtk_font_chooser_set_filter_func(@self, filter, data, destroy_); -end; - -function TGtkFontChooser.set_font_name(fontname: Pgchar): gboolean; cdecl; -begin - Result := Gtk3.gtk_font_chooser_set_font_name(@self, fontname); -end; - -procedure TGtkFontChooser.set_preview_text(text: Pgchar); cdecl; -begin - Gtk3.gtk_font_chooser_set_preview_text(@self, text); -end; - -procedure TGtkFontChooser.set_show_preview_entry(show_preview_entry: gboolean); cdecl; -begin - Gtk3.gtk_font_chooser_set_show_preview_entry(@self, show_preview_entry); -end; - function TGtkFontChooserDialog.new(title: Pgchar; window: PGtkWindow): PGtkFontChooserDialog; cdecl; begin Result := Gtk3.gtk_font_chooser_dialog_new(title, window); end; -function TGtkFontChooserDialog.get_font_chooser: PGtkWidget; cdecl; +function TGtkFontChooserWidget.new: PGtkFontChooserWidget; cdecl; begin - Result := Gtk3.gtk_font_chooser_dialog_get_font_chooser(@self); -end; - -function TGtkFontChooserDialog.get_font_name: Pgchar; cdecl; -begin - Result := Gtk3.gtk_font_chooser_dialog_get_font_name(@self); -end; - -function TGtkFontChooserDialog.get_preview_text: Pgchar; cdecl; -begin - Result := Gtk3.gtk_font_chooser_dialog_get_preview_text(@self); -end; - -function TGtkFontChooserDialog.set_font_name(fontname: Pgchar): gboolean; cdecl; -begin - Result := Gtk3.gtk_font_chooser_dialog_set_font_name(@self, fontname); -end; - -procedure TGtkFontChooserDialog.set_preview_text(text: Pgchar); cdecl; -begin - Gtk3.gtk_font_chooser_dialog_set_preview_text(@self, text); + Result := Gtk3.gtk_font_chooser_widget_new(); end; function TGtkFontSelection.new: PGtkFontSelection; cdecl; @@ -21976,6 +22120,106 @@ begin Result := Gtk3.gtk_font_selection_new(); end; +function TGtkFontSelection.get_face: PPangoFontFace; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_face(@self); +end; + +function TGtkFontSelection.get_face_list: PGtkWidget; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_face_list(@self); +end; + +function TGtkFontSelection.get_family: PPangoFontFamily; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_family(@self); +end; + +function TGtkFontSelection.get_family_list: PGtkWidget; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_family_list(@self); +end; + +function TGtkFontSelection.get_font_name: Pgchar; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_font_name(@self); +end; + +function TGtkFontSelection.get_preview_entry: PGtkWidget; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_preview_entry(@self); +end; + +function TGtkFontSelection.get_preview_text: Pgchar; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_preview_text(@self); +end; + +function TGtkFontSelection.get_size: gint; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_size(@self); +end; + +function TGtkFontSelection.get_size_entry: PGtkWidget; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_size_entry(@self); +end; + +function TGtkFontSelection.get_size_list: PGtkWidget; cdecl; +begin + Result := Gtk3.gtk_font_selection_get_size_list(@self); +end; + +function TGtkFontSelection.set_font_name(fontname: Pgchar): gboolean; cdecl; +begin + Result := Gtk3.gtk_font_selection_set_font_name(@self, fontname); +end; + +procedure TGtkFontSelection.set_preview_text(text: Pgchar); cdecl; +begin + Gtk3.gtk_font_selection_set_preview_text(@self, text); +end; + +function TGtkFontSelectionDialog.new(title: Pgchar): PGtkFontSelectionDialog; cdecl; +begin + Result := Gtk3.gtk_font_selection_dialog_new(title); +end; + +function TGtkFontSelectionDialog.get_cancel_button: PGtkWidget; cdecl; +begin + Result := Gtk3.gtk_font_selection_dialog_get_cancel_button(@self); +end; + +function TGtkFontSelectionDialog.get_font_name: Pgchar; cdecl; +begin + Result := Gtk3.gtk_font_selection_dialog_get_font_name(@self); +end; + +function TGtkFontSelectionDialog.get_font_selection: PGtkWidget; cdecl; +begin + Result := Gtk3.gtk_font_selection_dialog_get_font_selection(@self); +end; + +function TGtkFontSelectionDialog.get_ok_button: PGtkWidget; cdecl; +begin + Result := Gtk3.gtk_font_selection_dialog_get_ok_button(@self); +end; + +function TGtkFontSelectionDialog.get_preview_text: Pgchar; cdecl; +begin + Result := Gtk3.gtk_font_selection_dialog_get_preview_text(@self); +end; + +function TGtkFontSelectionDialog.set_font_name(fontname: Pgchar): gboolean; cdecl; +begin + Result := Gtk3.gtk_font_selection_dialog_set_font_name(@self, fontname); +end; + +procedure TGtkFontSelectionDialog.set_preview_text(text: Pgchar); cdecl; +begin + Gtk3.gtk_font_selection_dialog_set_preview_text(@self, text); +end; + function TGtkGradient.new_linear(x0: gdouble; y0: gdouble; x1: gdouble; y1: gdouble): PGtkGradient; cdecl; begin Result := Gtk3.gtk_gradient_new_linear(x0, y0, x1, y1); @@ -22181,6 +22425,16 @@ begin Gtk3.gtk_grid_set_row_spacing(@self, spacing); end; +function TGtkHBox.new(homogeneous: gboolean; spacing: gint): PGtkHBox; cdecl; +begin + Result := Gtk3.gtk_hbox_new(homogeneous, spacing); +end; + +function TGtkHButtonBox.new: PGtkHButtonBox; cdecl; +begin + Result := Gtk3.gtk_hbutton_box_new(); +end; + function TGtkPaned.new(orientation: TGtkOrientation): PGtkPaned; cdecl; begin Result := Gtk3.gtk_paned_new(orientation); @@ -22231,6 +22485,11 @@ begin Gtk3.gtk_paned_set_position(@self, position); end; +function TGtkHPaned.new: PGtkHPaned; cdecl; +begin + Result := Gtk3.gtk_hpaned_new(); +end; + function TGtkHSV.new: PGtkHSV; cdecl; begin Result := Gtk3.gtk_hsv_new(); @@ -22466,16 +22725,36 @@ begin Gtk3.gtk_scale_set_value_pos(@self, pos); end; +function TGtkHScale.new(adjustment: PGtkAdjustment): PGtkHScale; cdecl; +begin + Result := Gtk3.gtk_hscale_new(adjustment); +end; + +function TGtkHScale.new_with_range(min: gdouble; max: gdouble; step: gdouble): PGtkHScale; cdecl; +begin + Result := Gtk3.gtk_hscale_new_with_range(min, max, step); +end; + function TGtkScrollbar.new(orientation: TGtkOrientation; adjustment: PGtkAdjustment): PGtkScrollbar; cdecl; begin Result := Gtk3.gtk_scrollbar_new(orientation, adjustment); end; +function TGtkHScrollbar.new(adjustment: PGtkAdjustment): PGtkHScrollbar; cdecl; +begin + Result := Gtk3.gtk_hscrollbar_new(adjustment); +end; + function TGtkSeparator.new(orientation: TGtkOrientation): PGtkSeparator; cdecl; begin Result := Gtk3.gtk_separator_new(orientation); end; +function TGtkHSeparator.new: PGtkHSeparator; cdecl; +begin + Result := Gtk3.gtk_hseparator_new(); +end; + function TGtkHandleBox.new: PGtkHandleBox; cdecl; begin Result := Gtk3.gtk_handle_box_new(); @@ -22661,6 +22940,11 @@ begin Result := Gtk3.gtk_icon_set_ref(@self); end; +function TGtkIconSet.render_icon(style: PGtkStyle; direction: TGtkTextDirection; state: TGtkStateType; size: gint; widget: PGtkWidget; detail: Pgchar): PGdkPixbuf; cdecl; +begin + Result := Gtk3.gtk_icon_set_render_icon(@self, style, direction, state, size, widget, detail); +end; + function TGtkIconSet.render_icon_pixbuf(context: PGtkStyleContext; size: gint): PGdkPixbuf; cdecl; begin Result := Gtk3.gtk_icon_set_render_icon_pixbuf(@self, context, size); @@ -22731,6 +23015,11 @@ begin Result := Gtk3.gtk_icon_info_load_symbolic_for_context(@self, context, was_symbolic); end; +function TGtkIconInfo.load_symbolic_for_style(style: PGtkStyle; state: TGtkStateType; was_symbolic: Pgboolean): PGdkPixbuf; cdecl; +begin + Result := Gtk3.gtk_icon_info_load_symbolic_for_style(@self, style, state, was_symbolic); +end; + procedure TGtkIconInfo.set_raw_coordinates(raw_coordinates: gboolean); cdecl; begin Gtk3.gtk_icon_info_set_raw_coordinates(@self, raw_coordinates); @@ -23061,6 +23350,11 @@ begin Result := Gtk3.gtk_style_context_state_is_running(@self, state, progress); end; +function TGtkStyle.new: PGtkStyle; cdecl; +begin + Result := Gtk3.gtk_style_new(); +end; + procedure TGtkStyle.apply_default_background(cr: Pcairo_t; window: PGdkWindow; state_type: TGtkStateType; x: gint; y: gint; width: gint; height: gint); cdecl; begin Gtk3.gtk_style_apply_default_background(@self, cr, window, state_type, x, y, width, height); @@ -23906,11 +24200,21 @@ begin Result := Gtk3.gtk_layout_get_bin_window(@self); end; +function TGtkLayout.get_hadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_layout_get_hadjustment(@self); +end; + procedure TGtkLayout.get_size(width: Pguint; height: Pguint); cdecl; begin Gtk3.gtk_layout_get_size(@self, width, height); end; +function TGtkLayout.get_vadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_layout_get_vadjustment(@self); +end; + procedure TGtkLayout.move(child_widget: PGtkWidget; x: gint; y: gint); cdecl; begin Gtk3.gtk_layout_move(@self, child_widget, x, y); @@ -23921,11 +24225,21 @@ begin Gtk3.gtk_layout_put(@self, child_widget, x, y); end; +procedure TGtkLayout.set_hadjustment(adjustment: PGtkAdjustment); cdecl; +begin + Gtk3.gtk_layout_set_hadjustment(@self, adjustment); +end; + procedure TGtkLayout.set_size(width: guint; height: guint); cdecl; begin Gtk3.gtk_layout_set_size(@self, width, height); end; +procedure TGtkLayout.set_vadjustment(adjustment: PGtkAdjustment); cdecl; +begin + Gtk3.gtk_layout_set_vadjustment(@self, adjustment); +end; + function TGtkLinkButton.new(uri: Pgchar): PGtkLinkButton; cdecl; begin Result := Gtk3.gtk_link_button_new(uri); @@ -25876,6 +26190,16 @@ begin Result := Gtk3.gtk_rc_property_parse_requisition(pspec, gstring, property_value); end; +function TGtkRcStyle.new: PGtkRcStyle; cdecl; +begin + Result := Gtk3.gtk_rc_style_new(); +end; + +function TGtkRcStyle.copy: PGtkRcStyle; cdecl; +begin + Result := Gtk3.gtk_rc_style_copy(@self); +end; + procedure TGtkRecentChooser.add_filter(filter: PGtkRecentFilter); cdecl; begin Gtk3.gtk_recent_chooser_add_filter(@self, filter); @@ -26701,7 +27025,7 @@ begin Result := Gtk3.gtk_status_icon_new_from_stock(stock_id); end; -procedure TGtkStatusIcon.position_menu(menu: PGtkMenu; x: Pgint; y: Pgint; push_in: Pgboolean; user_data: TGtkStatusIcon); cdecl; +procedure TGtkStatusIcon.position_menu(menu: PGtkMenu; x: Pgint; y: Pgint; push_in: Pgboolean; user_data: PGtkStatusIcon); cdecl; begin Gtk3.gtk_status_icon_position_menu(menu, x, y, push_in, user_data); end; @@ -27641,6 +27965,11 @@ begin Result := Gtk3.gtk_text_view_get_editable(@self); end; +function TGtkTextView.get_hadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_text_view_get_hadjustment(@self); +end; + function TGtkTextView.get_indent: gint; cdecl; begin Result := Gtk3.gtk_text_view_get_indent(@self); @@ -27711,6 +28040,11 @@ begin Result := Gtk3.gtk_text_view_get_tabs(@self); end; +function TGtkTextView.get_vadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_text_view_get_vadjustment(@self); +end; + procedure TGtkTextView.get_visible_rect(visible_rect: PGdkRectangle); cdecl; begin Gtk3.gtk_text_view_get_visible_rect(@self, visible_rect); @@ -28141,6 +28475,11 @@ begin Result := Gtk3.gtk_tool_palette_get_group_position(@self, group); end; +function TGtkToolPalette.get_hadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_tool_palette_get_hadjustment(@self); +end; + function TGtkToolPalette.get_icon_size: gint; cdecl; begin Result := Gtk3.gtk_tool_palette_get_icon_size(@self); @@ -28151,6 +28490,11 @@ begin Result := Gtk3.gtk_tool_palette_get_style(@self); end; +function TGtkToolPalette.get_vadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_tool_palette_get_vadjustment(@self); +end; + procedure TGtkToolPalette.set_drag_source(targets: TGtkToolPaletteDragTargets); cdecl; begin Gtk3.gtk_tool_palette_set_drag_source(@self, targets); @@ -28681,6 +29025,11 @@ begin Result := Gtk3.gtk_tree_view_get_grid_lines(@self); end; +function TGtkTreeView.get_hadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_tree_view_get_hadjustment(@self); +end; + function TGtkTreeView.get_headers_clickable: gboolean; cdecl; begin Result := Gtk3.gtk_tree_view_get_headers_clickable(@self); @@ -28776,6 +29125,11 @@ begin Result := Gtk3.gtk_tree_view_get_tooltip_context(@self, x, y, keyboard_tip, model, path, iter); end; +function TGtkTreeView.get_vadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_tree_view_get_vadjustment(@self); +end; + function TGtkTreeView.get_visible_range(start_path: PPGtkTreePath; end_path: PPGtkTreePath): gboolean; cdecl; begin Result := Gtk3.gtk_tree_view_get_visible_range(@self, start_path, end_path); @@ -28891,6 +29245,11 @@ begin Gtk3.gtk_tree_view_set_grid_lines(@self, grid_lines); end; +procedure TGtkTreeView.set_hadjustment(adjustment: PGtkAdjustment); cdecl; +begin + Gtk3.gtk_tree_view_set_hadjustment(@self, adjustment); +end; + procedure TGtkTreeView.set_headers_clickable(setting: gboolean); cdecl; begin Gtk3.gtk_tree_view_set_headers_clickable(@self, setting); @@ -28981,6 +29340,11 @@ begin Gtk3.gtk_tree_view_set_tooltip_row(@self, tooltip, path); end; +procedure TGtkTreeView.set_vadjustment(adjustment: PGtkAdjustment); cdecl; +begin + Gtk3.gtk_tree_view_set_vadjustment(@self, adjustment); +end; + procedure TGtkTreeView.unset_rows_drag_dest; cdecl; begin Gtk3.gtk_tree_view_unset_rows_drag_dest(@self); @@ -29411,6 +29775,41 @@ begin Gtk3.gtk_ui_manager_set_add_tearoffs(@self, add_tearoffs); end; +function TGtkVBox.new(homogeneous: gboolean; spacing: gint): PGtkVBox; cdecl; +begin + Result := Gtk3.gtk_vbox_new(homogeneous, spacing); +end; + +function TGtkVButtonBox.new: PGtkVButtonBox; cdecl; +begin + Result := Gtk3.gtk_vbutton_box_new(); +end; + +function TGtkVPaned.new: PGtkVPaned; cdecl; +begin + Result := Gtk3.gtk_vpaned_new(); +end; + +function TGtkVScale.new(adjustment: PGtkAdjustment): PGtkVScale; cdecl; +begin + Result := Gtk3.gtk_vscale_new(adjustment); +end; + +function TGtkVScale.new_with_range(min: gdouble; max: gdouble; step: gdouble): PGtkVScale; cdecl; +begin + Result := Gtk3.gtk_vscale_new_with_range(min, max, step); +end; + +function TGtkVScrollbar.new(adjustment: PGtkAdjustment): PGtkVScrollbar; cdecl; +begin + Result := Gtk3.gtk_vscrollbar_new(adjustment); +end; + +function TGtkVSeparator.new: PGtkVSeparator; cdecl; +begin + Result := Gtk3.gtk_vseparator_new(); +end; + function TGtkViewport.new(hadjustment: PGtkAdjustment; vadjustment: PGtkAdjustment): PGtkViewport; cdecl; begin Result := Gtk3.gtk_viewport_new(hadjustment, vadjustment); @@ -29421,21 +29820,41 @@ begin Result := Gtk3.gtk_viewport_get_bin_window(@self); end; +function TGtkViewport.get_hadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_viewport_get_hadjustment(@self); +end; + function TGtkViewport.get_shadow_type: TGtkShadowType; cdecl; begin Result := Gtk3.gtk_viewport_get_shadow_type(@self); end; +function TGtkViewport.get_vadjustment: PGtkAdjustment; cdecl; +begin + Result := Gtk3.gtk_viewport_get_vadjustment(@self); +end; + function TGtkViewport.get_view_window: PGdkWindow; cdecl; begin Result := Gtk3.gtk_viewport_get_view_window(@self); end; +procedure TGtkViewport.set_hadjustment(adjustment: PGtkAdjustment); cdecl; +begin + Gtk3.gtk_viewport_set_hadjustment(@self, adjustment); +end; + procedure TGtkViewport.set_shadow_type(type_: TGtkShadowType); cdecl; begin Gtk3.gtk_viewport_set_shadow_type(@self, type_); end; +procedure TGtkViewport.set_vadjustment(adjustment: PGtkAdjustment); cdecl; +begin + Gtk3.gtk_viewport_set_vadjustment(@self, adjustment); +end; + function TGtkVolumeButton.new: PGtkVolumeButton; cdecl; begin Result := Gtk3.gtk_volume_button_new();