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

MG: fixed timers

Browse Source 
git-svn-id: trunk@2136 -
This commit is contained in:
lazarus 2002-08-17 23:41:00 +00:00
parent 798bb24b11
commit 0b867d1b21
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -1990,9 +1990,15 @@ begin
TimerInfo:=PGtkITimerinfo(Data); TimerInfo:=PGtkITimerinfo(Data);
if (FTimerData=nil) or (FTimerData.IndexOf(Data)<0) then begin if (FTimerData=nil) or (FTimerData.IndexOf(Data)<0) then begin
{$IFDEF VerboseTimer}
writeln('gtkTimerCB Timer was killed: TimerInfo=',HexStr(Cardinal(TimerInfo),8));
{$ENDIF}
// timer was killed // timer was killed
Result:=0; // stop timer Result:=0; // stop timer
end else begin end else begin
{$IFDEF VerboseTimer}
writeln('gtkTimerCB Timer Event: TimerInfo=',HexStr(Cardinal(TimerInfo),8));
{$ENDIF}
if TimerInfo^.TimerFunc <> nil if TimerInfo^.TimerFunc <> nil
then begin then begin
// Call users timer function // Call users timer function
@ -2025,6 +2031,9 @@ begin
end; end;
if Result=0 then begin if Result=0 then begin
{$IFDEF VerboseTimer}
writeln('gtkTimerCB Timer was STOPPED: TimerInfo=',HexStr(Cardinal(TimerInfo),8));
{$ENDIF}
// timer will be stopped // timer will be stopped
// -> free timer data, if not already done // -> free timer data, if not already done
if (FTimerData.IndexOf(Data)>=0) if (FTimerData.IndexOf(Data)>=0)
@ -2496,6 +2505,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.148 2002/10/15 16:01:36 lazarus
MG: fixed timers
Revision 1.147 2002/10/15 07:01:29 lazarus Revision 1.147 2002/10/15 07:01:29 lazarus
MG: fixed timer checking MG: fixed timer checking