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

2012-10-15 00:37 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
+ contrib/hbnf/tests/fttext.prg
    + added test code for FTTEXT API

  * contrib/hbnf/fttext.c
    + added MT compatibility by moving static vars to a structure 
      and that structure to TSD

  * contrib/hbnf/menutonf.prg
    * use HB_KEYPUT() instead of FT_PUTKEY()

  * extras/gtwvw/tests/cbtest1.prg
  * extras/gtwvw/tests/cbtest6.prg
  * extras/gtwvw/tests/inpfocus.prg
  * extras/gtwvw/tests/wvwmouse.prg
    * KEYBOARD/__KEYBOARD() -> hb_keyPut()

  * extras/gtwvw/tests/inpfocus.prg
    ! Do not use K_* constants for characters.

  * contrib/gtwvg/tests/demowvg.prg
  * extras/gtwvw/tests/wvwtest9.prg
    * minor code cleanup

  * contrib/gtwvg/class.prg
  * contrib/gtwvg/menubar.prg
  * contrib/gtwvg/paint.prg
  * contrib/hbct/fcopy.prg
  * contrib/hbcups/tests/test.prg
  * contrib/hbcurl/tests/ftp_uldl.prg
  * contrib/hbmisc/hb_f.c
  * contrib/hbmisc/tests/testhbf.prg
  * contrib/hbmysql/utils/dbf2mysq.prg
  * contrib/hbnf/amedian.prg
  * contrib/hbnf/tests/dfile.prg
  * contrib/hbpgsql/tests/dbf2pg.prg
  * contrib/hbpgsql/tests/test.prg
  * contrib/hbtip/tests/upld_ftp.prg
  * contrib/hbwin/tests/testcopy.prg
  * contrib/hbwin/tests/testmapi.prg
  * contrib/xhb/tests/testcp.prg
  * contrib/xhb/xhbtedit.prg
  * tests/ac_test.prg
  * tests/db_brows.prg
  * tests/stripem.prg
  * tests/testhtml.prg
    * deleted references to self-filename, or replaced them
      with __FILE__, so they will continue to work (and there
      won't be outdated comments) when files are renamed.

  * tests/sbartest.prg
    * minor
This commit is contained in:
Viktor Szakats
2012-10-14 22:44:32 +00:00
parent 796887cd1e
commit 23f154863e
33 changed files with 427 additions and 399 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
harbour/ChangeLog
View File

@@ -16,6 +16,59 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-10-15 00:37 UTC+0200 Viktor Szakats (harbour syenar.net)
+ contrib/hbnf/tests/fttext.prg
+ added test code for FTTEXT API
* contrib/hbnf/fttext.c
+ added MT compatibility by moving static vars to a structure
and that structure to TSD
* contrib/hbnf/menutonf.prg
* use HB_KEYPUT() instead of FT_PUTKEY()
* extras/gtwvw/tests/cbtest1.prg
* extras/gtwvw/tests/cbtest6.prg
* extras/gtwvw/tests/inpfocus.prg
* extras/gtwvw/tests/wvwmouse.prg
* KEYBOARD/__KEYBOARD() -> hb_keyPut()
* extras/gtwvw/tests/inpfocus.prg
! Do not use K_* constants for characters.
* contrib/gtwvg/tests/demowvg.prg
* extras/gtwvw/tests/wvwtest9.prg
* minor code cleanup
* contrib/gtwvg/class.prg
* contrib/gtwvg/menubar.prg
* contrib/gtwvg/paint.prg
* contrib/hbct/fcopy.prg
* contrib/hbcups/tests/test.prg
* contrib/hbcurl/tests/ftp_uldl.prg
* contrib/hbmisc/hb_f.c
* contrib/hbmisc/tests/testhbf.prg
* contrib/hbmysql/utils/dbf2mysq.prg
* contrib/hbnf/amedian.prg
* contrib/hbnf/tests/dfile.prg
* contrib/hbpgsql/tests/dbf2pg.prg
* contrib/hbpgsql/tests/test.prg
* contrib/hbtip/tests/upld_ftp.prg
* contrib/hbwin/tests/testcopy.prg
* contrib/hbwin/tests/testmapi.prg
* contrib/xhb/tests/testcp.prg
* contrib/xhb/xhbtedit.prg
* tests/ac_test.prg
* tests/db_brows.prg
* tests/stripem.prg
* tests/testhtml.prg
* deleted references to self-filename, or replaced them
with __FILE__, so they will continue to work (and there
won't be outdated comments) when files are renamed.
* tests/sbartest.prg
* minor
2012-10-14 22:43 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbnf/dispc.c
! static vars moved to a structure and that structure

10
harbour/contrib/gtwvg/class.prg
View File

@@ -3365,7 +3365,7 @@ METHOD wvtMenu:Create( cCaption )
IF Empty( ::hMenu := Wvt_CreateMenu() )
#if 0
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:Init()", "Create Menu Error", { cCaption, cCaption },"wvt.prg" ) )
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:Init()", "Create Menu Error", { cCaption, cCaption }, __FILE__ ) )
#endif
ENDIF
::Caption := iif( cCaption == NIL, "", cCaption )
@@ -3381,7 +3381,7 @@ METHOD wvtMenu:Destroy()
IF !Wvt_DestroyMenu( ::hMenu )
#if 0
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:Destroy()", "Destroy menu FAILED", {},"wvt.prg" ) )
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:Destroy()", "Destroy menu FAILED", {},__FILE__ ) )
#endif
ENDIF
::hMenu := 0
@@ -3405,13 +3405,13 @@ METHOD wvtMenu:AddItem( cCaption, bAction )
aItem := { MF_SEPARATOR, 0, 0, NIL }
ELSE
#if 0
Throw( ErrorNew( "wvtMenu", 3101, "wvtMenu:AddItem()", "Argument Error", { cCaption, bAction },"wvt.prg" ) )
Throw( ErrorNew( "wvtMenu", 3101, "wvtMenu:AddItem()", "Argument Error", { cCaption, bAction },__FILE__ ) )
#endif
ENDIF
IF !Wvt_AppendMenu( ::hMenu, aItem[WVT_MENU_TYPE], aItem[WVT_MENU_IDENTIFIER], aItem[WVT_MENU_CAPTION] )
#if 0
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:AddItem()", "Add menu item", { cCaption, bAction },"wvt.prg" ) )
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:AddItem()", "Add menu item", { cCaption, bAction },__FILE__ ) )
#endif
ENDIF
@@ -3450,7 +3450,7 @@ METHOD wvtMenu:DelItem( nItemNum )
hb_ADel( ::aItems, nItemNum, .T. )
ELSE
#if 0
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:DelItem()", "Delete menu item FAILED", { nItemNum },"wvt.prg" ) )
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:DelItem()", "Delete menu item FAILED", { nItemNum },__FILE__ ) )
#endif
ENDIF
ENDIF

4
harbour/contrib/gtwvg/menubar.prg
View File

@@ -217,7 +217,7 @@ METHOD WvgMenuBar:destroy()
IF !WVG_DestroyMenu( ::hMenu )
#if 0
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:Destroy()", "Destroy menu FAILED", {},"wvt.prg" ) )
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:Destroy()", "Destroy menu FAILED", {},__FILE__ ) )
#endif
ENDIF
@@ -255,7 +255,7 @@ METHOD WvgMenuBar:delItem( nItemNum )
hb_ADel( ::aMenuItems, nItemNum, .T. )
ELSE
#if 0
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:DelItem()", "Delete menu item FAILED", { nItemNum },"wvt.prg" ) )
Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:DelItem()", "Delete menu item FAILED", { nItemNum },__FILE__ ) )
#endif
ENDIF
ENDIF

2
harbour/contrib/gtwvg/paint.prg
View File

@@ -52,8 +52,6 @@
//
//
/*
* WvtPaint.prg
*
* Routines to manage Wvt*Classes Gui Painting
*/
//

2
harbour/contrib/gtwvg/tests/demowvg.prg
View File

@@ -448,7 +448,7 @@ FUNCTION WvtLines()
@ 15, 8 SAY "D"
@ 16, 9 SAY "E"
DO WHILE ( Inkey( 0 ) != K_ESC )
DO WHILE Inkey( 0 ) != K_ESC
ENDDO
// Restore Environments

1
harbour/contrib/hbct/fcopy.prg
View File

@@ -7,7 +7,6 @@
* CT3 file functions:
* FILECOPY(), FILECOPEN(), FILECCLOSE(), FILEAPPEND()
*
* Program..: fcopy.prg
* Author...: Frederic J. Bell
* Dated....: Jun,17 94
* Revised..: Sep,20 94

8
harbour/contrib/hbcups/tests/test.prg
View File

@@ -26,12 +26,12 @@ PROCEDURE Main()
CLS
aPrinter := cupsGetDests()
i := AChoice( 2, 5, 30, Len( aPrinter ) + 2, aPrinter )
? "Printing... Job ID:", cupsPrintFile( aPrinter[ i ], "test.prg", "Harbour CUPS Printing" )
? "Printing... Job ID:", cupsPrintFile( aPrinter[ i ], __FILE__, "Harbour CUPS Printing" )
/* for duplex printing, tested on OKI B410 */
/* ? "Printing... Job ID:", cupsPrintFile( aPrinter[ i ], "../../../tests/speedstr.prg", "Harbour CUPS Printing", { "sides=two-sided-short-edge" } ) */
/* ? "Printing... Job ID:", cupsPrintFile( aPrinter[ i ], ".." + hb_ps() + "core.c", "Harbour CUPS Printing", { "sides=two-sided-short-edge" } ) */
ELSE
? "Printing... Job ID:", cupsPrintFile( cupsGetDefault(), "test.prg", "Harbour CUPS Printing", { "sides=one-sided" } )
/* ? "Printing... Job ID:", cupsPrintFile( cupsGetDefault(), "test.prg", "Harbour CUPS Printing", { "sides" => "one-sided" } ) */
? "Printing... Job ID:", cupsPrintFile( cupsGetDefault(), __FILE__, "Harbour CUPS Printing", { "sides=one-sided" } )
/* ? "Printing... Job ID:", cupsPrintFile( cupsGetDefault(), __FILE__, "Harbour CUPS Printing", { "sides" => "one-sided" } ) */
ENDIF
RETURN

2
harbour/contrib/hbcurl/tests/ftp_uldl.prg
View File

@@ -53,7 +53,7 @@ PROCEDURE Main( cDL, cUL )
? "Press key..."
Inkey( 0 )
hb_default( @cUL, "ftp_uldl.prg" )
hb_default( @cUL, __FILE__ )
? curl_easy_setopt( curl, HB_CURLOPT_UPLOAD )
? curl_easy_setopt( curl, HB_CURLOPT_URL, REMOTE_URL )

2
harbour/contrib/hbmisc/hb_f.c
View File

@@ -50,8 +50,6 @@
*
*/
/* please run tests\testhbf.prg for testing */
#include "hbapifs.h"
#define _B_SIZE 4096

2
harbour/contrib/hbmisc/tests/testhbf.prg
View File

@@ -22,7 +22,7 @@ inplementation of :
PROCEDURE Main()
// open a text file here
IF hb_fuse( "testhbf.prg", 0 ) > 1
IF hb_fuse( __FILE__, 0 ) > 1
DO WHILE ! hb_FEof()
? "line " + Str( hb_frecno(), 2 ) + " " + hb_freadln()

2
harbour/contrib/hbmysql/utils/dbf2mysq.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* dbf2mysq.prg - converts a .dbf file into a MySQL table
* Converts a .dbf file into a MySQL table
*
* Copyright 2000 Maurilio Longo <maurilio.longo@libero.it>
* www - http://harbour-project.org

6
harbour/contrib/hbnf/amedian.prg
View File

@@ -9,8 +9,8 @@
* This is an original work by Ralph Oliver and is placed in the
* public domain.
*
* This program uses the preprocessor #defines and #command in
* Aavg.prg by David Husnian.
* This program uses the preprocessor #defines and #command
* by David Husnian.
*
* Modification history:
* ---------------------
@@ -23,7 +23,7 @@
*
*/
#define FORCE_BETWEEN( x, y, z ) ( y := MAX( MIN( y, z ), x ) )
#define FORCE_BETWEEN( x, y, z ) ( y := Max( Min( y, z ), x ) )
FUNCTION FT_AMEDIAN( aArray, nStart, nEnd )

626
harbour/contrib/hbnf/fttext.c
View File

File diff suppressed because it is too large Load Diff

2
harbour/contrib/hbnf/menutonf.prg
View File

@@ -356,7 +356,7 @@ FUNCTION FT_MenuTo( bGetSet, cReadVar, lCold )
CASE ( nScan := AScan( t_aTriggerInkey[ nMenu ], nKey ) ) > 0
nActive := nScan
IF ! lCold
FT_PutKey( K_ENTER )
hb_keyPut( K_ENTER )
ENDIF
ENDCASE

2
harbour/contrib/hbnf/tests/dfile.prg
View File

@@ -6,7 +6,7 @@
PROCEDURE Main()
LOCAL cInFile := "dfile.prg"
LOCAL cInFile := __FILE__
LOCAL CKEY
LOCAL NNCOLOR := 7
LOCAL NHCOLOR := 15

44
harbour/contrib/hbnf/tests/fttext.prg Normal file
View File

@@ -0,0 +1,44 @@
/*
* $Id$
*/
#require "hbnf"
PROCEDURE Main()
// open a text file here
IF ft_fuse( __FILE__, 0 ) > 1
DO WHILE ! ft_fEof()
? "line " + Str( ft_frecno(), 2 ) + " " + ft_freadln()
ft_fskip( 1 )
ENDDO
?
my_goto( 18 )
my_goto( 2 )
ft_fgobot()
?
? "after ft_fgobot() now in line # " + hb_ntos( ft_frecno() )
ft_fgotop()
?
? "after ft_fgotop() now in line # " + hb_ntos( ft_frecno() )
?
? "ft_flastre() = " + hb_ntos( ft_flastre() )
// close the file
ft_fuse()
ENDIF
RETURN
STATIC PROCEDURE my_goto( n_go )
ft_fgoto( n_go )
?
? "after ft_fgoto(" + hb_ntos( n_go ) + ")"
? "line " + hb_ntos( ft_frecno() ) + " is " + LTrim( ft_freadln() )
RETURN

2
harbour/contrib/hbpgsql/tests/dbf2pg.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* dbf2pg.prg - converts a .dbf file into a Postgres table
* Converts a .dbf file into a Postgres table
*
* Copyright 2000 Maurilio Longo <maurilio.longo@libero.it>
* (The original file was ported from mysql and changed by Rodrigo Moreno rodrigo_moreno@yahoo.com)

2
harbour/contrib/hbpgsql/tests/test.prg
View File

@@ -82,7 +82,7 @@ PROCEDURE main()
PQexec( conn, "begin" )
? ( x := lo_Import( conn, "test.prg" ) )
? ( x := lo_Import( conn, __FILE__ ) )
? lo_Export( conn, x, "test.new" )
? lo_Unlink( conn, x )

1
harbour/contrib/hbtip/tests/upld_ftp.prg
View File

@@ -3,7 +3,6 @@
*/
/*
* Uploadftp.prg
* Send an file or list of files to ftp server
*/

4
harbour/contrib/hbwin/tests/testcopy.prg
View File

@@ -19,7 +19,7 @@ PROCEDURE Main()
LOCAL lAbort
LOCAL tmp
? "0x" + hb_numtohex( WIN_SHFileOperation( NIL, WIN_FO_COPY, { "testcopy.prg", "olesrv1.prg" }, { "testcopy1" },;
? "0x" + hb_numtohex( WIN_SHFileOperation( NIL, WIN_FO_COPY, { __FILE__, "olesrv1.prg" }, { "testcopy1" },;
NIL, @lAbort,;
NIL, "Harbour SHFile 1" ) )
? lAbort
@@ -40,7 +40,7 @@ PROCEDURE Main()
FErase( "rename1.txt" )
? "0x" + hb_numtohex( WIN_SHFileOperation( NIL, WIN_FO_COPY, "testcopy.prg" + Chr( 0 ) + "olesrv1.prg" + Chr( 0 ), "testcopy2",;
? "0x" + hb_numtohex( WIN_SHFileOperation( NIL, WIN_FO_COPY, __FILE__ + Chr( 0 ) + "olesrv1.prg" + Chr( 0 ), "testcopy2",;
NIL, @lAbort,;
NIL, "Harbour SHFile 3" ) )
? lAbort

4
harbour/contrib/hbwin/tests/testmapi.prg
View File

@@ -14,7 +14,7 @@ PROCEDURE Main()
LOCAL lFromUser := .T.
LOCAL aSender := { "test from", "from@test.com" }
LOCAL aDest := { { "test to", "to@test.com", WIN_MAPI_TO } }
LOCAL aFiles := { { "testmapi.prg", "testmapi" } }
LOCAL aFiles := { { __FILE__, "testmapi" } }
? win_MAPISendMail( cSubject, ; // subject
cBody, ; // menssage
@@ -39,7 +39,7 @@ PROCEDURE Main()
lFromUser, ; // user intervention
"from@test.com", ; // sender
{ "to@test.com" }, ; // destinators
{ "testmapi.prg" } ; // attach
{ __FILE__ } ; // attach
)
RETURN

2
harbour/contrib/xhb/tests/testcp.prg
View File

@@ -6,6 +6,6 @@
PROCEDURE Main()
XHB_COPYFILE( "testcp.prg", "testcp.bak", {| x | QOut( x ) } )
XHB_COPYFILE( __FILE__, "testcp.bak", {| x | QOut( x ) } )
RETURN

10
harbour/contrib/xhb/xhbtedit.prg
View File

@@ -63,7 +63,7 @@
/*
*
* Teditor Fix: teditorx.prg -- V 3.0beta 2004/04/17
* Teditor Fix: v3.0beta 2004/04/17
* Copyright 2004 Giancarlo Niccolai <antispam /at/ niccolai /dot/ ws>
*
* Minimal revision for proper working (expecially with word warping).
@@ -75,7 +75,7 @@
*/
/*
* Teditor Fix: teditorx.prg -- v2.0 2003-11-17
* Teditor Fix: v2.0 2003-11-17
* Copyright 2003 Lance Owens <servant@gnosis.org>
*
* This Revised Version has a completely rewritten edit method key commands, with dynamic line & paragraph reformatting.
@@ -459,7 +459,7 @@ METHOD RefreshWindow() CLASS XHBEditor
FOR i := 0 TO Min( ::nNumRows - 1, ::LastRow() - 1 )
// 2006/JUL/23 - E.F. Adjusted to avoid out of bound.
// Don't replace ::GetLine(nRow) by ::aText[nRow]:cText here,
// Don't replace ::GetLine( nRow ) by ::aText[ nRow ]:cText here,
// because getline return line number in tbrwtext.prg (debug).
hb_DispOutAt( Min( ::nTop + i,::nBottom ), ::nLeft, ;
PadR( iif( ::nFirstRow + i <= ::LastRow(), SubStr( ::GetLine( ::nFirstRow + i ), ::nFirstCol, ::nNumCols ), Space(::nNumCols ) ), ::nNumCols ), ;
@@ -530,7 +530,7 @@ METHOD RefreshLine( lRefreshColSel ) CLASS XHBEditor
DispBegin()
// 2006/AUG/02 - E.F.
// Don't replace ::GetLine(nRow) by ::aText[nRow]:cText here
// Don't replace ::GetLine( nRow ) by ::aText[ nRow ]:cText here
// because getline return line number in tbrwtext.prg (debug).
hb_DispOutAt( ::Row(), ::nLeft, PadR( SubStr( ::GetLine( ::nRow ), ::nFirstCol, ::nNumCols ), ::nNumCols, " " ), ::LineColor( ::nRow ) )
@@ -573,7 +573,7 @@ METHOD RefreshColumn() CLASS XHBEditor
DispBegin()
// 2006/AUG/02 - E.F.
// Don't replace ::GetLine(nRow) by ::aText[nRow]:cText here
// Don't replace ::GetLine( nRow ) by ::aText[ nRow ]:cText here
// because getline return line number in tbrwtext.prg (debug).
FOR i := 0 TO Min( ::nNumRows - 1, ::LastRow() - 1 )
hb_DispOutAt( ::nTop + i, nOCol, SubStr( ::GetLine(::nFirstRow + i ), ::nCol, 1 ), ::LineColor( ::nFirstRow + i ) )

4
harbour/extras/gtwvw/tests/cbtest1.prg
View File

@@ -58,7 +58,7 @@ PROCEDURE Main()
CBhandler( nWinNum, nId, nEvent, nIndex, nPBid ) } )
nPBid := wvw_pbCreate( NIL, 4, 1 + nMaxWidth + 1, 4, 1 + nMaxWidth + 1 + 10 - 1, "OK", NIL, ;
{|| __Keyboard( _SECRET_KEY ) }, { 0, 0, + 2, 0 } )
{|| hb_keyPut( _SECRET_KEY ) }, { 0, 0, + 2, 0 } )
wvw_cbSetFocus( NIL, nCBid )
@@ -69,7 +69,7 @@ PROCEDURE Main()
DO CASE
CASE ch == K_TAB .OR. ch == K_ENTER
IF nPos == 2 .AND. ch == K_ENTER .AND. wvw_pbEnable( NIL, nPBid )
KEYBOARD( _SECRET_KEY )
hb_keyPut( _SECRET_KEY )
LOOP
ELSE
nPos++

2
harbour/extras/gtwvw/tests/cbtest6.prg
View File

@@ -170,7 +170,7 @@ FUNCTION CBhandler( nWinNum, nId, nEvent, nIndex, cVar, GetList )
SetWinFocus( nWinNum )
MSetPos( GetList[i]:row, GetList[i]:col + 1 )
KEYBOARD( K_LBUTTONDOWN )
hb_keyPut( K_LBUTTONDOWN )
ENDIF //oGet:HasFocus
ELSE //i==0

4
harbour/extras/gtwvw/tests/inpfocus.prg
View File

@@ -195,7 +195,7 @@ STATIC FUNCTION CloseLastWindow()
LOCAL nWinNum := wvw_nNumWindows() - 1
wvw_nSetCurWindow( nWinNum )
__Keyboard( K_ESC )
hb_keyPut( K_ESC )
RETURN NIL
@@ -215,7 +215,7 @@ STATIC FUNCTION typing( ch )
IF ch == K_ENTER
?? Chr( 10 )
ELSEIF ch == K_BS
?? " " + Chr( K_BS )
?? " " + Chr( 8 )
ENDIF
ENDIF

2
harbour/extras/gtwvw/tests/wvwmouse.prg
View File

@@ -573,7 +573,7 @@ STATIC PROCEDURE xKeyRepeater( lInit )
// mouse is down long enough since last valid check
// let's repeat it
__Keyboard( K_LBUTTONDOWN )
hb_keyPut( K_LBUTTONDOWN )
// to be more precise
s_nLastValidCheck := Seconds() //nNow

12
harbour/extras/gtwvw/tests/wvwtest9.prg
View File

@@ -283,7 +283,7 @@ PROCEDURE Main()
@ MaxRow() - 1, 0 SAY "This is line " + hb_ntos( MaxRow() - 1 )
@ MaxRow(), 0 SAY "This is line " + hb_ntos( MaxRow() )
DO WHILE !( ( ch := Inkey(0 ) ) == K_ESC )
DO WHILE ( ch := Inkey( 0 ) ) != K_ESC
// experiment with different paintrefresh interval:
#if 0
DO CASE
@@ -385,7 +385,7 @@ PROCEDURE Demo_Console( nTop, nLeft, nBottom, nRight )
?
DO WHILE Inkey() != 0; ENDDO //clear typeahead
ch := Inkey( 0 )
DO WHILE !( ch == K_ESC )
DO WHILE ch != K_ESC
IF ch == K_ENTER
?? hb_keyChar( ch ) + Chr( 10 )
IF lEchoing
@@ -415,10 +415,10 @@ PROCEDURE Demo_Console( nTop, nLeft, nBottom, nRight )
//*********** end typewriter mode ***************
// epilogue
// epilogue
WVW_lCloseWindow()
// restore state
// restore state
wvwm_ResetMouseObjects( nCurWindow )
ResetMiscObjects( nCurWindow )
SetCursor( nCursor )
@@ -727,8 +727,8 @@ FUNCTION HXBscroller( oBrowse, nWinNum, XBid, XBmsg )
LOCAL nOldWin
LOCAL lNeedStabilize
//if we can't handle non topmost window we must return right away
//if nWinNum != wvw_nNumWindows()-1 ; return ; endif
//if we can't handle non topmost window we must return right away
//if nWinNum != wvw_nNumWindows()-1 ; return ; endif
nOldWin := wvw_nSetCurWindow( nWinNum )

2
harbour/tests/ac_test.prg
View File

@@ -4,8 +4,6 @@
//+====================================================================
//+
//+ Source Module => ac_test.prg
//+
//+ Released to Public Domain.
//+
//+ Functions: Procedure test()

2
harbour/tests/db_brows.prg
View File

@@ -9,8 +9,6 @@
//+
//+ Placed in the public domain
//+
//+ Source Module => db_brows.prg
//+
//+ Functions: PROCEDURE Main()
//+ Function DBFLIST()
//+ Function DBFLIST()

2
harbour/tests/sbartest.prg
View File

@@ -73,7 +73,7 @@ FUNCTION InitScrlBar()
// function used to update scrollbar
FUNCTION updateFilesScroll( modo )
STATIC FUNCTION updateFilesScroll( modo )
LOCAL newPos, valRet := AC_CONT // Default to continue
LOCAL ultTecla := LastKey()

2
harbour/tests/stripem.prg
View File

@@ -30,7 +30,7 @@ PROCEDURE Main( cFrom, cTo )
LOCAL oTo
LOCAL cOut
cFrom := Default( cFrom, "strip.prg" )
cFrom := Default( cFrom, __FILE__ )
cTo := Default( cTo, "strip.out" )
oFrom := TTextFile()

1
harbour/tests/testhtml.prg
View File

@@ -4,7 +4,6 @@
/*
*
* testhtml.prg
* Harbour Test of a HTML-Generator class.
*
* Tips: - Use ShowResults to make dynamic html (to test dynamic