From a3d23ec650ce766f5f1077f2874a12174a7c5136 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Mon, 2 Jul 2001 21:45:19 +0000
Subject: [PATCH] 2001-07-02 23:42 UTC+0100 Viktor Szakats
 <viktor.szakats@syenar.hu>

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

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 <viktor.szakats@syenar.hu>
+
+   * source/rtl/tget.prg
+     ! Fixed method Reset() of TGet class, so that it sets the :TypeOut
+       variable to .F.
+       Fix provided by Istvan Foldi <foldii@terrasoft.hu>
+
 2001-06-30 10:30 GMT+1 Antonio Linares <alinares@fivetech.com>
    * 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