From e1a84b55ec046b7dc7294658f30df8e1d31ece42 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sun, 19 Aug 2007 15:01:17 +0000
Subject: [PATCH] 2007-08-19 17:00 UTC+0100 Viktor Szakats (harbour.01
 syenar.hu)    * source/rtl/tgetlist.prg      ! Fixed crash when bad date is
 detected. (:TypeOut was        used in an assignment)

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

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 939c24bd80..54e680e149 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-08-19 17:00 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+   * source/rtl/tgetlist.prg
+     ! Fixed crash when bad date is detected. (:TypeOut was 
+       used in an assignment)
+
 2007-08-19 12:58 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
    * source/rtl/tget.prg
      ! Fixed bug where negative number in get buffer beginning 
diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg
index ff6f4419d6..9365cee2c8 100644
--- a/harbour/source/rtl/tgetlist.prg
+++ b/harbour/source/rtl/tgetlist.prg
@@ -413,8 +413,7 @@ METHOD GetPostValidate() CLASS HBGetList
    endif
 
    if oGet:BadDate
-//      oGet:SetFocus()
-      oGet:TypeOut := .f.
+      oGet:home()
       ::DateMsg()
       ::ShowScoreboard()
       return .f.
@@ -995,8 +994,7 @@ METHOD GUIPostValidate( oGUI ) CLASS HBGetList
    endif
 
    if oGet:BadDate
-//      oGet:SetFocus()
-      oGet:TypeOut := .f.
+      oGet:home()
       ::DateMsg()
       ::ShowScoreboard()
       return .f.