Further to my previous email, looking at /source/rtl/tget.prg line 1060
// E.F. 2006/MAY/23 - Avoid minus flag if get value is zero.
IF xVarGet == 0
::minus := .f.
ENDIF
I believe these lines need removing/commenting out, but as they were
expressly inseted by someone I would prefer them to confirm and fix the
code.
Regards
Peter
-----Original Message-----
From: Peter Rees [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 23, 2008 3:41 PM
To: 'xHarbour-Developers'
Subject: [xHarbour-developers] Bug in tget.prg
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
-------------------------------------------------------------------------
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
