a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
29 lines
316 B
Plaintext
29 lines
316 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Testing Browse()
|
|
|
|
#include "inkey.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL cColor := SetColor( "W+/B" )
|
|
|
|
#ifdef _SET_EVENTMASK
|
|
Set( _SET_EVENTMASK, INKEY_ALL )
|
|
MSetCursor( .T. )
|
|
#endif
|
|
|
|
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
|
|
CLS
|
|
|
|
USE test
|
|
Browse()
|
|
|
|
SetColor( cColor )
|
|
CLS
|
|
|
|
RETURN
|