From 1bb3ab7eb9d4a7357d6807a3f4dd82d4290322db Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Wed, 21 May 2008 09:10:52 +0000
Subject: [PATCH] 2008-05-21 11:10 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/rtl/tbrowse.prg     * updated
 some comments

  * harbour/source/vm/hvm.c
  * harbour/source/vm/classes.c
    * formtting
---
 harbour/ChangeLog              |  8 ++++++++
 harbour/source/rtl/tbrowse.prg | 17 ++++++++---------
 harbour/source/vm/classes.c    |  2 +-
 harbour/source/vm/hvm.c        |  2 +-
 4 files changed, 18 insertions(+), 11 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 516fdeb5f9..82ff2931da 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,14 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-05-21 11:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/tbrowse.prg
+    * updated some comments
+
+  * harbour/source/vm/hvm.c
+  * harbour/source/vm/classes.c
+    * formtting
+
 2008-05-21 03:00 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
    * contrib/hbvpdf/Makefile
    * contrib/hbvpdf/common.mak
diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg
index c2f20da927..efbd173a10 100644
--- a/harbour/source/rtl/tbrowse.prg
+++ b/harbour/source/rtl/tbrowse.prg
@@ -357,9 +357,7 @@ STATIC FUNCTION _DISP_FHSEP( nRow, nType, cColor, aColData )
           * and the First column should be shown with the
           * same conditions as first visible column.
           * Now I replicated exact CA-Cl*pper behavior but
-          * probably in the future it will be changed.
-          * Now this code should exactly replicate CA-Cl*pper
-          * behavior. [druzus]
+          * probably in the future it will be changed. [druzus]
           */
          IF lFirst
             lFirst := lFirstVisible := .F.
@@ -632,7 +630,7 @@ METHOD readRecord( nRow ) CLASS TBROWSE
          nMoved := _SKIP_RESULT( Eval( ::bSkipBlock, nToMove ) )
          /* TOFIX: add protection against unexpected results
           *        CA-Cl*pper does not fully respect here the returned
-          *        value an current code below replicates what Clipper
+          *        value and current code below replicates what Clipper
           *        seems to do but it means that in network environment
           *        with concurent modifications wrong records can be
           *        shown. [druzus]
@@ -1092,7 +1090,7 @@ METHOD refreshAll() CLASS TBROWSE
    Eval( ::bSkipBlock, 1 - ::nBufferPos )
    ::nBufferPos := 1
    ::lFrames := .T.
-   /* In CA-Cl*pper refreshAll method does not discards
+   /* In CA-Cl*pper refreshAll() method does not discards
     * record buffer here but only set's flag that the record
     * buffer should be reloaded in stabilize method. [druzus]
     */
@@ -1241,7 +1239,7 @@ METHOD goTop() CLASS TBROWSE
    ::setUnstable()
 
    Eval( ::bGoTopBlock )
-   /* In CA-Cl*pper refreshAll method does not discards
+   /* In CA-Cl*pper goTop() method does not discards
     * record buffer here but only set's flag that the record
     * buffer should be reloaded in stabilize method. [druzus]
     */
@@ -1262,7 +1260,7 @@ METHOD goBottom() CLASS TBROWSE
 
    Eval( ::bGoBottomBlock )
    nMoved := _SKIP_RESULT( Eval( ::bSkipBlock, -( ::rowCount - 1 ) ) )
-   /* In CA-Cl*pper refreshAll method does not discards
+   /* In CA-Cl*pper goBottom() method does not discards
     * record buffer here but only set's flag that the record
     * buffer should be reloaded in stabilize method. [druzus]
     */
@@ -1305,8 +1303,9 @@ METHOD doConfigure() CLASS TBROWSE
    LOCAL nFootHeight
    LOCAL lHeadSep, lFootSep
 
-   /* TODO: I do not know yet the exact flags behavior and internal
-    *       conditions so I'll reconfigure all elements. [druzus]
+   /* TODO: I do not know yet the exact flags behavior (::nConfigure)
+    *       and internal conditions so I'll reconfigure all elements.
+    *       [druzus]
     */
 
    ::nConfigure := 0
diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c
index 01fd48bb9b..9f378299ed 100644
--- a/harbour/source/vm/classes.c
+++ b/harbour/source/vm/classes.c
@@ -1026,7 +1026,7 @@ void hb_clsDoInit( void )
          PHB_ITEM pObject;
          hb_vmPushDynSym( pFuncSym );
          hb_vmPushNil();
-         hb_vmDo(0);
+         hb_vmDo( 0 );
          pObject = hb_stackReturnItem();
          if( HB_IS_OBJECT( pObject ) )
             *( s_puiHandles[i] ) = pObject->item.asArray.value->uiClass;
diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index eca00aedcd..ee1a88a26d 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -361,7 +361,7 @@ static void hb_vmDoInitClip( void )
    {
       hb_vmPushSymbol( pDynSym->pSymbol );
       hb_vmPushNil();
-      hb_vmDo(0);
+      hb_vmDo( 0 );
    }
 }