From 0b867d1b21e5e97ffaca2ac72f8b684702da731a Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 17 Aug 2002 23:41:00 +0000
Subject: [PATCH] MG: fixed timers

git-svn-id: trunk@2136 -
---
 lcl/interfaces/gtk/gtkcallback.inc | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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