FIX: DOEVENTS Command Runs Slowly (268771)

MORE INFORMATION

In order to reduce the previously described waiting time, following these steps:

1. Move the mouse while you're waiting. (This is not considered to be an optimum solution.)
2. Programmatically feed the app events for DOEVENTS to process.

The following code shows calling DOEVENTS in a tight loop, programmatically feeding the app events for DOEVENTS to process, and displaying the resulting times to perform the loops:

1. Copy the following code into a program file, and note the speed difference between the call to DOEVENTS and the call to FastDoEvents.NOTE: This code works better if there is actually a window open. If there is no window open, DOEVENTS and FastDoEvents have similar execution times, which fall between the times recorded with a window open.

   lnSeconds = SECONDS()
   FOR i = 1 to 50
      DOEVENTS
   ENDfor
   ? "Total time: " + STR(SECONDS() - lnSeconds, 7, 4)
   
   lnSeconds = SECONDS()
   FOR i = 1 to 50
      FastDoEvents()
   ENDfor
   ? "Total time: " + STR(SECONDS() - lnSeconds, 7, 4)
   
   FUNCTION FastDoEvents
      LOCAL lnRow, lnCol, lcWindow
   
      lcWindow = WONTOP()
   
      lnRow = MROW(lcWindow)
      lnCol = MCOL(lcWindow)
   
      IF ( lnRow > 0 ) AND ( lnCol > 0 )
         IF NOT EMPTY(lcWindow)
            MOUSE AT lnRow, lnCol WINDOW (lcWindow)
         ELSE
            MOUSE AT lnRow, lnCol 
         ENDif
      ELSE
         KEYBOARD " "
         =INKEY()
      ENDif
   
      DOEVENTS
   RETURN