paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +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;
end;
function STOCK_ITEM_INFO_TYPE: GType; inline;
function STOCK_ITEM_INFO_TYPE: GType;
begin
STOCK_ITEM_INFO_TYPE := stock_item_info_get_type;
end;

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

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

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

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

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

@ -50,7 +50,8 @@
accel_path_quark : TGQuark;
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}
//------------------------------------------------------------------------------

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_maximize(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;
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;