I found a bug in spinner clause of Tget class
in first time work correctly but if you test up, after down to -1 and up the up see only 0, 1, 0, 1 ...
Test this code:
- Code: Select all Expand view
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
LOCAL oDlg, oGet, nVal := 0
DEFINE DIALOG oDlg
@ 2,1 GET oGet VAR nVal OF oDlg SIZE 50, 12 SPINNER
ACTIVATE DIALOG oDlg
RETURN Nil
//------------------------------------------------------------------------------