paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 16:40:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk1 intf: fixed compilation

Browse Source 
git-svn-id: trunk@21220 -
This commit is contained in:
mattias 2009-08-14 09:21:16 +00:00
parent 8a5cb23dc0
commit 5a2c69fa37
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -9711,9 +9711,15 @@ begin
Result := PtrUInt(Widget); Result := PtrUInt(Widget);
end; end;
// disconnect old handler // disconnect old handler
if LastWFPResult<>0 then if LastWFPResult<>0 then begin
{$IFDEF gtk1}
gtk_signal_disconnect_by_func(GPointer(LastWFPResult),
TGTKSignalFunc(@DestroyWindowFromPointCB), nil);
{$ELSE}
g_signal_handlers_disconnect_by_func(GPointer(LastWFPResult), g_signal_handlers_disconnect_by_func(GPointer(LastWFPResult),
TGTKSignalFunc(@DestroyWindowFromPointCB), nil); TGTKSignalFunc(@DestroyWindowFromPointCB), nil);
{$ENDIF}
end;
LastWFPMousePos := APoint; LastWFPMousePos := APoint;
LastWFPResult := Result; LastWFPResult := Result;
// connect handler // connect handler