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

2012-11-12 02:03 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* extras/rddado/rddado.hbp
  * extras/rddado/tests/access1.prg
  * extras/rddado/tests/access2.prg
  * extras/rddado/tests/mysql1.prg
  * extras/rddado/tests/mysql3.prg
    ! added missing link against hbwin lib when building as
      dynamic lib.
      It needs the method described in 2010-07-31 01:59 UTC+0200
    + added #require to tests so now they can be run as hbrun scripts
    + added CLS to automatically switch to interactive GT with hbrun

  * extras/gfspell/spell.prg
  * extras/gfspell/spellc.c
  * extras/gtwvw/tests/ebtest7.prg
    * minor
This commit is contained in:
Viktor Szakats
2012-11-12 01:10:56 +00:00
parent bd2cb051e0
commit 3af24b8e15
9 changed files with 60 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
harbour/ChangeLog
View File

@@ -16,6 +16,23 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-11-12 02:03 UTC+0100 Viktor Szakats (harbour syenar.net)
* extras/rddado/rddado.hbp
* extras/rddado/tests/access1.prg
* extras/rddado/tests/access2.prg
* extras/rddado/tests/mysql1.prg
* extras/rddado/tests/mysql3.prg
! added missing link against hbwin lib when building as
dynamic lib.
It needs the method described in 2010-07-31 01:59 UTC+0200
+ added #require to tests so now they can be run as hbrun scripts
+ added CLS to automatically switch to interactive GT with hbrun
* extras/gfspell/spell.prg
* extras/gfspell/spellc.c
* extras/gtwvw/tests/ebtest7.prg
* minor
2012-11-12 00:17 UTC+0100 Viktor Szakats (harbour syenar.net)
* extras/superlib/superlib.dif
! fixed RAT_EVENT() to not hog the CPU and also to call

12
harbour/extras/gfspell/spell.prg
View File

@@ -1465,17 +1465,7 @@ FUNCTION AWords( cLine )
// Find an occurrence of 'f_str' in 'l_str' starting from position 'f_rom'
FUNCTION fat( f_str, l_str, f_rom )
IF PCount() < 3 // Is f_rom passed?
f_rom := 1
ENDIF
RETURN At( f_str, SubStr( l_str, f_rom ) )
RETURN At( f_str, SubStr( l_str, iif( PCount() < 3, 1, f_rom ) ) )
STATIC FUNCTION bfat( f_str, l_str, f_rom )
IF PCount() < 3 // Is f_rom passed?
f_rom := 1
ENDIF
RETURN hb_BAt( f_str, hb_BSubStr( l_str, f_rom ) )

2
harbour/extras/gfspell/spellc.c
View File

@@ -130,7 +130,7 @@ HB_FUNC( XUNFORM )
hb_retclen( cRet, iRetLen );
}
/***************************
/*
* Function: Sp_Rate()
* Syntax: cRating := Sp_Rate( cFound, cWord )
* Purpose: Returns a letter code indicating how similar the two

88
harbour/extras/gtwvw/tests/ebtest7.prg
View File

@@ -29,6 +29,36 @@
#include "set.ch"
#include "setcurs.ch"
#define EN_SETFOCUS 0x0100
#define EN_KILLFOCUS 0x0200
#define EN_CHANGE 0x0300
#define EN_UPDATE 0x0400
#define EN_ERRSPACE 0x0500
#define EN_MAXTEXT 0x0501
#define EN_HSCROLL 0x0601
#define EN_VSCROLL 0x0602
#define WM_KEYFIRST 0x0100
#define WM_KEYDOWN 0x0100
#define WM_KEYUP 0x0101
#define WM_CHAR 0x0102
#define WM_DEADCHAR 0x0103
#define WM_SYSKEYDOWN 0x0104
#define WM_SYSKEYUP 0x0105
#define WM_SYSCHAR 0x0106
#define WM_SYSDEADCHAR 0x0107
#define WM_KEYLAST 0x0108
#define WM_INITDIALOG 0x0110
#define WM_COMMAND 0x0111
#define WM_SYSCOMMAND 0x0112
#define WM_TIMER 0x0113
#define WM_HSCROLL 0x0114
#define WM_VSCROLL 0x0115
#define WM_INITMENU 0x0116
#define WM_INITMENUPOPUP 0x0117
#define WM_MENUSELECT 0x011F
#define WM_MENUCHAR 0x0120
#define WM_ENTERIDLE 0x0121
#command @ <row>, <col> EBGET <var> ;
[LABEL <label>] ;
@@ -489,64 +519,6 @@ STATIC FUNCTION nFocused( aEBGets )
RETURN AScan( aEBGets, {| x | x[ __GET_LFOCUSED ] } )
#define EN_SETFOCUS 0x0100
#define EN_KILLFOCUS 0x0200
#define EN_CHANGE 0x0300
#define EN_UPDATE 0x0400
#define EN_ERRSPACE 0x0500
#define EN_MAXTEXT 0x0501
#define EN_HSCROLL 0x0601
#define EN_VSCROLL 0x0602
#define WM_KEYFIRST 0x0100
#define WM_KEYDOWN 0x0100
#define WM_KEYUP 0x0101
#define WM_CHAR 0x0102
#define WM_DEADCHAR 0x0103
#define WM_SYSKEYDOWN 0x0104
#define WM_SYSKEYUP 0x0105
#define WM_SYSCHAR 0x0106
#define WM_SYSDEADCHAR 0x0107
#define WM_KEYLAST 0x0108
#define WM_INITDIALOG 0x0110
#define WM_COMMAND 0x0111
#define WM_SYSCOMMAND 0x0112
#define WM_TIMER 0x0113
#define WM_HSCROLL 0x0114
#define WM_VSCROLL 0x0115
#define WM_INITMENU 0x0116
#define WM_INITMENUPOPUP 0x0117
#define WM_MENUSELECT 0x011F
#define WM_MENUCHAR 0x0120
#define WM_ENTERIDLE 0x0121
// callback function called by GTWVW during some events on editbox
STATIC FUNCTION MaskEditBox( nWinNum, nId, nEvent, aEBGets )

2
harbour/extras/rddado/rddado.hbp
View File

@@ -15,5 +15,7 @@ adordd.prg
-hbx=${hb_name}.hbx
${hb_name}.hbx
{hbdyn}-env:_HB_DYNSUFF=_dll
{hbdyn}hbwin.hbc
$hb_pkg_dynlib.hbm
$hb_pkg_install.hbm

3
harbour/extras/rddado/tests/access1.prg
View File

@@ -2,6 +2,8 @@
* $Id$
*/
#require "rddado"
#include "adordd.ch"
REQUEST ADORDD
@@ -13,6 +15,7 @@ PROCEDURE Main()
USE ( hb_DirBase() + "test.mdb" ) VIA "ADORDD" TABLE "Table1"
CLS
Browse()
USE

2
harbour/extras/rddado/tests/access2.prg
View File

@@ -4,6 +4,8 @@
/* Testing dbCreate() with Access database engine */
#require "rddado"
#include "adordd.ch"
REQUEST ADORDD

2
harbour/extras/rddado/tests/mysql1.prg
View File

@@ -2,6 +2,8 @@
* $Id$
*/
#require "rddado"
#include "adordd.ch"
REQUEST ADORDD

2
harbour/extras/rddado/tests/mysql3.prg
View File

@@ -2,6 +2,8 @@
* $Id$
*/
#require "rddado"
// Testing LOCATE and CONTINUE
#include "adordd.ch"