f4d02db8f1
* tests/ac_test.prg
* tests/ac_test2.prg
* tests/begin.prg
* tests/box.prg
* tests/byref.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/db_brows.prg
* tests/ddate.prg
* tests/ifinline.prg
* tests/memvar.prg
* tests/menutest.prg
* tests/readhrb.prg
* tests/speed.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/switch.prg
* tests/testbrw.prg
* tests/testcdx.prg
* tests/testdecl.prg
* tests/testhrb.prg
* tests/testpre.prg
* tests/testwarn.prg
* tests/tstalias.prg
* tests/tstmacro.prg
* tests/varparam.prg
* more cleanups. (assignment operator and string quote usage)
16 lines
256 B
Plaintext
16 lines
256 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Testing Harbour device management.
|
|
|
|
#include "box.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
DispBox( 1, 1, 5, 5, B_SINGLE + "X", "color not supported" )
|
|
DispBox( 7, 7, 13, 72, B_DOUBLE + "." )
|
|
DispBox( 14, 14, 22, 22, B_SINGLE_DOUBLE )
|
|
|
|
RETURN
|