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

2008-11-15 23:59 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* harbour/contrib/gtwvg/gtwvg.c
  * harbour/contrib/gtwvg/wvgcrt.prg
    ! Further tuned up the resizing behavior. Silly typos.
This commit is contained in:
Pritpal Bedi
2008-11-16 08:05:11 +00:00
parent 0caad823a1
commit 15dbc1c7e3
3 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-11-15 23:59 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/gtwvg/gtwvg.c
* harbour/contrib/gtwvg/wvgcrt.prg
! Further tuned up the resizing behavior. Silly typos.
2008-11-15 23:01 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/gtwvg/gtwvg.c
! Further tuned up the resizing behavior.

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

@@ -780,8 +780,8 @@ static BOOL hb_gt_wvt_IsSizeChanged( PHB_GTWVT pWVT )
if( pWVT->bResizable )
{
int iw = pWVT->iGuiWidth;
int ih = pWVT->iGuiHeight;
int iw = pWVT->PTEXTSIZE.x * pWVT->COLS;
int ih = pWVT->PTEXTSIZE.y * pWVT->ROWS;
if( pWVT->ResizeMode == HB_GTI_RESIZEMODE_FONT )
bSizeChanged = hb_gt_wvt_FitSize( pWVT );
@@ -795,8 +795,8 @@ static BOOL hb_gt_wvt_IsSizeChanged( PHB_GTWVT pWVT )
hb_arrayNew( pEvParams, 4 );
hb_arraySetNI( pEvParams, 1, iw );
hb_arraySetNI( pEvParams, 2, ih );
hb_arraySetNI( pEvParams, 3, pWVT->iGuiWidth );
hb_arraySetNI( pEvParams, 4, pWVT->iGuiHeight );
hb_arraySetNI( pEvParams, 3, pWVT->PTEXTSIZE.x * pWVT->COLS );
hb_arraySetNI( pEvParams, 4, pWVT->PTEXTSIZE.y * pWVT->ROWS );
hb_gt_wvt_AddCharToInputQueue( pWVT, HB_K_RESIZE );
hb_gt_wvt_FireEvent( pWVT, HB_GTE_RESIZED, pEvParams );

11
harbour/contrib/gtwvg/wvgcrt.prg
View File

@@ -991,12 +991,7 @@ METHOD quit( xParam, xParam1 ) CLASS WvgCrt
//----------------------------------------------------------------------//
METHOD resize( xParam, xParam1 ) CLASS WvgCrt
if hb_isArray( xParam ) .and. hb_isBlock( ::sl_resize )
eval( ::sl_resize, xParam, xParam1, Self )
RETURN Self
endif
METHOD resize( xParam ) CLASS WvgCrt
if hb_isBlock( xParam ) .or. hb_isNil( xParam )
::sl_resize := xParam
@@ -1208,8 +1203,8 @@ METHOD notifier( nEvent, xParams ) CLASS WvgCrt
::lHasInputFocus := .f.
CASE nEvent == HB_GTE_RESIZED
if hb_isBlock( ::resize )
eval( ::resize, { xParams[ 1 ], xParams[ 2 ] }, { xParams[ 3 ], xParams[ 4 ] }, Self )
if hb_isBlock( ::sl_resize )
eval( ::sl_resize, { xParams[ 1 ], xParams[ 2 ] }, { xParams[ 3 ], xParams[ 4 ] }, Self )
endif
CASE nEvent == HB_GTE_CLOSE