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

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

Browse Source 
+ extras/gtwvw/wvt2wvw.ch
  - extras/gtwvw/tests/wvt2wvw.ch
  * extras/gtwvw/tests/readme.txt
    * cased function names, misc cleanups, moved 
      to main project dir
This commit is contained in:
Viktor Szakats
2012-11-11 01:39:49 +00:00
parent 93245b2e11
commit cfcc400c75
4 changed files with 276 additions and 304 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -16,6 +16,13 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-11-11 02:38 UTC+0100 Viktor Szakats (harbour syenar.net)
+ extras/gtwvw/wvt2wvw.ch
- extras/gtwvw/tests/wvt2wvw.ch
* extras/gtwvw/tests/readme.txt
* cased function names, misc cleanups, moved
to main project dir
2012-11-11 01:58 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbgs/core.c
* contrib/hbwin/wapi_wingdi.c

12
harbour/extras/gtwvw/tests/readme.txt
View File

@@ -4,19 +4,19 @@
To run samples:
(1) Make sure you have GTWVW.LIB in your Harbour LIB directory
(1) Make sure you have GTWVW library
(2) Compile/link the .prg/.hbp using hbmk2 <name>
BRIEF DESCRIPTIONS:
AS described in www.csacomputer.com/gtwvw :
AS described in http://www.csacomputer.com/gtwvw/ :
prog0.prg : to be compiled with clipper
prog1.prg : 1st evolution with gtwvw
prog2.prg : 2nd evolution with gtwvw
Supporting routines: (required by wvwtest9.prg only)
wvwmouse.prg : sample of how to handle graphic primitives
_wvwmous.prg : sample of how to handle graphic primitives
Supporting files:
test.dbf
@@ -28,9 +28,3 @@ Main programs:
wvwtest9.prg : demo of several gtwvw features.
maincoor.prg : to show differences of MainCoord and Standard Mode.
inpfocus.prg : demo of how to handle input on non topmost window.
Others:
wvt2wvw.ch : header file to be included in your gtwvt program if you
wish to link it with gtwvw.
See gtwvw documentation (and description inside wvt2wvw.ch)
about how to compile and link gtwvt program using gtwvw.

295
harbour/extras/gtwvw/tests/wvt2wvw.ch
View File

