From ab6e94d38ebf6f2bd5fadfdad58702757bd9ba3f Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Mon, 28 Jul 2008 15:15:45 +0000
Subject: [PATCH] 2008-07-28 17:15 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/rtl/gttrm/gttrm.c     ! set
 default color before raw scrolling in console emulation       mode

---
 harbour/ChangeLog                | 5 +++++
 harbour/source/rtl/gttrm/gttrm.c | 3 +++
 2 files changed, 8 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3116ca67a9..9e4fd6fcec 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-07-28 17:15 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/gttrm/gttrm.c
+    ! set default color before raw scrolling in console emulation
+      mode
+
 2008-07-28 16:22 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/rtl/filesys.c
     + use utime() to set file date and time in all dos builds
diff --git a/harbour/source/rtl/gttrm/gttrm.c b/harbour/source/rtl/gttrm/gttrm.c
index 4fb8499c67..19e588874c 100644
--- a/harbour/source/rtl/gttrm/gttrm.c
+++ b/harbour/source/rtl/gttrm/gttrm.c
@@ -3172,6 +3172,9 @@ static void hb_gt_trm_Scroll( PHB_GT pGT, int iTop, int iLeft, int iBottom, int
       {
          /* scroll up the internal screen buffer */
          HB_GTSELF_SCROLLUP( pGT, iRows, bColor, bChar );
+         /* set default color for terminals which use it to erase
+          * scrolled area */
+         pTerm->SetAttributes( pTerm, bColor & pTerm->iAttrMask );
          /* update our internal row position */
          do
             hb_gt_trm_termOut( pTerm, ( BYTE * ) "\n\r", 2 );