paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 23:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk intf: fixed GTKAPIWidgetClient_GetType: gtype

Browse Source 
git-svn-id: trunk@21794 -
This commit is contained in:
mattias 2009-09-21 08:04:10 +00:00
parent f644767fc3
commit f833ae42ef
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkproc.pp
View File

@ -90,7 +90,7 @@ type
{$endif}
var
GTKAPIWidget_Type: guint = 0;
GTKAPIWidget_Type: GType = 0;
// GTKCallback.inc headers
procedure EventTrace(const TheMessage: string; data: pointer);

10
lcl/interfaces/gtk/gtkwinapiwindow.pp
View File

@ -83,7 +83,7 @@ procedure GTKAPIWidget_GetCaretRespondToFocus(APIWidget: PGTKAPIWidget;
procedure GTKAPIWidget_SetShadowType(APIWidget: PGTKAPIWidget; AShadowType: TGtkShadowType);
function GTK_APIWIDGETCLIENT_TYPE: Guint;
function GTK_APIWIDGETCLIENT_TYPE: GType;
implementation
@ -211,7 +211,7 @@ procedure GTKAPIWidgetClient_Init(Client:PGTypeInstance; theClass: Pointer); cde
{$else}
procedure GTKAPIWidgetClient_Init(Client, theClass: Pointer); cdecl; forward;
{$endif}
function GTKAPIWidgetClient_GetType: Guint; forward;
function GTKAPIWidgetClient_GetType: GType; forward;
function GTKAPIWidgetClient_New: PGTKWidget; forward;
procedure GTKAPIWidgetClient_HideCaret(Client: PGTKAPIWidgetClient;
@ -248,16 +248,16 @@ begin
{$endif}
end;
function GTK_APIWIDGETCLIENT_TYPE: Guint;
function GTK_APIWIDGETCLIENT_TYPE: GType;
begin
GTK_APIWIDGETCLIENT_TYPE := GTKAPIWidgetClient_GetType;
end;
function GTKAPIWidgetClient_GetType: Guint;
function GTKAPIWidgetClient_GetType: GType;
const
TYPE_NAME = 'LCLWinapiClient';
TheType: Guint = 0;
TheType: GType = 0;
Info: TGTKTypeInfo = (
type_name: TYPE_NAME;
object_size: SizeOf(TGTKAPIWidgetClient){+100};