From 03f23de9715916eb86b0a0e4ef412cef18525d30 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sun, 14 Oct 2012 18:32:00 +0000
Subject: [PATCH] 2012-10-14 20:28 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/hbnetio/tests/netiot03.prg     * use Asc( "A" ) instead of 65.
 (still lot more to do       for EBCDIC compatibility, though)

  * src/rtl/memoedit.prg
    ! do not use K_TAB for tab character

  * tests/gtchars.prg
    * minor change to make it work better when run as script

  * tests/vidtest.prg
    * minor formatting
---
 harbour/ChangeLog                          | 14 ++++++++++++++
 harbour/contrib/hbnetio/tests/netiot03.prg |  2 +-
 harbour/src/rtl/memoedit.prg               |  2 +-
 harbour/tests/gtchars.prg                  |  4 +++-
 harbour/tests/vidtest.prg                  |  2 +-
 5 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f64637440c..c96d4f596d 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,20 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-10-14 20:28 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/hbnetio/tests/netiot03.prg
+    * use Asc( "A" ) instead of 65. (still lot more to do
+      for EBCDIC compatibility, though)
+
+  * src/rtl/memoedit.prg
+    ! do not use K_TAB for tab character
+
+  * tests/gtchars.prg
+    * minor change to make it work better when run as script
+
+  * tests/vidtest.prg
+    * minor formatting
+
 2012-10-14 15:09 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/gtwvg/class.prg
     * changed GET to Get():New()
diff --git a/harbour/contrib/hbnetio/tests/netiot03.prg b/harbour/contrib/hbnetio/tests/netiot03.prg
index 65ef086f54..83596c1d90 100644
--- a/harbour/contrib/hbnetio/tests/netiot03.prg
+++ b/harbour/contrib/hbnetio/tests/netiot03.prg
@@ -189,7 +189,7 @@ return nil
 static func rpc_charstream( pConnSock, nStream )
    local n := 0
    while .t.
-      if !netio_srvSendData( pConnSock, nStream, chr( 65 + n ) )
+      if !netio_srvSendData( pConnSock, nStream, chr( asc( "A" ) + n ) )
          ? "CLOSED STREAM:", nStream
          exit
       endif
diff --git a/harbour/src/rtl/memoedit.prg b/harbour/src/rtl/memoedit.prg
index 758f7b26e7..a87b6f0f9d 100644
--- a/harbour/src/rtl/memoedit.prg
+++ b/harbour/src/rtl/memoedit.prg
@@ -305,7 +305,7 @@ FUNCTION MemoEdit( cString,;
    IF ! HB_ISSTRING( cString )          ; cString         := ""                 ; ENDIF
 
    // Original MemoEdit() converts Tabs into spaces;
-   oEd := HBMemoEditor():New( StrTran( cString, Chr( K_TAB ), Space( 1 ) ), nTop, nLeft, nBottom, nRight, lEditMode, nLineLength, nTabSize, nTextBuffRow, nTextBuffColumn, nWindowRow, nWindowColumn )
+   oEd := HBMemoEditor():New( StrTran( cString, Chr( 9 ), Space( 1 ) ), nTop, nLeft, nBottom, nRight, lEditMode, nLineLength, nTabSize, nTextBuffRow, nTextBuffColumn, nWindowRow, nWindowColumn )
    oEd:MemoInit( xUserFunction )
    oEd:display()
 
diff --git a/harbour/tests/gtchars.prg b/harbour/tests/gtchars.prg
index f966ce40c2..e26d119a20 100644
--- a/harbour/tests/gtchars.prg
+++ b/harbour/tests/gtchars.prg
@@ -48,7 +48,9 @@ PROCEDURE Main( cTermCP, cHostCP, lBoxChar )
    hb_gtInfo( HB_GTI_FONTWIDTH, 9 )
    hb_gtInfo( HB_GTI_FONTSIZE, 20 )
 
-   hb_SetTermCP( cTermCP, cHostCP, lBoxChar )
+   hb_cdpSelect( cHostCP )
+
+   hb_SetTermCP( cTermCP,, lBoxChar )
 
    ? OS(), Version(), Date(), Time()
    ? hb_gtVersion(), hb_gtVersion( 1 )
diff --git a/harbour/tests/vidtest.prg b/harbour/tests/vidtest.prg
index 5d70d12a00..d090adf883 100644
--- a/harbour/tests/vidtest.prg
+++ b/harbour/tests/vidtest.prg
@@ -201,7 +201,7 @@ STATIC FUNCTION ColourBoxes()
       nDepth += nDir
 
       IF nDepth > 4 .OR. nDepth < 1
-         nDir := - nDir
+         nDir := -nDir
       ENDIF
       i := nFrames % 16 + 1
       DispBox( 5, 10, MaxRow() - 5, MaxCol() - 10, ;