From b8ada85edcd27c2c250bf80e36c6d1824ff4d0c8 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Thu, 15 Jan 2009 20:23:51 +0000
Subject: [PATCH] 2009-01-15 21:27 UTC+0100 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/contrib/hbct/ctwin.c     * added small
 hack for scrolling console output when client area       is set

---
 harbour/ChangeLog            | 5 +++++
 harbour/contrib/hbct/ctwin.c | 7 +++++++
 2 files changed, 12 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 41bd7e79db..5f19cfcb56 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-01-15 21:27 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/hbct/ctwin.c
+    * added small hack for scrolling console output when client area
+      is set
+
 2009-01-15 20:52 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/vm/hvm.c
     * register default RT symbols after setting exception handler
diff --git a/harbour/contrib/hbct/ctwin.c b/harbour/contrib/hbct/ctwin.c
index 358b5cfa17..477477a95a 100644
--- a/harbour/contrib/hbct/ctwin.c
+++ b/harbour/contrib/hbct/ctwin.c
@@ -1231,6 +1231,13 @@ static void hb_ctw_gt_WriteCon( PHB_GT pGT, BYTE * pText, ULONG ulLength )
    iMaxRow = HB_GTSELF_MAXROW( pGT );
    iMaxCol = HB_GTSELF_MAXCOL( pGT );
 
+   /* small hack for scrolling console output when client area is set */
+   {
+      PHB_GTCTW pCTW = HB_GTCTW_GET( pGT );
+      if( pCTW->iCurrWindow > 0 && pCTW->windows[ pCTW->iCurrWindow ]->fClip )
+         iMaxRow = pCTW->windows[ pCTW->iCurrWindow ]->iCliBottom;
+   }
+
    HB_GTSELF_GETPOS( pGT, &iRow, &iCol );
 
    if( iRow > iMaxRow || iCol > iMaxCol )