From 5c7d10df08c32b46d0040e2772b4aec72b1fcd30 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sat, 16 May 2009 06:04:59 +0000
Subject: [PATCH] 2009-05-16 08:05 UTC+0200 Viktor Szakats (harbour.01 syenar
 hu)   * source/rtl/tget.prg     ! Fixed recent regression causing negative
 number to be       handled wrongly on input.

---
 harbour/ChangeLog           | 5 +++++
 harbour/source/rtl/tget.prg | 5 ++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 31377352c8..3585a6a7d2 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to these authors: Viktor Szakats.
 */
 
+2009-05-16 08:05 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+  * source/rtl/tget.prg
+    ! Fixed recent regression causing negative number to be
+      handled wrongly on input.
+
 2009-05-15 19:05 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * utils/hbmk2/hbmk2.prg
     ! Fix to prev commit.
diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index ff78d39052..08e1c832e6 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -1255,7 +1255,6 @@ METHOD unTransform() CLASS GET
    LOCAL nFor
    LOCAL lMinus
    LOCAL lHasDec
-   LOCAL cChar
 
    IF ::hasFocus
 
@@ -1344,8 +1343,8 @@ METHOD unTransform() CLASS GET
             cBuffer := PadL( StrTran( cBuffer, " ", "" ), Len( cBuffer ) )
 
             IF lMinus
-               FOR EACH cChar IN cBuffer
-                  IF IsDigit( cChar ) .OR. cChar == "."
+               FOR nFor := 1 TO Len( cBuffer )
+                  IF IsDigit( SubStr( cBuffer, nFor, 1 ) ) .OR. SubStr( cBuffer, nFor, 1 ) == "."
                      EXIT
                   ENDIF
                NEXT