track user input

[Jeff Barnes]

This is all I see in events.txt with the new code:

09/24/13 10:57:51:
09/24/13 10:57:54:
09/24/13 10:57:55:
09/24/13 10:57:57:

[Antonio Linares]

Jeff,

1. Make a safe copy of FiveWin.ch

2. Edit FiveWin.ch here:

Code: Select all  Expand view

#xcommand REDEFINE BUTTON [ <oBtn> ] ;
             [ ID <nId> [ <of:OF, WINDOW, DIALOG> <oDlg> ] ] ;
             [ ACTION <uAction,...> ] ;
             [ <help:HELP, HELPID, HELP ID> <nHelpId> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <WhenFunc> ] ;
             [ VALID <uValid> ] ;
             [ PROMPT <cPrompt> ] ;
             [ <lCancel: CANCEL> ] ;
       => ;
          [ <oBtn> := ] TButton():ReDefine( <nId>, [\{||<uAction>\}], <oDlg>,;
             <nHelpId>, <cMsg>, <.update.>, <{WhenFunc}>, <{uValid}>,;
             <cPrompt>, <.lCancel.> ); <oBtn>:cVarName := <(oBtn)>

This is just what I added:
; <oBtn>:cVarName := <(oBtn)>

3. Recompile your PRG and check the log test again.

[Jeff Barnes]

With your sample program I get the following in the events.txt:
09/24/13 11:21:32:
09/24/13 11:21:33:
09/24/13 11:21:33:
09/24/13 11:21:34:


If I try in my program I get an error in one of my dialogs (but not all of them):
Error description: Error BASE/1004 Class: 'NIL' has no exported method: CVARNAME