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

View File

@@ -7,6 +7,11 @@
Entries may not always be in chronological/commit order. Entries may not always be in chronological/commit order.
See license at the end of file. */ 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) 2017-09-13 21:17 UTC Viktor Szakats (vszakats users.noreply.github.com)
* bin/3rdpatch.hb * bin/3rdpatch.hb
; 2017-08-24 19:43 UTC Viktor Szakats (vszakats users.noreply.github.com) ; 2017-08-24 19:43 UTC Viktor Szakats (vszakats users.noreply.github.com)

View File

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

View File

@@ -2,43 +2,24 @@
* Video subsystem for Windows using GUI windows instead of Console * Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support * with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id> * Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw checkbox/progressbar functions * GTWVW checkbox functions
* GTWVW is initially created based on: * GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * =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 * 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 * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option ) * the Free Software Foundation; either version 2, or (at your option)
* any later version. * any later version.
* *
* This program is distributed in the hope that it will be useful, * This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of * but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * 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 * along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ). * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
* *
* As a special exception, the Harbour Project gives permission for * As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour. * additional uses of the text contained in its release of Harbour.
@@ -56,7 +37,7 @@
* Project under the name Harbour. If you copy code from other * Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of * Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does * Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading * not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete * anyone as to the status of such modified files, you must delete
* this exception notice from them. * this exception notice from them.
* *
@@ -68,12 +49,8 @@
#include "hbgtwvw.h" #include "hbgtwvw.h"
/* wvw_cxCreate( [nWinNum], nTop, nLeft, nBottom, nRight, cText, cImage/nImage, bBlock, aOffset, ;
/* CHECKBOX begins */ * nStretchBitmap, lMap3Dcolors, @hControl, nStyle )
/*wvw_cxCreate( [nWinNum], nTop, nLeft, nBottom, nRight, cText, cImage/nImage, bBlock, aOffset,;
* nStretchBitmap, lMap3Dcolors)
* create CHECKBOX for window nWinNum * create CHECKBOX for window nWinNum
* nTop: row of top/left corner (in character unit) * nTop: row of top/left corner (in character unit)
* nLeft: col of top/left corner (in character unit) * nLeft: col of top/left corner (in character unit)
@@ -88,11 +65,11 @@
* 0.5: bitmap covers 50% of button * 0.5: bitmap covers 50% of button
* 0: bitmap is not stretch * 0: bitmap is not stretch
* (default is 1) * (default is 1)
* lMap3Dcolors: defaults to .f. * lMap3Dcolors: defaults to .F.
* if .t. the following color mapping will be performed: * if .T. the following color mapping will be performed:
* RGB(192,192,192) --> COLOR_3DFACE ("transparent") * RGB( 192, 192, 192 ) --> COLOR_3DFACE ("transparent")
* RGB(128,128,128) --> COLOR_3DSHADOW * RGB( 128, 128, 128 ) --> COLOR_3DSHADOW
* RGB(223,223,223) --> COLOR_3DLIGHT * RGB( 223, 223, 223 ) --> COLOR_3DLIGHT
* This might be desirable to have transparent effect. * This might be desirable to have transparent effect.
* LIMITATION: this will work on 256 colored bitmaps only * LIMITATION: this will work on 256 colored bitmaps only
* *
@@ -107,10 +84,7 @@
* *
* returns control id of newly created CHECKBOX of windows nWinNum * returns control id of newly created CHECKBOX of windows nWinNum
* returns 0 if failed * returns 0 if failed
*
* example:
*/ */
HB_FUNC( WVW_CXCREATE ) HB_FUNC( WVW_CXCREATE )
{ {
UINT usWinNum = WVW_WHICH_WINDOW; UINT usWinNum = WVW_WHICH_WINDOW;

View File

@@ -2,43 +2,24 @@
* Video subsystem for Windows using GUI windows instead of Console * Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support * with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id> * Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw edit functions * GTWVW edit functions
* GTWVW is initially created based on: * GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * =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 * 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 * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option ) * the Free Software Foundation; either version 2, or (at your option)
* any later version. * any later version.
* *
* This program is distributed in the hope that it will be useful, * This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of * but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * 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 * along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ). * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
* *
* As a special exception, the Harbour Project gives permission for * As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour. * additional uses of the text contained in its release of Harbour.
@@ -56,7 +37,7 @@
* Project under the name Harbour. If you copy code from other * Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of * Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does * Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading * not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete * anyone as to the status of such modified files, you must delete
* this exception notice from them. * this exception notice from them.
* *

