fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-05-21 11:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/tbrowse.prg
    * updated some comments

  * harbour/source/vm/hvm.c
  * harbour/source/vm/classes.c
    * formtting
This commit is contained in:
Przemyslaw Czerpak
2008-05-21 09:10:52 +00:00
parent 6571956689
commit 1bb3ab7eb9
4 changed files with 18 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

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

17
harbour/source/rtl/tbrowse.prg
View File

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

2
harbour/source/vm/classes.c
View File

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

2
harbour/source/vm/hvm.c
View File

@@ -361,7 +361,7 @@ static void hb_vmDoInitClip( void )
{
hb_vmPushSymbol( pDynSym->pSymbol );
hb_vmPushNil();
hb_vmDo(0);
hb_vmDo( 0 );
}
}