2009-04-01 14:11 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

* utils/hbmk2/hbmk2.prg
    + Added clipper/rtlink/exospace/blinker self-name recognition.
      clipper will switch it to hbcmp mode,
      rtlink/exospace/blinker will switch it to hblnk mode.
      rtlink parameter recognition is yet to be done.

  * contrib/hbct/ctmisc.prg
    ! Fixed CENTER() to not LTrim() the input string.

  * contrib/hbwin/wapi_commctrl.c
    ! 0/1 -> FALSE/TRUE
    ! Fixed to use proper macro instead of hb_parnint().
    % Using hb_arraySetNL() rather than hb_arraySet().

  * mpkg_win.nsi
    * Minor.

harbour/ChangeLog

@@ -8,6 +8,24 @@
    2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-04-01 14:11 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+  * utils/hbmk2/hbmk2.prg
+    + Added clipper/rtlink/exospace/blinker self-name recognition.
+      clipper will switch it to hbcmp mode,
+      rtlink/exospace/blinker will switch it to hblnk mode.
+      rtlink parameter recognition is yet to be done.
+
+  * contrib/hbct/ctmisc.prg
+    ! Fixed CENTER() to not LTrim() the input string.
+
+  * contrib/hbwin/wapi_commctrl.c
+    ! 0/1 -> FALSE/TRUE
+    ! Fixed to use proper macro instead of hb_parnint().
+    % Using hb_arraySetNL() rather than hb_arraySet().
+
+  * mpkg_win.nsi
+    * Minor.
+
 2009-04-01 10:45 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * doc/Makefile
     ! Removed license.txt.

harbour/contrib/hbct/ctmisc.prg

@@ -77,7 +77,7 @@ FUNCTION CENTER( c, n, p, lMode )
       DEFAULT lMode TO .F.
    ENDIF
 
-   cRet := PadC( AllTrim( c ), n, p )
+   cRet := PadC( RTrim( c ), n, p )
 
    RETURN iif( lMode, cRet, RTrim( cRet ) )
 

harbour/contrib/hbwin/wapi_commctrl.c

@@ -266,12 +266,10 @@ HB_FUNC( WAPI_IMAGELIST_GETICONSIZE )
    {
       hb_storni( cx, 2 );
       hb_storni( cy, 3 );
-      hb_retl( 1 );
+      hb_retl( TRUE );
    }
    else
-   {
-      hb_retl( 0 );
-   }
+      hb_retl( FALSE );
 }
 /*----------------------------------------------------------------------*/
 /*
@@ -514,27 +512,15 @@ HB_FUNC( WAPI_TABCTRL_GETITEMCOUNT )
 
 HB_FUNC( WAPI_TABCTRL_GETITEMRECT )
 {
-   RECT rc;
    PHB_ITEM aRect = hb_itemArrayNew( 4 );
-   PHB_ITEM temp;
+   RECT rc;
 
    ( void ) TabCtrl_GetItemRect( wapi_par_HWND( 1 ), wapi_par_INT( 2 ), &rc );
 
-   temp = hb_itemPutNL( NULL, rc.left );
-   hb_arraySet( aRect, 1, temp );
-   hb_itemRelease( temp );
-
-   temp = hb_itemPutNL( NULL, rc.top );
-   hb_arraySet( aRect, 2, temp );
-   hb_itemRelease( temp );
-
-   temp = hb_itemPutNL( NULL, rc.right );
-   hb_arraySet( aRect, 3, temp );
-   hb_itemRelease( temp );
-
-   temp = hb_itemPutNL( NULL, rc.bottom );
-   hb_arraySet( aRect, 4, temp );
-   hb_itemRelease( temp );
+   hb_arraySetNL( aRect, 1, rc.left );
+   hb_arraySetNL( aRect, 2, rc.top );
+   hb_arraySetNL( aRect, 3, rc.right );
+   hb_arraySetNL( aRect, 4, rc.bottom );
 
    hb_itemReturnRelease( aRect );
 }
@@ -777,11 +763,11 @@ HB_FUNC( WAPI_TABCTRL_GETUNICODEFORMAT )
 HB_FUNC( WAPI_TABCTRL_CREATE )
 {
    HWND hwnd;
-   HWND hbutton;
-   LONG hFont;
    LONG style;
+   LONG hFont;
+   HWND hbutton;
+   hwnd    = ( HWND ) wapi_par_HWND( 1 );
    style   = ( LONG ) hb_parnl( 6 ); /* defaults to 0 */
-   hwnd    = ( HWND ) hb_parnint( 1 );
    hFont   = SendMessage( hwnd, WM_GETFONT, 0, 0 );
    hbutton = CreateWindowEx( 0, WC_TABCONTROL, NULL, style, hb_parni( 2 ), hb_parni( 3 ) , hb_parni( 4 ), hb_parni( 5 ), hwnd, NULL, GetModuleHandle( NULL ), NULL );
    SendMessage( hbutton, ( UINT ) WM_SETFONT, ( WPARAM ) hFont, 1 );

harbour/mpkg_win.nsi

@@ -139,8 +139,8 @@ SectionEnd
 ; Descriptions
 
   ; Language strings
-  LangString DESC_hb_main ${LANG_ENGLISH} "Main components."
-  LangString DESC_hb_shortcuts ${LANG_ENGLISH} "Add icons to Start Menu and Desktop."
+  LangString DESC_hb_main ${LANG_ENGLISH} "Main components"
+  LangString DESC_hb_shortcuts ${LANG_ENGLISH} "Add icons to Start Menu and Desktop"
   LangString DESC_hb_examples ${LANG_ENGLISH} "Samples and tests"
 
   ; Assign language strings to sections

harbour/utils/hbmk2/hbmk2.prg

@@ -375,7 +375,8 @@ FUNCTION Main( ... )
    tmp := Lower( FN_NameGet( hb_argv( 0 ) ) )
    DO CASE
    CASE Right( tmp, 5 ) == "hbcmp" .OR. ;
-        Left(  tmp, 5 ) == "hbcmp"
+        Left(  tmp, 5 ) == "hbcmp" .OR. ;
+        tmp == "clipper"
       t_lInfo := .F. ; lStopAfterHarbour := .F. ; lStopAfterCComp := .T. ; lCreateLib := .F. ; lCreateDyn := .F.
       IF t_lInfo
          OutStd( "hbmk: Enabled -hbcmp option." + hb_osNewLine() )
@@ -387,7 +388,10 @@ FUNCTION Main( ... )
          OutStd( "hbmk: Enabled -hbcc option." + hb_osNewLine() )
       ENDIF
    CASE Right( tmp, 5 ) == "hblnk" .OR. ;
-        Left(  tmp, 5 ) == "hblnk"
+        Left(  tmp, 5 ) == "hblnk" .OR. ;
+        tmp == "rtlink" .OR. ;
+        tmp == "exospace" .OR. ;
+        tmp == "blinker"
       t_lInfo := .F. ; lStopAfterHarbour := .F. ; lStopAfterCComp := .F. ; lAcceptLDFlag := .T.
       IF t_lInfo
          OutStd( "hbmk: Enabled -hblnk option." + hb_osNewLine() )