Fivewin and debug

[damianodec]

Hi,
is there a simple mode to debub a fivewin app?
I now use msginfo() to view field value and logic sequence but is there an interactive way?

Thanks

[cnavarro]

Try with this

viewtopic.php?f=16&t=35267&p=209856&hilit=fwinlog#p209856

viewtopic.php?f=6&t=39860&p=237823&hilit=fwinlog#p237823

Code: Select all  Expand view

#include "Fivewin.ch"

Static oWnd

function Main()

   Local nVal  := 300
   //StartFWLog( nTop, nLeft, nHeight, nWidth, lDown, lLines, lCouple, cTitle )
   StartFWLog( , , 622, 590, .F., .T., , )    //.F.
   // Use FWINLOG command or MsgLog function
   // When MsgLog is invoked, show window "debug"
   DEFINE WINDOW oWnd FROM 0, 0 TO 750, 1365 PIXEL ;
      TITLE "FWH Test FWINLOG - " + FWVERSION MENU BuildMenu()
      FWINLOG nVal
   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

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

Static Function BuildMenu()

   local oMnu
   MENU oMnu
      MENUITEM "Options"
      MENU
         MENUITEM "Option - 1" ACTION MsgLog( { CRLF, oWnd:nHeight, oWnd:nWidth } )
         SEPARATOR
         MENUITEM "Exit" ACTION oWnd:End()
      ENDMENU
      MENUITEM "Others"
      MENU
         MENUITEM "Others - 1" ACTION MsgLog( { CRLF, Len( oMnu:aMenuItems ) } )
         SEPARATOR
         MENUITEM "Others - 2"
      ENDMENU
   ENDMENU
   
Return oMnu

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