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

2012-09-12 07:33 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/gtwvg/crt.prg
    % Cleanup.

  * contrib/gtwvg/gtwvg.c
  * contrib/gtwvg/gtwvg.h
    ! Pacified warnings.
This commit is contained in:
Pritpal Bedi
2012-09-12 14:35:37 +00:00
parent 25476a6a41
commit 3f74acd4f3
4 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -16,6 +16,14 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-09-12 07:33 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/gtwvg/crt.prg
% Cleanup.
* contrib/gtwvg/gtwvg.c
* contrib/gtwvg/gtwvg.h
! Pacified warnings.
2012-09-12 13:02 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbexpat/3rd/expat/expat.dif
* contrib/hbexpat/3rd/expat/expat.h

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

@@ -359,8 +359,6 @@ METHOD WvgCrt:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::lHasInputFocus := .t.
ENDIF
// HB_GtInfo( HB_GTI_NOTIFIERBLOCKGUI, {|nEvent, ...| ::notifier( nEvent, ... ) } )
RETURN Self
/*----------------------------------------------------------------------*/

4
harbour/contrib/gtwvg/gtwvg.c
View File

@@ -2821,7 +2821,7 @@ static void hb_gt_wvt_Exit( PHB_GT pGT )
PHB_ITEM pEvParams = hb_itemNew( NULL );
hb_arrayNew( pEvParams, 2 );
hb_arraySetNInt( pEvParams, 1, ( HB_MAXINT ) ( HB_PTRDIFF ) pWVT->hWnd );
hb_arraySetNI( pEvParams, 2, pWVT->threadNO );
hb_arraySetNI( pEvParams, 2, ( int ) pWVT->threadNO );
hb_gt_wvt_FireEvent( pWVT, HB_GTE_CLOSED, pEvParams );
}
@@ -4214,7 +4214,7 @@ static void hb_gt_wvt_Refresh( PHB_GT pGT )
PHB_ITEM pEvParams = hb_itemNew( NULL );
hb_arrayNew( pEvParams, 2 );
hb_arraySetNInt( pEvParams, 1, ( HB_MAXINT ) ( HB_PTRDIFF ) pWVT->hWnd );
hb_arraySetNI( pEvParams, 2, pWVT->threadNO );
hb_arraySetNI( pEvParams, 2, ( int ) pWVT->threadNO );
hb_gt_wvt_FireEvent( pWVT, HB_GTE_CREATED, pEvParams );
}
}

2
harbour/contrib/gtwvg/gtwvg.h
View File

@@ -468,7 +468,7 @@ typedef struct
PHB_ITEM pNotifierGUI; /* Notifier to Wvg*Parts if embedded into a GT Window */
int threadNO; /* Will hold the current THREAD No */
HB_THREAD_NO threadNO; /* Will hold the current THREAD No */
} HB_GTWVT, * PHB_GTWVT;