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

Cleanups

Browse Source 
git-svn-id: trunk@1908 -
This commit is contained in:
lazarus 2002-08-17 23:40:00 +00:00
parent 7759160fc7
commit 6353cb60a0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6374,7 +6374,7 @@ begin
PTimerInfo^.Handle := hWND; PTimerInfo^.Handle := hWND;
PTimerInfo^.IDEvent := nIDEvent; PTimerInfo^.IDEvent := nIDEvent;
PTimerInfo^.TimerFunc := lpTimerFunc; PTimerInfo^.TimerFunc := lpTimerFunc;
gtk_timeout_add(uElapse, @gtkTimerCB, PTimerInfo); Result:= gtk_timeout_add(uElapse, @gtkTimerCB, PTimerInfo);
FTimerData.Add (PTimerInfo); FTimerData.Add (PTimerInfo);
end; end;
end; end;
@ -7243,6 +7243,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.152 2002/10/09 20:08:41 lazarus
Cleanups
Revision 1.151 2002/10/09 10:22:55 lazarus Revision 1.151 2002/10/09 10:22:55 lazarus
MG: fixed client origin coordinates MG: fixed client origin coordinates