Memory leak with last xbrowse

[nageswaragunupudi]

Great !! Adding oFld:SetFont( oWnd:oFont ) all seem to runs well (tested on 1000 open/close).

Do you think could it be possible to fix directly the tFolder class (or the FWH class related to the problem) ?

Can you kindly take the additional trouble of testing this change with the older version of FWH and see if font resources remain unreleased?

[Marco Turco]

Hi Rao,
it isn't very clear what you mean.
With FWH oct 2009 all runs well with or without the oFld:Setfont(oWnd:oFont) addition.

[James Bott]

Andre,

The code below seems to work fine. There is no bold font and there is no memory leak. So there must be something in your code causing the problem.

Regards,
James

Code: Select all  Expand view

#include "fivewin.ch"

function main()
   local oWnd,oBtn

   define window oWnd
   @1,1 button oBtn action consultas()
   activate window oWnd

   FERASE("CHECKRES.TXT")
   CHECKRES()
    winExec("notepad .\checkres.txt")
return nil

FUNCTION Consultas()
   LOCAL oFnt, oDlg
   DEFINE FONT oFnt NAME "Ms Shell Dlg" SIZE 0, -10
   DEFINE DIALOG oDlg OF wndMain() FONT oFnt
   @ 1,1 say "test font" of oDlg
   ACTIVATE DIALOG oDlg
   oDlg := NIL
   oFnt:end()
RETURN ( NIL )

[ADutheil]

James,

With your sample I found something interesting: if I add @1,1 button oBtn action NIL to the main window of my app the problem goes away!

Andre