@@ -1,295 +0,0 @@
/*
* $Id$
*/
/*
Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
Mapping of gtwvt functions and their coresponding ones in 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)
*********************************************************************/
/********************************************************************/
#xtranslate WVT_CREATEMENU ( [<vlist,...>] ) => WVW_CREATEMENU ( [<vlist>] )
#xtranslate WVT_CREATEPOPUPMENU ( [<vlist,...>] ) => WVW_CREATEPOPUPMENU ( [<vlist>] )
#xtranslate WVT_APPENDMENU ( [<vlist,...>] ) => WVW_APPENDMENU ( [<vlist>] )
#xtranslate WVT_DELETEMENU ( [<vlist,...>] ) => WVW_DELETEMENU ( [<vlist>] )
#xtranslate WVT_DESTROYMENU ( [<vlist,...>] ) => WVW_DESTROYMENU ( [<vlist>] )
#xtranslate WVT_ENABLEMENUITEM ( [<vlist,...>] ) => WVW_ENABLEMENUITEM ( [<vlist>] )
#xtranslate WVT_GETSCREENWIDTH ( [<vlist,...>] ) => WVW_GETSCREENWIDTH ( [<vlist>] )
#xtranslate WVT_GETSCREENHEIGHT ( [<vlist,...>] ) => WVW_GETSCREENHEIGHT ( [<vlist>] )
#xtranslate WVT_SETALTF4CLOSE ( [<vlist,...>] ) => WVW_SETALTF4CLOSE ( [<vlist>] )
#xtranslate WVT_GETRGBCOLOR ( [<vlist,...>] ) => WVW_GETRGBCOLOR ( [<vlist>] )
#xtranslate WVT_GETCLIPBOARD ( [<vlist,...>] ) => WVW_GETCLIPBOARD ( [<vlist>] )
#xtranslate WVT_SETCLIPBOARD ( [<vlist,...>] ) => WVW_SETCLIPBOARD ( [<vlist>] )
#xtranslate WVT_PASTEFROMCLIPBOARD ( [<vlist,...>] ) => WVW_PASTEFROMCLIPBOARD ( [<vlist>] )
#xtranslate WVT_KEYBOARD ( [<vlist,...>] ) => WVW_KEYBOARD ( [<vlist>] )
#xtranslate WVT_ISLBUTTONPRESSED ( [<vlist,...>] ) => WVW_ISLBUTTONPRESSED ( [<vlist>] )
#xtranslate WVT_GETPALETTE ( [<vlist,...>] ) => WVW_GETPALETTE ( [<vlist>] )
#xtranslate WVT_SETPALETTE ( [<vlist,...>] ) => WVW_SETPALETTE ( [<vlist>] )
#xtranslate WVT_CREATEFONT ( [<vlist,...>] ) => WVW_CREATEFONT ( [<vlist>] )
#xtranslate WVT_GETCURSORPOS ( [<vlist,...>] ) => WVW_GETCURSORPOS ( [<vlist>] )
#xtranslate WVT_CHOOSEFONT ( [<vlist,...>] ) => WVW_CHOOSEFONT ( [<vlist>] )
#xtranslate WVT_CHOOSECOLOR ( [<vlist,...>] ) => WVW_CHOOSECOLOR ( [<vlist>] )
#xtranslate WVT_LOADPICTURE ( [<vlist,...>] ) => WVW_LOADPICTURE ( [<vlist>] )
#xtranslate WVT_LOADFONT ( [<vlist,...>] ) => WVW_LOADFONT ( [<vlist>] )
#xtranslate WVT_LOADPEN ( [<vlist,...>] ) => WVW_LOADPEN ( [<vlist>] )
#xtranslate WVT_SETPEN ( [<vlist,...>] ) => WVW_SETPEN ( [<vlist>] )
#xtranslate WVT_SETBRUSH ( [<vlist,...>] ) => WVW_SETBRUSH ( [<vlist>] )
#xtranslate WVT_CREATEDIALOGDYNAMIC( [<vlist,...>] ) => WVW_CREATEDIALOGDYNAMIC( [<vlist>] )
#xtranslate WVT_CREATEDIALOGMODAL ( [<vlist,...>] ) => WVW_CREATEDIALOGMODAL ( [<vlist>] )
#xtranslate WVT__MAKEDLGTEMPLATE ( [<vlist,...>] ) => WVW__MAKEDLGTEMPLATE ( [<vlist>] )
#xtranslate WVT_LBADDSTRING ( [<vlist,...>] ) => WVW_LBADDSTRING ( [<vlist>] )
#xtranslate WVT_LBSETCURSEL ( [<vlist,...>] ) => WVW_LBSETCURSEL ( [<vlist>] )
#xtranslate WVT_CBADDSTRING ( [<vlist,...>] ) => WVW_CBADDSTRING ( [<vlist>] )
#xtranslate WVT_CBSETCURSEL ( [<vlist,...>] ) => WVW_CBSETCURSEL ( [<vlist>] )
#xtranslate WVT_DLGSETICON ( [<vlist,...>] ) => WVW_DLGSETICON ( [<vlist>] )
/********************************************************************
These functions do not exist in WVT.
*********************************************************************/
//WVT_SETVERTCARET ( [<vlist,...>] ) => WVW_SETVERTCARET ( [<vlist>] )
//WVT_SETDEFLINESPACING ( [<vlist,...>] ) => WVW_SETDEFLINESPACING ( [<vlist>] )
/********************************************************************/
/********************************************************************
PART-2: WINDOW DEPENDENT (additional nWinNum parameter)
*********************************************************************/
/********************************************************************/
/*
Notes:
nWinNum parameter passed as NIL will be translated by gtwvw into :
IF MainCoordMode
Topmost Window
ELSE
Current Window
ENDIF
Since gtwvt application can't be in MainCoordMode,
the following approach makes these functions work on current window.
You may want to replace NIL with your own function/variable by which you can decide
which window to direct your output to.
*/
#xtranslate WVT_SETMENU ( [<vlist,...>] ) => WVW_SETMENU ( NIL [, <vlist>] )
#xtranslate WVT_SETPOPUPMENU ( [<vlist,...>] ) => WVW_SETPOPUPMENU ( NIL [, <vlist>] )
#xtranslate WVT_GETLASTMENUEVENT ( [<vlist,...>] ) => WVW_GETLASTMENUEVENT ( NIL [, <vlist>] )
#xtranslate WVT_SETMENUKEYEVENT ( [<vlist,...>] ) => WVW_SETMENUKEYEVENT ( NIL [, <vlist>] )
#xtranslate WVT_DRAWMENUBAR ( [<vlist,...>] ) => WVW_DRAWMENUBAR ( NIL [, <vlist>] )
#xtranslate WVT_SETWINDOWCENTRE ( [<vlist,...>] ) => WVW_SETWINDOWCENTRE ( NIL [, <vlist>] )
#xtranslate WVT_PROCESSMESSAGES ( [<vlist,...>] ) => WVW_PROCESSMESSAGES ( NIL [, <vlist>] )
#xtranslate WVT_GETTITLE ( [<vlist,...>] ) => WVW_GETTITLE ( NIL [, <vlist>] )
#xtranslate WVT_INVALIDATERECT ( [<vlist,...>] ) => WVW_INVALIDATERECT ( NIL [, <vlist>] )
#xtranslate WVT_CLIENTTOSCREEN ( [<vlist,...>] ) => WVW_CLIENTTOSCREEN ( NIL [, <vlist>] )
#xtranslate WVT_SETFONT ( [<vlist,...>] ) => WVW_SETFONT ( NIL [, <vlist>] )
#xtranslate WVT_SETICON ( [<vlist,...>] ) => WVW_SETICON ( NIL [, <vlist>] )
#xtranslate WVT_SETTITLE ( [<vlist,...>] ) => WVW_SETTITLE ( NIL [, <vlist>] )
#xtranslate WVT_SETWINDOWPOS ( [<vlist,...>] ) => WVW_SETWINDOWPOS ( NIL [, <vlist>] )
#xtranslate WVT_GETWINDOWHANDLE ( [<vlist,...>] ) => WVW_GETWINDOWHANDLE ( NIL [, <vlist>] )
#xtranslate WVT_SETCODEPAGE ( [<vlist,...>] ) => WVW_SETCODEPAGE ( NIL [, <vlist>] )
#xtranslate WVT_CENTERWINDOW ( [<vlist,...>] ) => WVW_CENTERWINDOW ( NIL [, <vlist>] )
#xtranslate WVT_SETMOUSEMOVE ( [<vlist,...>] ) => WVW_SETMOUSEMOVE ( NIL [, <vlist>] )
#xtranslate WVT_GETXYFROMROWCOL ( [<vlist,...>] ) => WVW_GETXYFROMROWCOL ( NIL [, <vlist>] )
#xtranslate WVT_GETFONTINFO ( [<vlist,...>] ) => WVW_GETFONTINFO ( NIL [, <vlist>] )
#xtranslate WVT_MINIMIZE ( [<vlist,...>] ) => WVW_MINIMIZE ( NIL [, <vlist>] )
#xtranslate WVT_MAXIMIZE ( [<vlist,...>] ) => WVW_MAXIMIZE ( NIL [, <vlist>] )
#xtranslate WVT_SETONTOP ( [<vlist,...>] ) => WVW_SETONTOP ( NIL [, <vlist>] )
#xtranslate WVT_SETASNORMAL ( [<vlist,...>] ) => WVW_SETASNORMAL ( NIL [, <vlist>] )
#xtranslate WVT_SAVESCREEN ( [<vlist,...>] ) => WVW_SAVESCREEN ( NIL [, <vlist>] )
#xtranslate WVT_RESTSCREEN ( [<vlist,...>] ) => WVW_RESTSCREEN ( NIL [, <vlist>] )
#xtranslate WVT_DRAWLABELOBJ ( [<vlist,...>] ) => WVW_DRAWLABELOBJ ( NIL [, <vlist>] )
#xtranslate WVT_DRAWTOOLBUTTONSTATE ( [<vlist,...>] ) => WVW_DRAWTOOLBUTTONSTATE ( NIL [, <vlist>] )
#xtranslate WVT_DRAWSCROLLBUTTON ( [<vlist,...>] ) => WVW_DRAWSCROLLBUTTON ( NIL [, <vlist>] )
#xtranslate WVT_DRAWSCROLLTHUMBVERT ( [<vlist,...>] ) => WVW_DRAWSCROLLTHUMBVERT ( NIL [, <vlist>] )
#xtranslate WVT_DRAWSCROLLTHUMBHORZ ( [<vlist,...>] ) => WVW_DRAWSCROLLTHUMBHORZ ( NIL [, <vlist>] )
#xtranslate WVT_DRAWSHADEDRECT ( [<vlist,...>] ) => WVW_DRAWSHADEDRECT ( NIL [, <vlist>] )
#xtranslate WVT_DRAWTEXTBOX ( [<vlist,...>] ) => WVW_DRAWTEXTBOX ( NIL [, <vlist>] )
#xtranslate WVT_DRAWPROGRESSBAR ( [<vlist,...>] ) => WVW_DRAWPROGRESSBAR ( NIL [, <vlist>] )
#xtranslate WVT_TRACKPOPUPMENU ( [<vlist,...>] ) => WVW_TRACKPOPUPMENU ( NIL [, <vlist>] )
#xtranslate WVT_GETMENU ( [<vlist,...>] ) => WVW_GETMENU ( NIL [, <vlist>] )
#xtranslate WVT_SHOWWINDOW ( [<vlist,...>] ) => WVW_SHOWWINDOW ( NIL [, <vlist>] )
#xtranslate WVT_UPDATEWINDOW ( [<vlist,...>] ) => WVW_UPDATEWINDOW ( NIL [, <vlist>] )
#xtranslate WVT_DRAWBOXGET ( [<vlist,...>] ) => WVW_DRAWBOXGET ( NIL [, <vlist>] )
#xtranslate WVT_DRAWBOXRAISED ( [<vlist,...>] ) => WVW_DRAWBOXRAISED ( NIL [, <vlist>] )
#xtranslate WVT_DRAWBOXRECESSED ( [<vlist,...>] ) => WVW_DRAWBOXRECESSED ( NIL [, <vlist>] )
#xtranslate WVT_DRAWBOXGROUP ( [<vlist,...>] ) => WVW_DRAWBOXGROUP ( NIL [, <vlist>] )
#xtranslate WVT_DRAWBOXGROUPRAISED ( [<vlist,...>] ) => WVW_DRAWBOXGROUPRAISED ( NIL [, <vlist>] )
#xtranslate WVT_DRAWIMAGE ( [<vlist,...>] ) => WVW_DRAWIMAGE ( NIL [, <vlist>] )
#xtranslate WVT_DRAWLABEL ( [<vlist,...>] ) => WVW_DRAWLABEL ( NIL [, <vlist>] )
#xtranslate WVT_DRAWOUTLINE ( [<vlist,...>] ) => WVW_DRAWOUTLINE ( NIL [, <vlist>] )
#xtranslate WVT_DRAWLINE ( [<vlist,...>] ) => WVW_DRAWLINE ( NIL [, <vlist>] )
#xtranslate WVT_DRAWELLIPSE ( [<vlist,...>] ) => WVW_DRAWELLIPSE ( NIL [, <vlist>] )
#xtranslate WVT_DRAWRECTANGLE ( [<vlist,...>] ) => WVW_DRAWRECTANGLE ( NIL [, <vlist>] )
#xtranslate WVT_FILLRECTANGLE ( [<vlist,...>] ) => WVW_FILLRECTANGLE ( NIL [, <vlist>] )
#xtranslate WVT_DRAWCOLORRECT ( [<vlist,...>] ) => WVW_DRAWCOLORRECT ( NIL [, <vlist>] )
#xtranslate WVT_DRAWROUNDRECT ( [<vlist,...>] ) => WVW_DRAWROUNDRECT ( NIL [, <vlist>] )
#xtranslate WVT_DRAWFOCUSRECT ( [<vlist,...>] ) => WVW_DRAWFOCUSRECT ( NIL [, <vlist>] )
#xtranslate WVT_DRAWGRIDHORZ ( [<vlist,...>] ) => WVW_DRAWGRIDHORZ ( NIL [, <vlist>] )
#xtranslate WVT_DRAWGRIDVERT ( [<vlist,...>] ) => WVW_DRAWGRIDVERT ( NIL [, <vlist>] )
#xtranslate WVT_DRAWBUTTON ( [<vlist,...>] ) => WVW_DRAWBUTTON ( NIL [, <vlist>] )
#xtranslate WVT_SETMOUSEPOS ( [<vlist,...>] ) => WVW_SETMOUSEPOS ( NIL [, <vlist>] )
/* in gtwvt no pending rect is reflected as {0,0,0,0}
in gtwvw no pending rect is reflected as {y1,x1,y2,x2} where y1 > y2 or x1 > x2
thus we need some temporary var to check this exception
*/
#xtranslate WVT_GETPAINTRECT ( [<vlist,...>] ) => ( _wvwtemp_ := WVW_GETPAINTRECT( NIL [, <vlist>] ), ;
iif( _wvwtemp_\[ 1 \] > _wvwtemp_\[ 3 \] .OR. _wvwtemp_\[ 2 \] > _wvwtemp_\[ 4 \], ;
{ 0, 0, 0, 0 }, _wvwtemp_ ) )
#xtranslate WVT_SETPOINTER ( [<vlist,...>] ) => WVW_SETPOINTER ( NIL [, <vlist>] )
#xtranslate WVT_DRAWPICTURE ( [<vlist,...>] ) => WVW_DRAWPICTURE ( NIL [, <vlist>] )
#xtranslate WVT_DRAWLABELEX ( [<vlist,...>] ) => WVW_DRAWLABELEX ( NIL [, <vlist>] )
#xtranslate WVT_DRAWLINEEX ( [<vlist,...>] ) => WVW_DRAWLINEEX ( NIL [, <vlist>] )
#xtranslate WVT_DRAWOUTLINEEX ( [<vlist,...>] ) => WVW_DRAWOUTLINEEX ( NIL [, <vlist>] )
#xtranslate WVT_MESSAGEBOX ( [<vlist,...>] ) => WVW_MESSAGEBOX ( NIL [, <vlist>] )
#xtranslate WVT_SETTOOLTIPACTIVE ( [<vlist,...>] ) => WVW_SETTOOLTIPACTIVE ( NIL [, <vlist>] )
#xtranslate WVT_SETTOOLTIP ( [<vlist,...>] ) => WVW_SETTOOLTIP ( NIL [, <vlist>] )
#xtranslate WVT_SETTOOLTIPTEXT ( [<vlist,...>] ) => WVW_SETTOOLTIPTEXT ( NIL [, <vlist>] )
#xtranslate WVT_SETTOOLTIPMARGIN ( [<vlist,...>] ) => WVW_SETTOOLTIPMARGIN ( NIL [, <vlist>] )
#xtranslate WVT_SETTOOLTIPWIDTH ( [<vlist,...>] ) => WVW_SETTOOLTIPWIDTH ( NIL [, <vlist>] )
#xtranslate WVT_SETTOOLTIPBKCOLOR ( [<vlist,...>] ) => WVW_SETTOOLTIPBKCOLOR ( NIL [, <vlist>] )
#xtranslate WVT_SETTOOLTIPTEXTCOLOR ( [<vlist,...>] ) => WVW_SETTOOLTIPTEXTCOLOR ( NIL [, <vlist>] )
#xtranslate WVT_SETTOOLTIPTITLE ( [<vlist,...>] ) => WVW_SETTOOLTIPTITLE ( NIL [, <vlist>] )
#xtranslate WVT_GETTOOLTIPWIDTH ( [<vlist,...>] ) => WVW_GETTOOLTIPWIDTH ( NIL [, <vlist>] )
#xtranslate WVT_GETTOOLTIPBKCOLOR ( [<vlist,...>] ) => WVW_GETTOOLTIPBKCOLOR ( NIL [, <vlist>] )
#xtranslate WVT_GETTOOLTIPTEXTCOLOR ( [<vlist,...>] ) => WVW_GETTOOLTIPTEXTCOLOR ( NIL [, <vlist>] )
/********************************************************************
Timer functions. WARNING: WVT implementation is slightly different.
*********************************************************************/
#xtranslate WVT_SETTIMER ( [<vlist,...>] ) => WVW_SETTIMER ( NIL [, <vlist>] )
#xtranslate WVT_KILLTIMER ( [<vlist,...>] ) => WVW_KILLTIMER ( NIL [, <vlist>] )
/********************************************************************
WVW_DRAWSTATUSBAR is for compatibility only.
Recommended to use WVW_SBxxxx functions instead.
*********************************************************************/
#xtranslate WVT_DRAWSTATUSBAR ( [<vlist,...>] ) => WVW_DRAWSTATUSBAR ( NIL [, <vlist>] )
/********************************************************************
Native Statusbar functions. Currently none in WVT.
WVT uses different approach (WVT_DRAWSTATUSBAR)
*********************************************************************/
//WVW_SBCREATE
//WVW_SBDESTROY
//WVW_SBADDPART
//WVW_SBREFRESH
//WVW_SBSETTEXT
//WVW_SBGETTEXT
//WVW_SBGETPARTS
/********************************************************************
Toolbar functions. Currently none in WVT.
WVT uses different approach.
*********************************************************************/
//WVW_TBCREATE
//WVW_TBADDBUTTON
//WVW_TBBUTTONCOUNT
//WVW_TBDELBUTTON
//WVW_TBENABLEBUTTON
//WVW_TBDESTROY
/********************************************************************
Scrollbar functions. Currently none in WVT.
WVT uses different approach.
*********************************************************************/
//WVW_XBCREATE
//WVW_XBDESTROY
//WVW_XBUPDATE
//WVW_XBENABLE
/********************************************************************
Line Spacing. Currently none in WVT.
*********************************************************************/
//WVW_SETLINESPACING
/********************************************************************/
/********************************************************************
PART-3: RESERVED FUNCTION NAMES ("callback" prg functions, called by gtwvw)
*********************************************************************/
/********************************************************************/
/*
Notes:
Generally, each function is supplied additional nWinNum parameter at the front.
nWinNum is 0-based (with 0 being the Main Window).
If you have single (main) window, no further change is needed.
However, once you open a second window you you should decide what to do
with nWinNum parameter in these callback functions.
Typically your WVT_xxx function will need adjustment like below:
FUNCTION WVT_xxx(...)
LOCAL nOldWin := wvw_nsetcurwindow( nWinNum ) //<-- add this
...existing code...
wvw_nsetcurwindow( nOldWin ) //<--add this
RETURN NIL
Although the above may be enough, each individual function may need careful review
to make sure it follows gtwvw convention. For example, if you have multiple
exit points in that function.
IMPORTANT NOTES ON MainCoord Mode:
Using wvw_nsetcurwindow() in MainCoord Mode may not be appropriate, because
current window is reset to 0 upon returning from a standard GT function
(DispOut(), QQout(), DevOut(), etc.). Remember that these functions
may also be called indirectly through many other functions/commands
(Alert(), Achoice(), GET, etc.).
You may want to replace wvw_nsetcurwindow() with your own function in this case.
*/
#xtranslate FUNCTION WVT_PAINT( [<vlist,...>] ) => FUNCTION WVW_PAINT( nWinNum [,<vlist>] )
#xtranslate PROCEDURE WVT_PAINT( [<vlist,...>] ) => PROCEDURE WVW_PAINT( nWinNum [,<vlist>] )
#xtranslate WVT_PAINT( [<vlist,...>] ) => WVW_PAINT( NIL [,<vlist>] )
#xtranslate FUNCTION WVT_SETFOCUS( [<vlist,...>] ) => FUNCTION WVW_SETFOCUS( nWinNum [,<vlist>] )
#xtranslate PROCEDURE WVT_SETFOCUS( [<vlist,...>] ) => PROCEDURE WVW_SETFOCUS( nWinNum [,<vlist>] )
#xtranslate WVT_SETFOCUS( [<vlist,...>] ) => WVW_SETFOCUS( NIL [,<vlist>] )
#xtranslate FUNCTION WVT_KILLFOCUS( [<vlist,...>] ) => FUNCTION WVW_KILLFOCUS( nWinNum [,<vlist>] )
#xtranslate PROCEDURE WVT_KILLFOCUS( [<vlist,...>] ) => PROCEDURE WVW_KILLFOCUS( nWinNum [,<vlist>] )
#xtranslate WVT_KILLFOCUS( [<vlist,...>] ) => WVW_KILLFOCUS( NIL [,<vlist>] )
#xtranslate FUNCTION WVT_MOUSE( [<vlist,...>] ) => FUNCTION WVW_MOUSE( nWinNum [,<vlist>] )
#xtranslate PROCEDURE WVT_MOUSE( [<vlist,...>] ) => PROCEDURE WVW_MOUSE( nWinNum [,<vlist>] )
#xtranslate WVT_MOUSE( [<vlist,...>] ) => WVW_MOUSE( NIL [,<vlist>] )
#xtranslate FUNCTION WVT_TIMER() => FUNCTION WVW_TIMER( nWinNum, hWnd, message, wParam, lParam )
#xtranslate PROCEDURE WVT_TIMER() => PROCEDURE WVW_TIMER( nWinNum, hWnd, message, wParam, lParam )
/* Currently WVT_TIMER is never called by GTWVT.
There should never be any existing usage of this function.
*/
/********************************************************************
WVT_MENUSELECT does not exist in WVT.
*********************************************************************/
//WVT_MENUSELECT