View File

@@ -4,8 +4,8 @@
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id> * Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* *
* GTWVW is initially created based on: * GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
*
* Video subsystem for Windows using GUI windows instead of Console * Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz> * Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd * Rees Software & Systems Ltd
@@ -17,28 +17,36 @@
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca> * Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com> * 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> * Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* hb_gt_wvw_Tone() * 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 * 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 * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option ) * the Free Software Foundation; either version 2, or (at your option)
* any later version. * any later version.
* *
* This program is distributed in the hope that it will be useful, * This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of * but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * 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 * along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ). * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
* *
* As a special exception, the Harbour Project gives permission for * As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour. * additional uses of the text contained in its release of Harbour.
@@ -56,7 +64,7 @@
* Project under the name Harbour. If you copy code from other * Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of * Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does * Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading * not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete * anyone as to the status of such modified files, you must delete
* this exception notice from them. * this exception notice from them.
* *
@@ -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" #include "hbgtwvw.h"
#if defined( __WATCOMC__ ) #if defined( __WATCOMC__ )

View File

@@ -1,44 +1,20 @@
/* /*
* Video subsystem for Windows using GUI windows instead of Console * Copyright Peter Rees <peter@rees.co.nz>
* 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.
* *
* This program is free software; you can redistribute it and/or modify * 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 * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option ) * the Free Software Foundation; either version 2, or (at your option)
* any later version. * any later version.
* *
* This program is distributed in the hope that it will be useful, * This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of * but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * 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 * along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ). * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
* *
* As a special exception, the Harbour Project gives permission for * As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour. * additional uses of the text contained in its release of Harbour.
@@ -56,7 +32,7 @@
* Project under the name Harbour. If you copy code from other * Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of * Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does * Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading * not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete * anyone as to the status of such modified files, you must delete
* this exception notice from them. * this exception notice from them.
* *
@@ -68,12 +44,6 @@
#include "hbgtwvw.h" #include "hbgtwvw.h"
/* */
/* Peter Rees <peter@rees.co.nz> */
/* */
HB_FUNC( WVW_SETMENU ) HB_FUNC( WVW_SETMENU )
{ {
UINT usWinNum = WVW_WHICH_WINDOW; UINT usWinNum = WVW_WHICH_WINDOW;

View File

@@ -2,43 +2,24 @@
* Video subsystem for Windows using GUI windows instead of Console * Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support * with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id> * Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw pushbutton/ combobox functions * GTWVW pushbutton functions
* GTWVW is initially created based on: * GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * =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 * 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 * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option ) * the Free Software Foundation; either version 2, or (at your option)
* any later version. * any later version.
* *
* This program is distributed in the hope that it will be useful, * This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of * but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * 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 * along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ). * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
* *
* As a special exception, the Harbour Project gives permission for * As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour. * additional uses of the text contained in its release of Harbour.
@@ -56,7 +37,7 @@
* Project under the name Harbour. If you copy code from other * Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of * Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does * Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading * not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete * anyone as to the status of such modified files, you must delete
* this exception notice from them. * this exception notice from them.
* *
@@ -68,8 +49,8 @@
#include "hbgtwvw.h" #include "hbgtwvw.h"
/* wvw_pbCreate( [nWinNum], nTop, nLeft, nBottom, nRight, cText, cImage/nImage, bBlock, aOffset,; /* wvw_pbCreate( [nWinNum], nTop, nLeft, nBottom, nRight, cText, cImage/nImage, bBlock, aOffset, ;
* nStretchBitmap, lMap3Dcolors) * nStretchBitmap, lMap3Dcolors, @hControl, nStyle )
* create pushbutton for window nWinNum * create pushbutton for window nWinNum
* nTop: row of top/left corner (in character unit) * nTop: row of top/left corner (in character unit)
* nLeft: col of top/left corner (in character unit) * nLeft: col of top/left corner (in character unit)
@@ -87,11 +68,11 @@
* 0: bitmap is not stretch * 0: bitmap is not stretch
* (default is 1) * (default is 1)
* *
* lMap3Dcolors: defaults to .f. * lMap3Dcolors: defaults to .F.
* if .t. the following color mapping will be performed: * if .T. the following color mapping will be performed:
* RGB(192,192,192) --> COLOR_3DFACE ("transparent") * RGB( 192, 192, 192 ) --> COLOR_3DFACE ("transparent")
* RGB(128,128,128) --> COLOR_3DSHADOW * RGB( 128, 128, 128 ) --> COLOR_3DSHADOW
* RGB(223,223,223) --> COLOR_3DLIGHT * RGB( 223, 223, 223 ) --> COLOR_3DLIGHT
* This might be desirable to have transparent effect. * This might be desirable to have transparent effect.
* LIMITATION: this will work on 256 colored bitmaps only * LIMITATION: this will work on 256 colored bitmaps only
* *
@@ -106,10 +87,7 @@
* *
* returns control id of newly created pushbutton of windows nWinNum * returns control id of newly created pushbutton of windows nWinNum
* returns 0 if failed * returns 0 if failed
*
* example:
*/ */
HB_FUNC( WVW_PBCREATE ) HB_FUNC( WVW_PBCREATE )
{ {
UINT usWinNum = WVW_WHICH_WINDOW; UINT usWinNum = WVW_WHICH_WINDOW;

View File

@@ -2,43 +2,24 @@
* Video subsystem for Windows using GUI windows instead of Console * Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support * with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id> * Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw statusbar/scrollbar functions * GTWVW statusbar functions
* GTWVW is initially created based on: * GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * =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 * 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 * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option ) * the Free Software Foundation; either version 2, or (at your option)
* any later version. * any later version.
* *
* This program is distributed in the hope that it will be useful, * This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of * but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * 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 * along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ). * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
* *
* As a special exception, the Harbour Project gives permission for * As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour. * additional uses of the text contained in its release of Harbour.
@@ -56,7 +37,7 @@
* Project under the name Harbour. If you copy code from other * Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of * Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does * Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading * not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete * anyone as to the status of such modified files, you must delete
* this exception notice from them. * this exception notice from them.
* *
@@ -69,10 +50,7 @@
#include "hbgtwvw.h" #include "hbgtwvw.h"
/* STATUS BAR */ /* wvw_sbCreate( [nWinNum] )
/*wvw_sbCreate( [nWinNum] )
* create status bar for window nWinNum, with one part. * create status bar for window nWinNum, with one part.
* returns handle to status bar of windows nWinNum * returns handle to status bar of windows nWinNum
* returns 0 if failed, eg. if there is already a status bar for this window * returns 0 if failed, eg. if there is already a status bar for this window

View File

@@ -2,43 +2,24 @@
* Video subsystem for Windows using GUI windows instead of Console * Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support * with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id> * Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw toolbar and tooltips functions * GTWVW toolbar functions
* GTWVW is initially created based on: * GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * =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 * 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 * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option ) * the Free Software Foundation; either version 2, or (at your option)
* any later version. * any later version.
* *
* This program is distributed in the hope that it will be useful, * This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of * but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * 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 * along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ). * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
* *
* As a special exception, the Harbour Project gives permission for * As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour. * additional uses of the text contained in its release of Harbour.
@@ -56,7 +37,7 @@
* Project under the name Harbour. If you copy code from other * Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of * Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does * Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading * not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete * anyone as to the status of such modified files, you must delete
* this exception notice from them. * this exception notice from them.
* *

View File

@@ -1,19 +1,8 @@
/* /* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
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. */
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_
/* PART-1: WINDOW INDEPENDENT (the same parameter list) */ /* PART-1: WINDOW INDEPENDENT (the same parameter list) */
/* ==================================================== */
#xtranslate Wvt_CreateMenu ( [<vlist,...>] ) => wvw_CreateMenu ( [<vlist>] ) #xtranslate Wvt_CreateMenu ( [<vlist,...>] ) => wvw_CreateMenu ( [<vlist>] )
#xtranslate Wvt_CreatePopupMenu ( [<vlist,...>] ) => wvw_CreatePopupMenu ( [<vlist>] ) #xtranslate Wvt_CreatePopupMenu ( [<vlist,...>] ) => wvw_CreatePopupMenu ( [<vlist>] )
@@ -51,31 +40,29 @@ MEMVAR _wvwtemp_
#xtranslate Wvt_CBSetCurSel ( [<vlist,...>] ) => wvw_CBSetCurSel ( [<vlist>] ) #xtranslate Wvt_CBSetCurSel ( [<vlist,...>] ) => wvw_CBSetCurSel ( [<vlist>] )
#xtranslate Wvt_DlgSetIcon ( [<vlist,...>] ) => wvw_DlgSetIcon ( [<vlist>] ) #xtranslate Wvt_DlgSetIcon ( [<vlist,...>] ) => wvw_DlgSetIcon ( [<vlist>] )
/* These functions do not exist in WVT. */ /* These functions do not exist in WVT. */
//Wvt_SetVertCaret ( [<vlist,...>] ) => wvw_SetVertCaret ( [<vlist>] ) //Wvt_SetVertCaret ( [<vlist,...>] ) => wvw_SetVertCaret ( [<vlist>] )
//Wvt_SetDefLineSpacing ( [<vlist,...>] ) => wvw_SetDefLineSpacing ( [<vlist>] ) //Wvt_SetDefLineSpacing ( [<vlist,...>] ) => wvw_SetDefLineSpacing ( [<vlist>] )
/* PART-2: WINDOW DEPENDENT (additional nWinNum parameter) */ /* PART-2: WINDOW DEPENDENT (additional nWinNum parameter) */
/* ======================================================= */
/* /*
Notes: 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 IF MainCoordMode
Topmost Window Topmost Window
ELSE ELSE
Current Window Current Window
ENDIF 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. 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 You may want to replace NIL with your own function/variable by which you can decide
which window to direct your output to. which window to direct your output to.
*/ */
#xtranslate Wvt_SetMenu ( [<vlist,...>] ) => wvw_SetMenu ( NIL [, <vlist>] ) #xtranslate Wvt_SetMenu ( [<vlist,...>] ) => wvw_SetMenu ( NIL [, <vlist>] )
#xtranslate Wvt_SetPopupMenu ( [<vlist,...>] ) => wvw_SetPopupMenu ( NIL [, <vlist>] ) #xtranslate Wvt_SetPopupMenu ( [<vlist,...>] ) => wvw_SetPopupMenu ( NIL [, <vlist>] )
@@ -136,8 +123,8 @@ MEMVAR _wvwtemp_
#xtranslate Wvt_SetMousePos ( [<vlist,...>] ) => wvw_SetMousePos ( NIL [, <vlist>] ) #xtranslate Wvt_SetMousePos ( [<vlist,...>] ) => wvw_SetMousePos ( NIL [, <vlist>] )
/* in gtwvt no pending rect is reflected as {0,0,0,0} /* 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 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 thus we need some temporary var to check this exception
*/ */
#xtranslate Wvt_GetPaintRect ( [<vlist,...>] ) => ( _wvwtemp_ := wvw_GetPaintRect( NIL [, <vlist>] ), ; #xtranslate Wvt_GetPaintRect ( [<vlist,...>] ) => ( _wvwtemp_ := wvw_GetPaintRect( NIL [, <vlist>] ), ;
@@ -171,34 +158,33 @@ MEMVAR _wvwtemp_
#xtranslate Wvt_DrawStatusBar ( [<vlist,...>] ) => wvw_DrawStatusBar ( NIL [, <vlist>] ) #xtranslate Wvt_DrawStatusBar ( [<vlist,...>] ) => wvw_DrawStatusBar ( NIL [, <vlist>] )
/* Native Statusbar functions. Currently none in WVT. /* Native Statusbar functions. Currently none in WVT.
WVT uses different approach (Wvt_DrawStatusBar) */ WVT uses different approach (wvt_DrawStatusBar()) */
//wvw_sbCreate //wvw_sbCreate()
//wvw_sbDestroy //wvw_sbDestroy()
//wvw_sbAddPart //wvw_sbAddPart()
//wvw_sbRefresh //wvw_sbRefresh()
//wvw_sbSetText //wvw_sbSetText()
//wvw_sbGetText //wvw_sbGetText()
//wvw_sbGetParts //wvw_sbGetParts()
/* Toolbar functions. Currently none in WVT. WVT uses different approach. */ /* Toolbar functions. Currently none in WVT. WVT uses different approach. */
//wvw_tbCreate //wvw_tbCreate()
//wvw_tbAddButton //wvw_tbAddButton()
//wvw_tbButtonCount //wvw_tbButtonCount()
//wvw_tbDelButton //wvw_tbDelButton()
//wvw_tbEnableButton //wvw_tbEnableButton()
//wvw_tbDestroy //wvw_tbDestroy()
/* Scrollbar functions. Currently none in WVT. WVT uses different approach. */ /* Scrollbar functions. Currently none in WVT. WVT uses different approach. */
//wvw_xbCreate //wvw_xbCreate()
//wvw_xbDestroy //wvw_xbDestroy()
//wvw_xbUpdate //wvw_xbUpdate()
//wvw_xbEnable //wvw_xbEnable()
/* Line Spacing. Currently none in WVT. */ /* 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: Notes:
@@ -210,18 +196,20 @@ MEMVAR _wvwtemp_
However, once you open a second window you you should decide what to do However, once you open a second window you you should decide what to do
with nWinNum parameter in these callback functions. 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_xxx(...) FUNCTION WVT_*( ... )
LOCAL nOldWin := wvw_nSetCurWindow( nWinNum ) //<-- add this
...existing code... LOCAL nOldWin := wvw_nSetCurWindow( nWinNum ) // <-- add this
/* ...existing code... */
wvw_nSetCurWindow( nOldWin ) // <-- add this
wvw_nSetCurWindow( nOldWin ) //<--add this
RETURN NIL RETURN NIL
Although the above may be enough, each individual function may need careful review 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. exit points in that function.
IMPORTANT NOTES ON MainCoord Mode: IMPORTANT NOTES ON MainCoord Mode:

