paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 23:17:21 +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;
AWindow: PGdkWindow;
ACustomForm: TCustomForm;
{$IFDEF Gtk1}
AWindowPrivate: PGdkWindowPrivate;
{$ENDIF}
begin
if not (Sender is TWinControl) then
RaiseWrongClass;