Hi, all !
Local cChar := ' ', n := 1
Local GetList := {}
cls
@ 1,0 say 'Char' get cChar
read
@ 2,0 say 'number' get n picture "9"
read
wait
If characrers "." .or. "," is inserted into variable cChar, the second
ReadModal isn't activated.
See soruce/rtl/tget.prg, line 715:
IF ::Type=="N" .AND. ::hasfocus .AND. (::DecPos=NIL .OR. ::DecPos >
::nMaxLen ) .AND. ( LastKey()=Asc(',') .OR. LastKey()=Asc('.') )
With best regards, Pavel Tsarenko
------------------------------------------------------------------------------
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
