a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
16 lines
277 B
Plaintext
16 lines
277 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Testing Harbour device management.
|
|
|
|
#include "box.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
DispBox( 1, 1, 5, 5, HB_B_SINGLE_UNI + "X", "color not supported" )
|
|
DispBox( 7, 7, 13, 72, HB_B_DOUBLE_UNI + "." )
|
|
DispBox( 14, 14, 22, 22, HB_B_SINGLE_DOUBLE_UNI )
|
|
|
|
RETURN
|