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

2017-09-13 21:33 UTC Viktor Szakats (vszakats users.noreply.github.com)

Browse Source 
* bin/check.hb
  * contrib/gtwvw/*
    * sync some text with the 3.4 fork
This commit is contained in:
Viktor Szakats
2017-09-13 21:34:26 +00:00
parent 52ff21bcf3
commit 8340825fd5
12 changed files with 135 additions and 324 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog.txt
View File

@@ -7,6 +7,11 @@
Entries may not always be in chronological/commit order.
See license at the end of file. */
2017-09-13 21:33 UTC Viktor Szakats (vszakats users.noreply.github.com)
* bin/check.hb
* contrib/gtwvw/*
* sync some text with the 3.4 fork
2017-09-13 21:17 UTC Viktor Szakats (vszakats users.noreply.github.com)
* bin/3rdpatch.hb
; 2017-08-24 19:43 UTC Viktor Szakats (vszakats users.noreply.github.com)

6
bin/check.hb
View File

@@ -93,8 +93,10 @@ STATIC FUNCTION CheckFile( cName, /* @ */ aErr, lApplyFixes )
LOCAL aCanBeUpper := { ;
"Makefile", ;
"README.md", ;
"COPYING.txt", ;
"DEPRECATED.*", ;
"LICENSE.*", ;
"README.*", ;
"WARNING.*", ;
"*/RELNOTES.txt", ;
"*/HARBOUR_README_*.txt", ;
"ChangeLog.txt", ;

40
contrib/gtwvw/checkbox.c
View File

@@ -2,28 +2,9 @@
* Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw checkbox/progressbar functions
* GTWVW checkbox functions
* GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* The following parts are Copyright of the individual authors.
*
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone()
*
* See COPYING.txt for licensing terms.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -36,9 +17,9 @@
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
@@ -68,12 +49,8 @@
#include "hbgtwvw.h"
/* CHECKBOX begins */
/* wvw_cxCreate( [nWinNum], nTop, nLeft, nBottom, nRight, cText, cImage/nImage, bBlock, aOffset, ;
* nStretchBitmap, lMap3Dcolors)
* nStretchBitmap, lMap3Dcolors, @hControl, nStyle )
* create CHECKBOX for window nWinNum
* nTop: row of top/left corner (in character unit)
* nLeft: col of top/left corner (in character unit)
@@ -88,8 +65,8 @@
* 0.5: bitmap covers 50% of button
* 0: bitmap is not stretch
* (default is 1)
* lMap3Dcolors: defaults to .f.
* if .t. the following color mapping will be performed:
* lMap3Dcolors: defaults to .F.
* if .T. the following color mapping will be performed:
* RGB( 192, 192, 192 ) --> COLOR_3DFACE ("transparent")
* RGB( 128, 128, 128 ) --> COLOR_3DSHADOW
* RGB( 223, 223, 223 ) --> COLOR_3DLIGHT
@@ -107,10 +84,7 @@
*
* returns control id of newly created CHECKBOX of windows nWinNum
* returns 0 if failed
*
* example:
*/
HB_FUNC( WVW_CXCREATE )
{
UINT usWinNum = WVW_WHICH_WINDOW;

27
contrib/gtwvw/editbox.c
View File

@@ -2,28 +2,9 @@
* Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw edit functions
* GTWVW edit functions
* GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* The following parts are Copyright of the individual authors.
*
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone()
*
* See COPYING.txt for licensing terms.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -36,9 +17,9 @@
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.

40
contrib/gtwvw/gtwvwd.c
View File

@@ -4,8 +4,8 @@
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
*
* GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
*
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
@@ -17,13 +17,21 @@
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* The following parts are Copyright of the individual authors.
*
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone()
*
* See COPYING.txt for licensing terms.
* (C) 2003-2004 Giancarlo Niccolai <gc@niccolai.ws>
* Standard xplatform GT Info system,
* Graphical object system and event system.
* hb_gtInfo() And GTO_* implementation.
*
* (C) 2004 Mauricio Abre <maurifull@datafull.com>
* Cross-GT, multi-platform Graphics API
*
* (C) 2009 Cristiam Azambuja <cristiam@datacempro.com.br>
* Marson de Paula <marson@datacempro.com.br>
* Data Cempro Informatica (www.datacempro.com.br)
* Refactoring for xHarbour 1.2.1
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -36,9 +44,9 @@
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
@@ -66,22 +74,6 @@
*
*/
/*
* Individual authors:
* (C) 2003-2004 Giancarlo Niccolai <gc at niccolai dot ws>
* Standard xplatform GT Info system,
* Graphical object system and event system.
* hb_gtInfo() And GTO_* implementation.
*
* (C) 2004 Mauricio Abre <maurifull@datafull.com>
* Cross-GT, multiplatform Graphics API
*
* (C) 2009 Cristiam Azambuja <cristiam@datacempro.com.br>
* Marson de Paula <marson@datacempro.com.br>
* Data Cempro Informatica (www.datacempro.com.br)
* Refactoring for xHarbour 1.2.1
*/
#include "hbgtwvw.h"
#if defined( __WATCOMC__ )

38
contrib/gtwvw/menubar.c
View File

@@ -1,29 +1,5 @@
/*
* Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw menu Functions
* GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* The following parts are Copyright of the individual authors.
*
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone()
*
* See COPYING.txt for licensing terms.
* Copyright Peter Rees <peter@rees.co.nz>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -36,9 +12,9 @@
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
@@ -68,12 +44,6 @@
#include "hbgtwvw.h"
/* */
/* Peter Rees <peter@rees.co.nz> */
/* */
HB_FUNC( WVW_SETMENU )
{
UINT usWinNum = WVW_WHICH_WINDOW;

36
contrib/gtwvw/pushbut.c
View File

@@ -2,28 +2,9 @@
* Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw pushbutton/ combobox functions
* GTWVW pushbutton functions
* GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* The following parts are Copyright of the individual authors.
*
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone()
*
* See COPYING.txt for licensing terms.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -36,9 +17,9 @@
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
@@ -69,7 +50,7 @@
#include "hbgtwvw.h"
/* wvw_pbCreate( [nWinNum], nTop, nLeft, nBottom, nRight, cText, cImage/nImage, bBlock, aOffset, ;
* nStretchBitmap, lMap3Dcolors)
* nStretchBitmap, lMap3Dcolors, @hControl, nStyle )
* create pushbutton for window nWinNum
* nTop: row of top/left corner (in character unit)
* nLeft: col of top/left corner (in character unit)
@@ -87,8 +68,8 @@
* 0: bitmap is not stretch
* (default is 1)
*
* lMap3Dcolors: defaults to .f.
* if .t. the following color mapping will be performed:
* lMap3Dcolors: defaults to .F.
* if .T. the following color mapping will be performed:
* RGB( 192, 192, 192 ) --> COLOR_3DFACE ("transparent")
* RGB( 128, 128, 128 ) --> COLOR_3DSHADOW
* RGB( 223, 223, 223 ) --> COLOR_3DLIGHT
@@ -106,10 +87,7 @@
*
* returns control id of newly created pushbutton of windows nWinNum
* returns 0 if failed
*
* example:
*/
HB_FUNC( WVW_PBCREATE )
{
UINT usWinNum = WVW_WHICH_WINDOW;

30
contrib/gtwvw/statbar.c
View File

@@ -2,28 +2,9 @@
* Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw statusbar/scrollbar functions
* GTWVW statusbar functions
* GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* The following parts are Copyright of the individual authors.
*
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone()
*
* See COPYING.txt for licensing terms.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -36,9 +17,9 @@
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
@@ -69,9 +50,6 @@
#include "hbgtwvw.h"
/* STATUS BAR */
/* wvw_sbCreate( [nWinNum] )
* create status bar for window nWinNum, with one part.
* returns handle to status bar of windows nWinNum

27
contrib/gtwvw/toolbar.c
View File

@@ -2,28 +2,9 @@
* Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw toolbar and tooltips functions
* GTWVW toolbar functions
* GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* The following parts are Copyright of the individual authors.
*
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone()
*
* See COPYING.txt for licensing terms.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -36,9 +17,9 @@
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.

78
contrib/gtwvw/wvt2wvw.ch
View File

@@ -1,19 +1,8 @@
/*
Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
Mapping of gtwvt functions and their coresponding ones in gtwvw.
header file to be included in your gtwvt program if you
wish to link it with gtwvw.
WARNING:
This mapping is made globally. Should you find any error(s) please let me know.
*/
MEMVAR _wvwtemp_
/* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
Mapping of GTWVT functions and their corresponding ones in GTWVW.
Header file to be included in your GTWVT program if you wish to link it with GTWVW. */
/* PART-1: WINDOW INDEPENDENT (the same parameter list) */
/* ==================================================== */
#xtranslate Wvt_CreateMenu ( [<vlist,...>] ) => wvw_CreateMenu ( [<vlist>] )
#xtranslate Wvt_CreatePopupMenu ( [<vlist,...>] ) => wvw_CreatePopupMenu ( [<vlist>] )
@@ -51,25 +40,23 @@ MEMVAR _wvwtemp_
#xtranslate Wvt_CBSetCurSel ( [<vlist,...>] ) => wvw_CBSetCurSel ( [<vlist>] )
#xtranslate Wvt_DlgSetIcon ( [<vlist,...>] ) => wvw_DlgSetIcon ( [<vlist>] )
/* These functions do not exist in WVT. */
//Wvt_SetVertCaret ( [<vlist,...>] ) => wvw_SetVertCaret ( [<vlist>] )
//Wvt_SetDefLineSpacing ( [<vlist,...>] ) => wvw_SetDefLineSpacing ( [<vlist>] )
/* PART-2: WINDOW DEPENDENT (additional nWinNum parameter) */
/* ======================================================= */
/*
Notes:
nWinNum parameter passed as NIL will be translated by gtwvw into :
nWinNum parameter passed as NIL will be translated by GTWVW into:
IF MainCoordMode
Topmost Window
ELSE
Current Window
ENDIF
Since gtwvt application can't be in MainCoordMode,
Since GTWVT application cannot be in MainCoordMode,
the following approach makes these functions work on current window.
You may want to replace NIL with your own function/variable by which you can decide
@@ -136,8 +123,8 @@ MEMVAR _wvwtemp_
#xtranslate Wvt_SetMousePos ( [<vlist,...>] ) => wvw_SetMousePos ( NIL [, <vlist>] )
/* in gtwvt no pending rect is reflected as {0,0,0,0}
in gtwvw no pending rect is reflected as {y1,x1,y2,x2} where y1 > y2 or x1 > x2
/* in GTWVT no pending rect is reflected as {0,0,0,0}
in GTWVW no pending rect is reflected as {y1,x1,y2,x2} where y1 > y2 or x1 > x2
thus we need some temporary var to check this exception
*/
#xtranslate Wvt_GetPaintRect ( [<vlist,...>] ) => ( _wvwtemp_ := wvw_GetPaintRect( NIL [, <vlist>] ), ;
@@ -171,34 +158,33 @@ MEMVAR _wvwtemp_
#xtranslate Wvt_DrawStatusBar ( [<vlist,...>] ) => wvw_DrawStatusBar ( NIL [, <vlist>] )
/* Native Statusbar functions. Currently none in WVT.
WVT uses different approach (Wvt_DrawStatusBar) */
//wvw_sbCreate
//wvw_sbDestroy
//wvw_sbAddPart
//wvw_sbRefresh
//wvw_sbSetText
//wvw_sbGetText
//wvw_sbGetParts
WVT uses different approach (wvt_DrawStatusBar()) */
//wvw_sbCreate()
//wvw_sbDestroy()
//wvw_sbAddPart()
//wvw_sbRefresh()
//wvw_sbSetText()
//wvw_sbGetText()
//wvw_sbGetParts()
/* Toolbar functions. Currently none in WVT. WVT uses different approach. */
//wvw_tbCreate
//wvw_tbAddButton
//wvw_tbButtonCount
//wvw_tbDelButton
//wvw_tbEnableButton
//wvw_tbDestroy
//wvw_tbCreate()
//wvw_tbAddButton()
//wvw_tbButtonCount()
//wvw_tbDelButton()
//wvw_tbEnableButton()
//wvw_tbDestroy()
/* Scrollbar functions. Currently none in WVT. WVT uses different approach. */
//wvw_xbCreate
//wvw_xbDestroy
//wvw_xbUpdate
//wvw_xbEnable
//wvw_xbCreate()
//wvw_xbDestroy()
//wvw_xbUpdate()
//wvw_xbEnable()
/* Line Spacing. Currently none in WVT. */
//wvw_SetLineSpacing
//wvw_SetLineSpacing()
/* PART-3: RESERVED FUNCTION NAMES ("callback" prg functions, called by gtwvw) */
/* =========================================================================== */
/* PART-3: RESERVED FUNCTION NAMES ("callback" .prg functions, called by GTWVW) */
/*
Notes:
@@ -210,18 +196,20 @@ MEMVAR _wvwtemp_
However, once you open a second window you you should decide what to do
with nWinNum parameter in these callback functions.
Typically your WVT_xxx function will need adjustment like below:
Typically your WVT_*() function will need adjustment like below:
FUNCTION WVT_*( ... )
FUNCTION WVT_xxx(...)
LOCAL nOldWin := wvw_nSetCurWindow( nWinNum ) // <-- add this
...existing code...
/* ...existing code... */
wvw_nSetCurWindow( nOldWin ) // <-- add this
RETURN NIL
Although the above may be enough, each individual function may need careful review
to make sure it follows gtwvw convention. For example, if you have multiple
to make sure it follows GTWVW convention. For example, if you have multiple
exit points in that function.
IMPORTANT NOTES ON MainCoord Mode:

27
contrib/gtwvw/wvwdraw.c
View File

@@ -2,28 +2,9 @@
* Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw draw functions
* GTWVW draw functions
* GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* The following parts are Copyright of the individual authors.
*
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone()
*
* See COPYING.txt for licensing terms.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -36,9 +17,9 @@
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.

27
contrib/gtwvw/wvwutils.c
View File

@@ -2,28 +2,9 @@
* Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw draw functions
* GTWVW draw functions
* GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* The following parts are Copyright of the individual authors.
*
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone()
*
* See COPYING.txt for licensing terms.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -36,9 +17,9 @@
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.