Hi GVS,
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
I think GetList should be initialized with empty array (GetList:={})
Regards,
Mario
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
