-----Messaggio Originale-----
Da: "Szakáts Viktor" <[EMAIL PROTECTED]>
A: <harbour@harbour-project.org>
Data invio: martedì 17 giugno 2008 23.02
Oggetto: [Harbour] 2008-06-17 23:00 UTC+0200 Viktor Szakats
(harbour.01syenar hu)
2008-06-17 23:00 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* tests/rto_get.prg
* source/rtl/tget.prg
! Fixed TGet():assign() to pad character values
to the original length with the original content.
This also clears some existing differences in rto_get.prg.
+ Added regression test specifically for this.
[TOMERGE RC1]
While you have your hands dirty with tget.prg can you look at the following
bug? :-)
FUNCTION MAIN()
LOCAL GetList := {}
LOCAL nVar := 0
@ 10, 10 GET nVar;
PICTURE "@EZ 999,999.99"
READ
RETURN NIL
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
