There is a problem trying to enter a negative number < 1.00 within the get
system
Try to enter -0.5 with the below code.
FUNCTION MAIN()
LOCAL GetList:={}, n:= 123.00
CLS
@ 10,0 SAY 'Get a number' GET n PICT '9999.99'
READ
WAIT
QUIT
RETURN( .T. )
I have had a look at source/rtl/tget.prg but it's needs to be fixed by
someone more familiar with the code.
Regards
Peter
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
