FWH 11.01: Memory leak in DIALOG with MENU?

[IBTC]

Hello!

This simple code:

Code: Select all

FUNCTION MAIN()

   LOCAL oDlg

   SetResDebug()

   DEFINE DIALOG oDlg FROM 1, 1 TO 22, 75 ;
      TITLE "Test"

   ACTIVATE DIALOG oDlg;
      ON INIT oDlg:SetMenu( SetDlgMenu() )

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

return(0)

//----------------------------------------------------------------------------//

function SetDlgMenu()

   local oMenu

   MENU oMenu

      MENUITEM "Item 1"

   ENDMENU

return oMenu

produce now in FWH 11.01 this:

Code: Select all

02/15/11 18:35:17: BRUSH,1432,TDIALOG:SETCOLOR(2477)->TDIALOG:NEW(196)->MAIN(13)
    
02/15/11 18:35:17: FONT,1508,TDIALOG:GETFONT(2751)->TDIALOG:INITIATE(633)->TDIALOG:HANDLEEVENT(917)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(273)->MAIN(16)

And with

Code: Select all

MENU oMenu 2007

this:

Code: Select all

02/15/11 18:38:08: BRUSH,1432,TDIALOG:SETCOLOR(2477)->TDIALOG:NEW(196)->MAIN(13)
    
02/15/11 18:38:08: FONT,1508,TDIALOG:GETFONT(2751)->TDIALOG:INITIATE(633)->TDIALOG:HANDLEEVENT(917)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(273)->MAIN(16)
    
02/15/11 18:38:08: BMP,1624,TWINDOW:HANDLEEVENT(0)->TDIALOG:HANDLEEVENT(933)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(273)->MAIN(16)
 

[TimStone]

Bumped up for Daniel

[Daniel Garcia-Gil]

Hello

is Very inofencive memory leak...but you can solve by this way

windows.prg

line 2026

Code: Select all

   if ::hWnd == nil .or. ::hWnd == 0

change to

Code: Select all

   if ( ::hWnd == nil .or. ::hWnd == 0 ) .and. ( ::nResult == NIL .or. ::nResult == 0 )

please test to update fivewin sources

[IBTC]

Hi Daniel,

please test to update fivewin sources

Thanks. It seems that this fix works.

Please don't forget these problems:

• Bug in REDEFINE SAY?
• Memory leak with MENU 2007

Thanks!