Miguel,
This sample under Clipper 5.3 shows different result than xHarbour.
PROCEDURE Main
LOCAL cOldColor, cNewColor
CLS
SET INTENSITY ON
cOldColor := SetColor()
cNewColor := PadR( "W+/N,W+/B", 40 )
@2,0 SAY "Current color : "+ cOldColor
SetColor( cNewColor )
@3,0 SAY "Enter new color:" GET cNewColor
READ
cNewColor := Trim( cNewColor )
SetColor( cNewColor )
@4,0 SAY "New color is :" GET cNewColor
CLEAR GETS
SetColor( cOldColor )
@5,0 SAY "Back to original"
RETURN
> * source\rtl\setcolor.c
> * source\rtl\tget.prg
> ! fixed some SetColor function and ColorSpec data
> from tget, to be more clipper compatible
> there are some remaining questions than can be see
> at hbtest.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
