paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 11:30:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patches from mischi (misc small fixes+defining of gtk_2_2

Browse Source
This commit is contained in:
marco 2005-03-01 07:29:43 +00:00
parent 9d733d611f
commit 7cfddf2446
5 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/extra/gtk2/examples/gtk_demo/stock_browser.inc
View File

@ -68,7 +68,7 @@ begin
stock_item_info_get_type := StockItemInfoType; stock_item_info_get_type := StockItemInfoType;
end; end;
function STOCK_ITEM_INFO_TYPE: GType; inline; function STOCK_ITEM_INFO_TYPE: GType;
begin begin
STOCK_ITEM_INFO_TYPE := stock_item_info_get_type; STOCK_ITEM_INFO_TYPE := stock_item_info_get_type;
end; end;

5
packages/extra/gtk2/glib/glib2.pas
View File

@ -61,6 +61,11 @@ const
{$endif} {$endif}
{$endif} {$endif}
{$ifdef FREEBSD}
{$linklib c}
{$linklib pthread}
{$endif}
{$IFNDEF KYLIX} {$IFNDEF KYLIX}
{$PACKRECORDS C} {$PACKRECORDS C}
{$ELSE} {$ELSE}

5
packages/extra/gtk2/gtk+/gtk/gtk2.pas
View File

@ -18,6 +18,8 @@
} }
unit gtk2; // keep unit name lowercase for kylix unit gtk2; // keep unit name lowercase for kylix
{$define GTK2_2}
{$H+} {$H+}
{$IFDEF FPC} {$IFDEF FPC}
{$mode objfpc} {$mode objfpc}
@ -28,15 +30,18 @@ unit gtk2; // keep unit name lowercase for kylix
{$IFDEF GTK2_2} {$IFDEF GTK2_2}
{$DEFINE HasGTK2_0} {$DEFINE HasGTK2_0}
{$DEFINE HasGTK2_2}
{$ENDIF} {$ENDIF}
{$IFDEF GTK2_4} {$IFDEF GTK2_4}
{$DEFINE HasGTK2_0} {$DEFINE HasGTK2_0}
{$DEFINE HasGTK2_2}
{$DEFINE HasGTK2_4} {$DEFINE HasGTK2_4}
{$ENDIF} {$ENDIF}
{$IFDEF GTK2_6} {$IFDEF GTK2_6}
{$DEFINE HasGTK2_0} {$DEFINE HasGTK2_0}
{$DEFINE HasGTK2_2}
{$DEFINE HasGTK2_4} {$DEFINE HasGTK2_4}
{$DEFINE HasGTK2_6} {$DEFINE HasGTK2_6}
{$ENDIF} {$ENDIF}

3
packages/extra/gtk2/gtk+/gtk/gtkaccelgroup.inc
View File

@ -50,7 +50,8 @@
accel_path_quark : TGQuark; accel_path_quark : TGQuark;
end; end;
Tgtk_accel_group_find_func = function (key:PGtkAccelKey; closure:PGClosure; data:gpointer):gboolean; Tgtk_accel_group_find_func = function (key:PGtkAccelKey; closure:PGClosure; data:gpointer):gboolean; cdecl;
TGtkAccelGroupFindFunc = Tgtk_accel_group_find_func;
{$ENDIF read_interface_types} {$ENDIF read_interface_types}
//------------------------------------------------------------------------------ //------------------------------------------------------------------------------

8
packages/extra/gtk2/gtk+/gtk/gtkwindow.inc
View File

@ -233,6 +233,14 @@ procedure gtk_window_stick(window:PGtkWindow); cdecl; external gtklib;
procedure gtk_window_unstick(window:PGtkWindow); cdecl; external gtklib; procedure gtk_window_unstick(window:PGtkWindow); cdecl; external gtklib;
procedure gtk_window_maximize(window:PGtkWindow); cdecl; external gtklib; procedure gtk_window_maximize(window:PGtkWindow); cdecl; external gtklib;
procedure gtk_window_unmaximize(window:PGtkWindow); cdecl; external gtklib; procedure gtk_window_unmaximize(window:PGtkWindow); cdecl; external gtklib;
{$ifdef HasGTK2_2}
procedure gtk_window_fullscreen(window: PGtkWindow); cdecl; external gtklib;
procedure gtk_window_unfullscreen(window: PGtkWindow); cdecl; external gtklib;
procedure gtk_window_set_keep_above(window: PGtkWindow; setting: gboolean); cdecl; external gtklib;
procedure gtk_window_set_keep_below(window: PGtkWindow; setting: gboolean); cdecl; external gtklib;
{$endif HasGTK2_2}
procedure gtk_window_begin_resize_drag(window:PGtkWindow; edge:TGdkWindowEdge; button:gint; root_x:gint; root_y:gint; procedure gtk_window_begin_resize_drag(window:PGtkWindow; edge:TGdkWindowEdge; button:gint; root_x:gint; root_y:gint;
timestamp:guint32); cdecl; external gtklib; timestamp:guint32); cdecl; external gtklib;
procedure gtk_window_begin_move_drag(window:PGtkWindow; button:gint; root_x:gint; root_y:gint; timestamp:guint32); cdecl; external gtklib; procedure gtk_window_begin_move_drag(window:PGtkWindow; button:gint; root_x:gint; root_y:gint; timestamp:guint32); cdecl; external gtklib;