BUG: GDI Memory Not Released in Windows 95 After Memory Error

MORE INFORMATION

Steps to Reproduce Problem

1. Run the following program. You will get the error "Not enough memory to complete this operation." All GDI has been used and will not be released.

      *Attempt to create and release 2500 windows
   
      PRIVATE ALL EXCEPT g_*
   
      cOldPrint = SET('PRINT',1)
      SET PRINT OFF
      SET PRINT TO
   
      nMaxRows = 25
      nMaxCols = 100
   
      nBeforeHandles = SYS(1011)
   
      WAIT WINDOW 'Patience ... may look dead, check system clock' NOWAIT
   
      FOR i = -1 TO nMaxRows
         FOR j = -1 to nMaxCols
            cWindowName = 'Win'+ALLTRIM(STR(ABS(i)))+'_'+ALLTRIM(STR(ABS(j)))
            DEFINE WINDOW (cWindowName);
               FROM i,j TO i+10,j+10 ;
               TITLE (cWindowName)
            ACTIVATE WINDOW (cWindowName)
         ENDFOR
      ENDFOR
      FOR i = -1 TO nMaxRows
         FOR j = -1 to nMaxCols
            RELEASE WINDOW
         ENDFOR
      ENDFOR
   
      SET PRINT TO &cOldPrint
      SET PRINT ON
   
      nAfterHandles = SYS(1011)
      nDiff = VAL(nAfterHandles) - VAL(nBeforeHandles)
      ?IIF(nDiff > 50,'FAIL','PASS')
   
      * Clean up and exit
   
      WAIT CLEAR
   
      RELEASE ALL EXCEPT g_*
      RETURN
   						

2. Run the program again and Visual FoxPro will quit. Then GDI is released.