> The workaround:
>
> #command TEST RIGHT [<pad>] ;
> [COLOR <nClrFore> [,<nClrBack>]] ;
> => Test( .T., <pad>, <nClrFore>, <nClrBack> )
>
> #command TEST [COLOR <nClrFore> [,<nClrBack>]] ;
> => Test( .F. NIL, <nClrFore>, <nClrBack> )
I tried and got
Error E0030 Syntax error: "syntax error at 'COLOR'"
at line 11.
This is my test:
#command TEST RIGHT [<pad>] ;
[COLOR <nClrFore> [,<nClrBack>]] ;
=> Test( .T., <pad>, <nClrFore>, <nClrBack> )
#command TEST [COLOR <nClrFore> [,<nClrBack>]] ;
=> Test( .F. NIL, <nClrFore>, <nClrBack> )
FUNCTION MAIN()
TEST COLOR 1, 2 RIGHT 10
TEST RIGHT 10 COLOR 1, 2
RETURN NIL
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
------------------------------------------------------------------------------
The Palm PDK Hot Apps Program offers developers who use the
Plug-In Development Kit to bring their C/C++ apps to Palm for a share
of $1 Million in cash or HP Products. Visit us here for more details:
http://p.sf.net/sfu/dev2dev-palm
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
