Browse Source

* Inc (PendingMouseEvents) added to PutMouseEvent

Tomas Hajny 25 years ago
parent
commit
1f29cc1c76
1 changed files with 5 additions and 1 deletions
  1. 5 1
      api/os2/mouse.inc

+ 5 - 1
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
 
 }