View File

@@ -2,43 +2,24 @@
* Video subsystem for Windows using GUI windows instead of Console * Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support * with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id> * Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw draw functions * GTWVW draw functions
* GTWVW is initially created based on: * GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * =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 * 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 * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option ) * the Free Software Foundation; either version 2, or (at your option)
* any later version. * any later version.
* *
* This program is distributed in the hope that it will be useful, * This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of * but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * 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 * along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ). * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
* *
* As a special exception, the Harbour Project gives permission for * As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour. * additional uses of the text contained in its release of Harbour.
@@ -56,7 +37,7 @@
* Project under the name Harbour. If you copy code from other * Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of * Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does * Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading * not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete * anyone as to the status of such modified files, you must delete
* this exception notice from them. * this exception notice from them.
* *

View File

@@ -2,43 +2,24 @@
* Video subsystem for Windows using GUI windows instead of Console * Video subsystem for Windows using GUI windows instead of Console
* with multiple windows support * with multiple windows support
* Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id> * Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
* gtwvw draw functions * GTWVW draw functions
* GTWVW is initially created based on: * GTWVW is initially created based on:
*
* =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * =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 * 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 * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option ) * the Free Software Foundation; either version 2, or (at your option)
* any later version. * any later version.
* *
* This program is distributed in the hope that it will be useful, * This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of * but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * 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 * along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ). * Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
* *
* As a special exception, the Harbour Project gives permission for * As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour. * additional uses of the text contained in its release of Harbour.
@@ -56,7 +37,7 @@
* Project under the name Harbour. If you copy code from other * Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of * Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does * Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading * not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete * anyone as to the status of such modified files, you must delete
* this exception notice from them. * this exception notice from them.
* *