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:
@@ -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)
|
||||||
|
|||||||
@@ -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", ;
|
||||||
|
|||||||
@@ -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;
|
||||||
|
|||||||
@@ -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.
|
||||||
*
|
*
|
||||||
|
|||||||
@@ -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__ )
|
||||||
|
|||||||
@@ -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;
|
||||||
|
|||||||
@@ -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;
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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.
|
||||||
*
|
*
|
||||||
|
|||||||
@@ -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:
|
||||||
|
|||||||
@@ -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.
|
||||||
*
|
*
|
||||||
|
|||||||
@@ -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.
|
||||||
*
|
*
|
||||||
|
|||||||
Reference in New Issue
Block a user