paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:20:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added an IFDEF for VER1_1

Browse Source 
Shane

git-svn-id: trunk@368 -
This commit is contained in:
lazarus 2001-10-25 13:21:06 +00:00
parent c0793a8529
commit 0aaf66dea5
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -221,7 +221,9 @@ var
ObjectClass: PGTKObjectClass; ObjectClass: PGTKObjectClass;
WidgetClass: PGTKWidgetClass; WidgetClass: PGTKWidgetClass;
SignalID: Guint; SignalID: Guint;
{$IFDEF VER1_1}
AdjustParams: TAdjustParams; AdjustParams: TAdjustParams;
{$ENDIF}
begin begin
ObjectClass := PGTKObjectClass(theClass); ObjectClass := PGTKObjectClass(theClass);
WidgetClass := PGTKWidgetClass(theClass); WidgetClass := PGTKWidgetClass(theClass);
@ -633,6 +635,10 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.15 2001/10/25 13:21:06 lazarus
Added an IFDEF for VER1_1
Shane
Revision 1.14 2001/10/24 09:28:03 lazarus Revision 1.14 2001/10/24 09:28:03 lazarus
MG: workaround for fpc1.1 in GTKAPIWidgetClient_ClassInit MG: workaround for fpc1.1 in GTKAPIWidgetClient_ClassInit
@ -733,3 +739,4 @@ end.
} }