+ minus sing support fixed.

2001-02-13 10:28:38 +00:00
parent ef11c1ee89
commit 238c57c500
1 changed files with 2 additions and 2 deletions
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -870,7 +870,7 @@ METHOD Input( cChar ) CLASS Get
            cChar := ""
         endif
      case cPic == "9"
-         if ! IsDigit( cChar )
+         if ! IsDigit( cChar ) .and. cChar != "-"
            cChar := ""
         endif
      case cPic == "#"
@@ -1110,4 +1110,4 @@ return Self
 /* Not sure it should be keeped here ... (JFL)           */
 /* But does'nt annoy me                                  */
 CLASS TGet Inherit GET
-ENDCLASS
+ENDCLASS