paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 12:00:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed gtk2 compilation

Browse Source 
git-svn-id: trunk@8073 -
This commit is contained in:
mattias 2005-11-06 10:58:56 +00:00
parent 19b319415b
commit 285c581bca
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkobject.inc
View File

@ -5558,7 +5558,9 @@ var FormIconGdiObject: PGDIObject;
Decor, Func : Longint; Decor, Func : Longint;
AWindow: PGdkWindow; AWindow: PGdkWindow;
ACustomForm: TCustomForm; ACustomForm: TCustomForm;
{$IFDEF Gtk1}
AWindowPrivate: PGdkWindowPrivate; AWindowPrivate: PGdkWindowPrivate;
{$ENDIF}
begin begin
if not (Sender is TWinControl) then if not (Sender is TWinControl) then
RaiseWrongClass; RaiseWrongClass;