Viktor Szakáts escribió:
Hi,
Please check the end of source/rtl/tget.prg, there you
can find which parameters need to be passed to hb_get():new()
to create a new instance. The parameters are the same as
for GetNew(), you can find a GetNew() example in tests/rto_get.prg.
Then you can add the created get object to GetList and
use READ.
Thanks Viktor
The example was as follows:
PROCEDURE Main
LOCAL cVar1 := cVar2 := SPAC(10), oPsw //, GetList
SETMODE(25,80)
CLS
@ 10, 10 SAY "Entrada con GET Normal:" GET cVar1
@ 11, 10 SAY "Entrada con PSW ......:"
* Creo una nueva instancia
oPsw := HB_GET():new(11, 34, { | x | iif( x == NIL, cVar2, cVar2 := x )
}, "cVar2",, "W+/N,BG/N" )
oPsw:hideInput := .T.
AADD(GetList, oPsw)
READ
return
Just an observation:
Why not work with getList LOCAL?
TIA
Best Regards
GVS
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
