Hi Eduardo, Ok. Sorry my fault. I have a local copy of tgetlist.prg and created the problem myself
Cheers Peter -----Original Message----- From: Eduardo Fernandes [mailto:[EMAIL PROTECTED] Sent: Friday, October 24, 2008 12:37 AM To: Peter Rees; 'xHarbour-Developers' Subject: Re: [xHarbour-developers] Bug in tget.prg Peter, What's the problem you has detected ? It seems ok for me. >From your sample code the result is -0.50, as expected. The difference from clipper's get is the way of display negative contents, not the get value. In clipper's get the display shows -.50 after type ".5" and shows "-0.50" only after enter. In xharbour the display shows -0.50 before enter. regards, Eduardo --- Em qui, 23/10/08, Peter Rees <[EMAIL PROTECTED]> escreveu: > De: Peter Rees <[EMAIL PROTECTED]> > Assunto: Re: [xHarbour-developers] Bug in tget.prg > Para: "'Peter Rees'" <[EMAIL PROTECTED]>, "'xHarbour-Developers'" > <[email protected]> > Data: Quinta-feira, 23 de Outubro de 2008, 2:03 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 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses ------------------------------------------------------------------------- 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
