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

@@ -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.

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