266
harbour/extras/gtwvw/wvt2wvw.ch Normal file
View File

@@ -0,0 +1,266 @@
/*
* $Id$
*/
/*
Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
Mapping of gtwvt functions and their coresponding ones in gtwvw.
header file to be included in your gtwvt program if you
wish to link it with gtwvw.
WARNING:
This mapping is made globally. Should you find any error(s) please let me know.
*/
MEMVAR _wvwtemp_
/* PART-1: WINDOW INDEPENDENT (the same parameter list) */
/* ==================================================== */
#xtranslate Wvt_CreateMenu ( [<vlist,...>] ) => wvw_CreateMenu ( [<vlist>] )
#xtranslate Wvt_CreatePOPUPMenu ( [<vlist,...>] ) => wvw_CreatePOPUPMenu ( [<vlist>] )
#xtranslate Wvt_AppendMenu ( [<vlist,...>] ) => wvw_AppendMenu ( [<vlist>] )
#xtranslate Wvt_DeleteMenu ( [<vlist,...>] ) => wvw_DeleteMenu ( [<vlist>] )
#xtranslate Wvt_DestroyMenu ( [<vlist,...>] ) => wvw_DestroyMenu ( [<vlist>] )
#xtranslate Wvt_EnableMenuItem ( [<vlist,...>] ) => wvw_EnableMenuItem ( [<vlist>] )
#xtranslate Wvt_GetScreenWidth ( [<vlist,...>] ) => wvw_GetScreenWidth ( [<vlist>] )
#xtranslate Wvt_GetScreenHeight ( [<vlist,...>] ) => wvw_GetScreenHeight ( [<vlist>] )
#xtranslate Wvt_SetAltF4Close ( [<vlist,...>] ) => wvw_SetAltF4Close ( [<vlist>] )
#xtranslate Wvt_GetRGBColor ( [<vlist,...>] ) => wvw_GetRGBColor ( [<vlist>] )
#xtranslate Wvt_GetClipboard ( [<vlist,...>] ) => wvw_GetClipboard ( [<vlist>] )
#xtranslate Wvt_SetClipboard ( [<vlist,...>] ) => wvw_SetClipboard ( [<vlist>] )
#xtranslate Wvt_PasteFromClipboard ( [<vlist,...>] ) => wvw_PasteFromClipboard ( [<vlist>] )
#xtranslate Wvt_Keyboard ( [<vlist,...>] ) => wvw_Keyboard ( [<vlist>] )
#xtranslate Wvt_IsLButtonPressed ( [<vlist,...>] ) => wvw_IsLButtonPressed ( [<vlist>] )
#xtranslate Wvt_GetPalette ( [<vlist,...>] ) => wvw_GetPalette ( [<vlist>] )
#xtranslate Wvt_SetPalette ( [<vlist,...>] ) => wvw_SetPalette ( [<vlist>] )
#xtranslate Wvt_CreateFont ( [<vlist,...>] ) => wvw_CreateFont ( [<vlist>] )
#xtranslate Wvt_GetCursorPos ( [<vlist,...>] ) => wvw_GetCursorPos ( [<vlist>] )
#xtranslate Wvt_ChooseFont ( [<vlist,...>] ) => wvw_ChooseFont ( [<vlist>] )
#xtranslate Wvt_ChooseColor ( [<vlist,...>] ) => wvw_ChooseColor ( [<vlist>] )
#xtranslate Wvt_LoadPicture ( [<vlist,...>] ) => wvw_LoadPicture ( [<vlist>] )
#xtranslate Wvt_LoadFont ( [<vlist,...>] ) => wvw_LoadFont ( [<vlist>] )
#xtranslate Wvt_LoadPen ( [<vlist,...>] ) => wvw_LoadPen ( [<vlist>] )
#xtranslate Wvt_SetPen ( [<vlist,...>] ) => wvw_SetPen ( [<vlist>] )
#xtranslate Wvt_SetBrush ( [<vlist,...>] ) => wvw_SetBrush ( [<vlist>] )
#xtranslate Wvt_CreateDialogDynamic( [<vlist,...>] ) => wvw_CreateDialogDynamic( [<vlist>] )
#xtranslate Wvt_CreateDialogModal ( [<vlist,...>] ) => wvw_CreateDialogModal ( [<vlist>] )
#xtranslate Wvt__MakeDlgTemplate ( [<vlist,...>] ) => wvw__MakeDlgTemplate ( [<vlist>] )
#xtranslate Wvt_LBAddString ( [<vlist,...>] ) => wvw_LBAddString ( [<vlist>] )
#xtranslate Wvt_LBSetCurSel ( [<vlist,...>] ) => wvw_LBSetCurSel ( [<vlist>] )
#xtranslate Wvt_CBAddString ( [<vlist,...>] ) => wvw_cbAddString ( [<vlist>] )
#xtranslate Wvt_CBSetCurSel ( [<vlist,...>] ) => wvw_CBSetCurSel ( [<vlist>] )
#xtranslate Wvt_DlgSetIcon ( [<vlist,...>] ) => wvw_DlgSetIcon ( [<vlist>] )
/* These functions do not exist in WVT. */
//Wvt_SetVertCaret ( [<vlist,...>] ) => wvw_SetVertCaret ( [<vlist>] )
//Wvt_SetDefLineSpacing ( [<vlist,...>] ) => wvw_SetDefLineSpacing ( [<vlist>] )
/* PART-2: WINDOW DEPENDENT (additional nWinNum parameter) */
/* ======================================================= */
/*
Notes:
nWinNum parameter passed as NIL will be translated by gtwvw into :
IF MainCoordMode
Topmost Window
ELSE
Current Window
ENDIF
Since gtwvt application can't be in MainCoordMode,
the following approach makes these functions work on current window.
You may want to replace NIL with your own function/variable by which you can decide
which window to direct your output to.
*/
#xtranslate Wvt_SetMenu ( [<vlist,...>] ) => wvw_SetMenu ( NIL [, <vlist>] )
#xtranslate Wvt_SetPopupMenu ( [<vlist,...>] ) => wvw_SetPopupMenu ( NIL [, <vlist>] )
#xtranslate Wvt_GetLastMenuEvent ( [<vlist,...>] ) => wvw_GetLastMenuEvent ( NIL [, <vlist>] )
#xtranslate Wvt_SetMenuKeyEvent ( [<vlist,...>] ) => wvw_SetMenuKeyEvent ( NIL [, <vlist>] )
#xtranslate Wvt_DrawMenuBar ( [<vlist,...>] ) => wvw_DrawMenuBar ( NIL [, <vlist>] )
#xtranslate WVT_SETWINDOWCENTRE ( [<vlist,...>] ) => wvw_SetWindowCentre ( NIL [, <vlist>] )
#xtranslate Wvt_ProcessMessages ( [<vlist,...>] ) => wvw_ProcessMessages ( NIL [, <vlist>] )
#xtranslate Wvt_GetTitle ( [<vlist,...>] ) => wvw_GetTitle ( NIL [, <vlist>] )
#xtranslate Wvt_InvalidateRect ( [<vlist,...>] ) => wvw_InvalidateRect ( NIL [, <vlist>] )
#xtranslate Wvt_ClientToScreen ( [<vlist,...>] ) => wvw_ClientToScreen ( NIL [, <vlist>] )
#xtranslate Wvt_SetFont ( [<vlist,...>] ) => wvw_SetFont ( NIL [, <vlist>] )
#xtranslate Wvt_SetIcon ( [<vlist,...>] ) => wvw_SetIcon ( NIL [, <vlist>] )
#xtranslate Wvt_SetTitle ( [<vlist,...>] ) => wvw_SetTitle ( NIL [, <vlist>] )
#xtranslate Wvt_SetWindowPos ( [<vlist,...>] ) => wvw_SetWindowPos ( NIL [, <vlist>] )
#xtranslate Wvt_GetWindowHandle ( [<vlist,...>] ) => wvw_GetWindowHandle ( NIL [, <vlist>] )
#xtranslate Wvt_SetCodepage ( [<vlist,...>] ) => wvw_SetCodepage ( NIL [, <vlist>] )
#xtranslate Wvt_CenterWindow ( [<vlist,...>] ) => wvw_CenterWindow ( NIL [, <vlist>] )
#xtranslate Wvt_SetMouseMove ( [<vlist,...>] ) => wvw_SetMouseMove ( NIL [, <vlist>] )
#xtranslate Wvt_GetXYFromRowCol ( [<vlist,...>] ) => wvw_GetXYFromRowCol ( NIL [, <vlist>] )
#xtranslate Wvt_GetFontInfo ( [<vlist,...>] ) => wvw_GetFontInfo ( NIL [, <vlist>] )
#xtranslate Wvt_Minimize ( [<vlist,...>] ) => wvw_Minimize ( NIL [, <vlist>] )
#xtranslate Wvt_Maximize ( [<vlist,...>] ) => wvw_Maximize ( NIL [, <vlist>] )
#xtranslate Wvt_SetOnTop ( [<vlist,...>] ) => wvw_SetOnTop ( NIL [, <vlist>] )
#xtranslate Wvt_SetAsNormal ( [<vlist,...>] ) => wvw_SetAsNormal ( NIL [, <vlist>] )
#xtranslate Wvt_SaveScreen ( [<vlist,...>] ) => wvw_SaveScreen ( NIL [, <vlist>] )
#xtranslate Wvt_RestScreen ( [<vlist,...>] ) => wvw_RestScreen ( NIL [, <vlist>] )
#xtranslate Wvt_DrawLabelObj ( [<vlist,...>] ) => wvw_DrawLabelObj ( NIL [, <vlist>] )
#xtranslate Wvt_DrawToolButtonState ( [<vlist,...>] ) => wvw_DrawToolButtonState ( NIL [, <vlist>] )
#xtranslate Wvt_DrawScrollButton ( [<vlist,...>] ) => wvw_DrawScrollButton ( NIL [, <vlist>] )
#xtranslate Wvt_DrawScrollThumbVert ( [<vlist,...>] ) => wvw_DrawScrollThumbVert ( NIL [, <vlist>] )
#xtranslate Wvt_DrawScrollThumbHorz ( [<vlist,...>] ) => wvw_DrawScrollThumbHorz ( NIL [, <vlist>] )
#xtranslate Wvt_DrawShadedRect ( [<vlist,...>] ) => wvw_DrawShadedRect ( NIL [, <vlist>] )
#xtranslate Wvt_DrawTextBox ( [<vlist,...>] ) => wvw_DrawTextBox ( NIL [, <vlist>] )
#xtranslate Wvt_DrawProgressBar ( [<vlist,...>] ) => wvw_DrawProgressBar ( NIL [, <vlist>] )
#xtranslate Wvt_TrackPopupMenu ( [<vlist,...>] ) => wvw_TrackPopupMenu ( NIL [, <vlist>] )
#xtranslate Wvt_GetMenu ( [<vlist,...>] ) => wvw_GetMenu ( NIL [, <vlist>] )
#xtranslate Wvt_ShowWindow ( [<vlist,...>] ) => wvw_ShowWindow ( NIL [, <vlist>] )
#xtranslate Wvt_UpdateWINDOW ( [<vlist,...>] ) => wvw_UpdateWindow ( NIL [, <vlist>] )
#xtranslate Wvt_DrawBoxGet ( [<vlist,...>] ) => wvw_DrawBoxGet ( NIL [, <vlist>] )
#xtranslate Wvt_DrawBoxRaised ( [<vlist,...>] ) => wvw_DrawBoxRaised ( NIL [, <vlist>] )
#xtranslate Wvt_DrawBoxRecessed ( [<vlist,...>] ) => wvw_DrawBoxRecessed ( NIL [, <vlist>] )
#xtranslate Wvt_DrawBoxGroup ( [<vlist,...>] ) => wvw_DrawBoxGroup ( NIL [, <vlist>] )
#xtranslate Wvt_DrawBoxGroupRaised ( [<vlist,...>] ) => wvw_DrawBoxGroupRaised ( NIL [, <vlist>] )
#xtranslate Wvt_DrawImage ( [<vlist,...>] ) => wvw_DrawImage ( NIL [, <vlist>] )
#xtranslate Wvt_DrawLabel ( [<vlist,...>] ) => wvw_DrawLabel ( NIL [, <vlist>] )
#xtranslate Wvt_DrawOutline ( [<vlist,...>] ) => wvw_DrawOutline ( NIL [, <vlist>] )
#xtranslate Wvt_DrawLine ( [<vlist,...>] ) => wvw_DrawLine ( NIL [, <vlist>] )
#xtranslate Wvt_DrawEllipse ( [<vlist,...>] ) => wvw_DrawEllipse ( NIL [, <vlist>] )
#xtranslate Wvt_DrawRectangle ( [<vlist,...>] ) => wvw_DrawRectangle ( NIL [, <vlist>] )
#xtranslate WVT_FILLRECTANGLE ( [<vlist,...>] ) => wvw_FillRectangle ( NIL [, <vlist>] )
#xtranslate Wvt_DrawColorRect ( [<vlist,...>] ) => wvw_DrawColorRect ( NIL [, <vlist>] )
#xtranslate Wvt_DrawRoundRect ( [<vlist,...>] ) => wvw_DrawRoundRect ( NIL [, <vlist>] )
#xtranslate Wvt_DrawFocusRect ( [<vlist,...>] ) => wvw_DrawFocusRect ( NIL [, <vlist>] )
#xtranslate Wvt_DrawGridHorz ( [<vlist,...>] ) => wvw_DrawGridHorz ( NIL [, <vlist>] )
#xtranslate Wvt_DrawGridVert ( [<vlist,...>] ) => wvw_DrawGridVert ( NIL [, <vlist>] )
#xtranslate Wvt_DrawButton ( [<vlist,...>] ) => wvw_DrawButton ( NIL [, <vlist>] )
#xtranslate Wvt_SetMousePos ( [<vlist,...>] ) => wvw_SetMousePos ( NIL [, <vlist>] )
/* in gtwvt no pending rect is reflected as {0,0,0,0}
in gtwvw no pending rect is reflected as {y1,x1,y2,x2} where y1 > y2 or x1 > x2
thus we need some temporary var to check this exception
*/
#xtranslate Wvt_GetPaintRect ( [<vlist,...>] ) => ( _wvwtemp_ := wvw_GetPaintRect( NIL [, <vlist>] ), ;
iif( _wvwtemp_\[ 1 \] > _wvwtemp_\[ 3 \] .OR. _wvwtemp_\[ 2 \] > _wvwtemp_\[ 4 \], ;
{ 0, 0, 0, 0 }, _wvwtemp_ ) )
#xtranslate Wvt_SetPointer ( [<vlist,...>] ) => wvw_SetPointer ( NIL [, <vlist>] )
#xtranslate Wvt_DrawPicture ( [<vlist,...>] ) => wvw_DrawPicture ( NIL [, <vlist>] )
#xtranslate Wvt_DrawLabelEx ( [<vlist,...>] ) => wvw_DrawLabelEx ( NIL [, <vlist>] )
#xtranslate Wvt_DrawLineEx ( [<vlist,...>] ) => wvw_DrawLineEx ( NIL [, <vlist>] )
#xtranslate Wvt_DrawOutlineEx ( [<vlist,...>] ) => wvw_DrawOutlineEx ( NIL [, <vlist>] )
#xtranslate Wvt_MessageBox ( [<vlist,...>] ) => wvw_MessageBox ( NIL [, <vlist>] )
#xtranslate Wvt_SetToolTipActive ( [<vlist,...>] ) => wvw_SetToolTipActive ( NIL [, <vlist>] )
#xtranslate Wvt_SetToolTip ( [<vlist,...>] ) => wvw_SetToolTip ( NIL [, <vlist>] )
#xtranslate Wvt_SetToolTipText ( [<vlist,...>] ) => wvw_SetToolTipText ( NIL [, <vlist>] )
#xtranslate Wvt_SetToolTipMargin ( [<vlist,...>] ) => wvw_SetToolTipMargin ( NIL [, <vlist>] )
#xtranslate Wvt_SetToolTipWidth ( [<vlist,...>] ) => wvw_SetToolTipWidth ( NIL [, <vlist>] )
#xtranslate Wvt_SetToolTipBkColor ( [<vlist,...>] ) => wvw_SetToolTipBkColor ( NIL [, <vlist>] )
#xtranslate Wvt_SetToolTipTextColor ( [<vlist,...>] ) => wvw_SetToolTipTextColor ( NIL [, <vlist>] )
#xtranslate Wvt_SetToolTipTitle ( [<vlist,...>] ) => wvw_SetToolTipTitle ( NIL [, <vlist>] )
#xtranslate Wvt_GetToolTipWidth ( [<vlist,...>] ) => wvw_GetToolTipWidth ( NIL [, <vlist>] )
#xtranslate Wvt_GetToolTipBKColor ( [<vlist,...>] ) => wvw_GetToolTipBkColor ( NIL [, <vlist>] )
#xtranslate Wvt_GetToolTipTextColor ( [<vlist,...>] ) => wvw_GetToolTipTextColor ( NIL [, <vlist>] )
/* Timer functions. WARNING: WVT implementation is slightly different. */
#xtranslate Wvt_SetTimer ( [<vlist,...>] ) => wvw_SetTimer ( NIL [, <vlist>] )
#xtranslate Wvt_KillTimer ( [<vlist,...>] ) => wvw_KillTimer ( NIL [, <vlist>] )
/* wvw_DrawStatusBar() is for compatibility only.
Recommended to use wvw_sb*() functions instead. */
#xtranslate Wvt_DrawStatusBar ( [<vlist,...>] ) => wvw_DrawStatusBar ( NIL [, <vlist>] )
/* Native Statusbar functions. Currently none in WVT.
WVT uses different approach (Wvt_DrawStatusBar) */
//wvw_sbCreate
//wvw_sbDestroy
//wvw_sbAddPart
//wvw_sbRefresh
//wvw_sbSetText
//wvw_sbGetText
//wvw_sbGetParts
/* Toolbar functions. Currently none in WVT. WVT uses different approach. */
//wvw_tbCreate
//wvw_tbAddButton
//wvw_tbButtonCount
//wvw_tbDelButton
//wvw_tbEnableButton
//wvw_tbDestroy
/* Scrollbar functions. Currently none in WVT. WVT uses different approach. */
//wvw_xbCreate
//wvw_xbDestroy
//wvw_xbUpdate
//wvw_xbEnable
/* Line Spacing. Currently none in WVT. */
//wvw_SetLineSpacing
/* PART-3: RESERVED FUNCTION NAMES ("callback" prg functions, called by gtwvw) */
/* =========================================================================== */
/*
Notes:
Generally, each function is supplied additional nWinNum parameter at the front.
nWinNum is 0-based (with 0 being the Main Window).
If you have single (main) window, no further change is needed.
However, once you open a second window you you should decide what to do
with nWinNum parameter in these callback functions.
Typically your WVT_xxx function will need adjustment like below:
FUNCTION WVT_xxx(...)
LOCAL nOldWin := wvw_nSetCurWindow( nWinNum ) //<-- add this
...existing code...
wvw_nSetCurWindow( nOldWin ) //<--add this
RETURN NIL
Although the above may be enough, each individual function may need careful review
to make sure it follows gtwvw convention. For example, if you have multiple
exit points in that function.
IMPORTANT NOTES ON MainCoord Mode:
Using wvw_nSetCurWindow() in MainCoord Mode may not be appropriate, because
current window is reset to 0 upon returning from a standard GT function
(DispOut(), QQout(), DevOut(), etc.). Remember that these functions
may also be called indirectly through many other functions/commands
(Alert(), AChoice(), GET, etc.).
You may want to replace wvw_nSetCurWindow() with your own function in this case.
*/
#xtranslate FUNCTION Wvt_Paint( [<vlist,...>] ) => FUNCTION wvw_Paint( nWinNum [,<vlist>] )
#xtranslate PROCEDURE Wvt_Paint( [<vlist,...>] ) => PROCEDURE wvw_Paint( nWinNum [,<vlist>] )
#xtranslate Wvt_Paint( [<vlist,...>] ) => wvw_Paint( NIL [,<vlist>] )
#xtranslate FUNCTION Wvt_SetFocus( [<vlist,...>] ) => FUNCTION wvw_SetFocus( nWinNum [,<vlist>] )
#xtranslate PROCEDURE Wvt_SetFocus( [<vlist,...>] ) => PROCEDURE wvw_SetFocus( nWinNum [,<vlist>] )
#xtranslate Wvt_SetFocus( [<vlist,...>] ) => wvw_SetFocus( NIL [,<vlist>] )
#xtranslate FUNCTION Wvt_KillFocus( [<vlist,...>] ) => FUNCTION wvw_KillFocus( nWinNum [,<vlist>] )
#xtranslate PROCEDURE Wvt_KillFocus( [<vlist,...>] ) => PROCEDURE wvw_KillFocus( nWinNum [,<vlist>] )
#xtranslate Wvt_KillFocus( [<vlist,...>] ) => wvw_KillFocus( NIL [,<vlist>] )
#xtranslate FUNCTION Wvt_Mouse( [<vlist,...>] ) => FUNCTION wvw_Mouse( nWinNum [,<vlist>] )
#xtranslate PROCEDURE Wvt_Mouse( [<vlist,...>] ) => PROCEDURE wvw_Mouse( nWinNum [,<vlist>] )
#xtranslate Wvt_Mouse( [<vlist,...>] ) => wvw_Mouse( NIL [,<vlist>] )
#xtranslate FUNCTION Wvt_Timer() => FUNCTION wvw_Timer( nWinNum, hWnd, message, wParam, lParam )
#xtranslate PROCEDURE Wvt_Timer() => PROCEDURE wvw_Timer( nWinNum, hWnd, message, wParam, lParam )
/* Currently Wvt_Timer() is never called by GTWVT.
There should never be any existing usage of this function.
*/
/* Wvt_MenuSelect does not exist in WVT. */
//Wvt_MenuSelect