TSbutton problem?

[dutch]

Dear All,

Have any one found this TSbutton problem as me? When I use Alt+s for "&Save" the problem is the valid on TGET is skiped. It means any function on TGET Valid do nothing. It is my big problem right now because I use a lot TSbutton in my program.

Example
======
#include 'Fivewin.ch'
#include 'Tsbutton.ch'

Static oDlg

Procedure Main
local oGet, oBtn, cVar
cVar := 0

DEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 TITLE 'Test TSbutton'

@ 1, 1 GET oGet VAR cVar SIZE 30,12 PIXEL Valid (cVar>0)

@ 40,50 SBUTTON oBtn PROMPT '&Test' ;
SIZE 30, 20 ;
PIXEL ;
ACTION MsgInfo(' Test ')

ACTIVATE DIALOG oDlg CENTER

return

[dutch]

Dear All,

If who use this classes and have got the same problem with me. Pls change this line

METHOD GetDlgCode( nLastKey ) CLASS TSBUTTON
// Remark this two lines
* ::SendMsg( FM_CLICK )
// Add this line instead
PostMessage( ::oWnd:oCtlFocus:hWnd, FM_CLICK )
return If( ::lActive, DLGC_WANTALLKEYS, Nil )

Best regards,
Dutch