From 1f29cc1c76e285c401c18b14e0c05df4bbb8a8cf Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Mon, 10 Apr 2000 15:50:55 +0000
Subject: [PATCH]   * Inc (PendingMouseEvents) added to PutMouseEvent

---
 api/os2/mouse.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/api/os2/mouse.inc b/api/os2/mouse.inc
index 713ed13c76..efaa689747 100644
--- a/api/os2/mouse.inc
+++ b/api/os2/mouse.inc
@@ -396,12 +396,16 @@ begin
   PendingMouseEventOrder [MouseEventOrderTail] := QI.cEvents;
   Inc (MouseEventOrderTail);
   if MouseEventOrderTail = MouseEventBufSize then MouseEventOrderTail := 0;
+  Inc (PendingMouseEvents);
  end;
 end;
 
 {
   $Log$
-  Revision 1.2  2000-01-09 20:43:04  hajny
+  Revision 1.3  2000-04-10 15:50:55  hajny
+    * Inc (PendingMouseEvents) added to PutMouseEvent
+
+  Revision 1.2  2000/01/09 20:43:04  hajny
     * cardinal = longint removed for FPC
 
 }