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

2007-11-26 08:00 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* harbour/contrib/gtwvg/wvtcore.c
    ! Fixed side effects of copy/paste in hb_wvt_gtDlgProcModal().
  * harbour/contrib/gtwvg/wvtclass.prg
    * Changed cCaption[1] to left( cCaption,1 ) to work without xhb.lib.
This commit is contained in:
Pritpal Bedi
2007-11-26 16:04:16 +00:00
parent c101d97267
commit 1f1665f0cb
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/contrib/gtwvg/wvtclass.prg
View File

@@ -3335,7 +3335,7 @@ METHOD AddItem(cCaption, bAction) CLASS wvtMenu
aItem:= {MF_POPUP,bAction:hMenu,cCaption,bAction} // bAction is a wvtMenu object reference
ELSEIF HB_ISBLOCK(bAction)
aItem:= {MF_STRING,::MenuItemId++,cCaption,bAction} // bAction is a code block to execute
ELSEIF cCaption[1]=="-"
ELSEIF left( cCaption, 1 )=="-"
aItem:= {MF_SEPARATOR,0,0,NIL}
ELSE
//Throw( ErrorNew( "wvtMenu", 3101, "wvtMenu:AddItem()", "Argument Error", { cCaption, bAction },"WVT.PRG" ) )

2
harbour/contrib/gtwvg/wvtcore.c
View File

@@ -527,7 +527,7 @@ HB_EXPORT BOOL CALLBACK hb_wvt_gtDlgProcModal( HWND hDlg, UINT message, WPARAM w
if( hb_vmRequestReenter() )
{
hb_vmPushEvalSym();
hb_vmPush( _s->pFunc[ iIndex ] );
hb_vmPush( _s->pFuncModal[ iIndex ] );
hb_vmPushNumInt( ( HB_LONG ) ( HB_PTRDIFF ) hDlg );
hb_vmPushNumInt( message );
hb_vmPushNumInt( wParam );