diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 4ac42253cf..868bc853ed 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,10 @@ +2001-07-02 23:42 UTC+0100 Viktor Szakats + + * source/rtl/tget.prg + ! Fixed method Reset() of TGet class, so that it sets the :TypeOut + variable to .F. + Fix provided by Istvan Foldi + 2001-06-30 10:30 GMT+1 Antonio Linares * source/vm/dynsym.c + New profiler support functions added diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg index 45bde57fa7..662a4e2641 100644 --- a/harbour/source/rtl/tget.prg +++ b/harbour/source/rtl/tget.prg @@ -363,7 +363,8 @@ METHOD Reset() CLASS Get if ::hasfocus ::buffer := ::PutMask( ::VarGet(), .f. ) - ::pos := 1 + ::pos := 1 + ::TypeOut := .f. endif return Self