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

@@ -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()

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

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()
 

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 )

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, ;