Que reemplaza al comando DEFAULT de Clipper

[fespinoza]

En mi migración de FW a FWH encuentro que el comando DEFAULT no es soportado por el compilador xHarbour (siempre me saca error donde esta ese comando); es porque no lo soporta y si es asi con que lo puedo reemplazar.

Saludos

Fernando Espinoza

[Biel EA6DD]

Si usas el default de clipper, basta incluyas common.ch

Code: Select all  Expand view  RUN

# INCLUDE "common.ch"


o definas el comando.

Code: Select all  Expand view  RUN

#xcommand DEFAULT <v1> TO <x1> [, <vn> TO <xn> ] => ;
                                IF <v1> == NIL ; <v1> := <x1> ; END ;
                                [; IF <vn> == NIL ; <vn> := <xn> ; END ]


Fivewin implementa tambien un comando DEFAULT y no es exactamente igual, para usar el de fivewin, debes incluir fivewin.ch

Code: Select all  Expand view  RUN

# include "common.ch"
DEFAULT cVar TO "Algo"


Code: Select all  Expand view  RUN

# include "FiveWin.ch"
DEFAULT cVar:="Algo"