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

2009-07-10 02:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbclipsm/gauge.c
    % Minor cleanup.

  * source/rtl/setcolor.c
    % Cleaned explicit cast.
This commit is contained in:
Viktor Szakats
2009-07-10 00:33:57 +00:00
parent cd2e990242
commit 021e5b4e45
3 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -17,6 +17,13 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-07-10 02:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbclipsm/gauge.c
% Minor cleanup.
* source/rtl/setcolor.c
% Cleaned explicit cast.
2009-07-10 02:19 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* include/hbgtcore.h
* include/hbapigt.h

13
harbour/contrib/hbclipsm/gauge.c
View File

@@ -120,13 +120,13 @@ HB_FUNC( GAUGENEW )
{
PHB_ITEM pReturn = hb_itemArrayNew( B_LEN ); /* Create array */
hb_arraySetNL( pReturn, B_TOP, hb_parni( B_TOP ) );
hb_arraySetNL( pReturn, B_LEFT, hb_parni( B_LEFT ) );
hb_arraySetNL( pReturn, B_BOTTOM,
hb_arraySetNI( pReturn, B_TOP, hb_parni( B_TOP ) );
hb_arraySetNI( pReturn, B_LEFT, hb_parni( B_LEFT ) );
hb_arraySetNI( pReturn, B_BOTTOM,
HB_ISNUM( B_BOTTOM ) ?
( hb_parni( B_BOTTOM ) < hb_parni( B_TOP ) + 2 ?
hb_parni( B_TOP ) + 2 : hb_parni( B_BOTTOM ) ) : 0 );
hb_arraySetNL( pReturn, B_RIGHT,
hb_arraySetNI( pReturn, B_RIGHT,
HB_ISNUM( B_RIGHT ) ?
( hb_parni( B_RIGHT ) < hb_parni( B_LEFT ) + 4 ?
hb_parni( B_LEFT ) + 4 : hb_parni( B_RIGHT ) ) : 0 );
@@ -137,7 +137,7 @@ HB_FUNC( GAUGENEW )
HB_ISNUM( B_LEFT ) &&
( hb_parni( B_RIGHT ) < hb_parni( B_LEFT ) + 9 ) ) );
hb_arraySetC( pReturn, B_BARCHAR, HB_ISCHAR( B_BARCHAR ) ? hb_parc( B_BARCHAR ) : "\xdb" );
hb_arraySetNL( pReturn, B_PERCENT, 0 );
hb_arraySetND( pReturn, B_PERCENT, 0.0 );
hb_itemReturnRelease( pReturn );
}
@@ -190,8 +190,7 @@ HB_FUNC( GAUGEUPDATE )
if( pArray )
{
hb_gaugeUpdate( pArray, HB_ISNUM( 2 ) ? ( float ) hb_parnd( 2 ) : 0 );
hb_gaugeUpdate( pArray, ( float ) hb_parnd( 2 ) );
hb_itemReturn( pArray );
}
}

2
harbour/source/rtl/setcolor.c
View File

@@ -77,7 +77,7 @@ HB_FUNC( SETCOLOR )
HB_FUNC( COLORSELECT )
{
if( HB_ISNUM( 1 ) )
hb_gtColorSelect( ( USHORT ) hb_parni( 1 ) );
hb_gtColorSelect( hb_parni( 1 ) );
}
HB_FUNC( SETBLINK )