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'" > <xharbour-developers@lists.sourceforge.net> > 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 > xHarbour-developers@lists.sourceforge.net > 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 > xHarbour-developers@lists.sourceforge.net > 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 xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
