Hi Edmer,
Thanks, I'll add Issue #1 and Issue #2 to rto_get.prg
test suite.
With Issue #1 the problem seems to be in ::unTransform()
(or maybe in ::picture()). Issue #2 is probably in ::PutMask()
These methods are general suspect for bugs, since they weren't
yet inspected thoroughly.
To ease finding some of these locally, here's what these
key methods do:
::picture() is responsible to analyze the picture value
and to set a few internal vars (::?Pic*) accordingly.
::unTransform() is responsible to assemble the GET var
value given the edit buffer, the picture string and
picture related internal vars (::?Pic*).
::PutMask() is responsible to format the edit buffer
the way the get should be displayed on screen, given
the GET var value and picture information.
Possible fix for Issue #1 is to remove the PadR()
expression from line 569 of /source/rtl/tget.prg.
Possible fix for Issue #2 is to add a space to the
second string in line 1765 of /source/rtl/tget.prg.
Please test these, I didn't check if they cause any
regressions.
Brgds,
Viktor
On 2008.05.27., at 6:44, Edmer wrote:
Hi Gurus,
Below is my test prg re GET. If I type in 1231234123456, The 456 at
the end
of each GET is trimmed off.
*--- Start here ---
PROCEDURE MAIN
local getlist := {}
local c1 := space(10)
local c2 := space(10)
local c3 := space(10)
clear screen
@ 1,1 get c1 pict "@R 999 9999 999999"
@ 3,1 get c2 pict "@R 999 9999 999999"
@ 5,1 get c3 pict "@R 999 9999 999999"
read
@ 8,1 say c1
@ 9,1 say c2
@ 10,1 say c3
RETURN
*--- Ends here ---
Regards,
Ed
--
View this message in context:
http://www.nabble.com/Issue--1-about-GET-command-tp17483008p17483008.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
