2010-05-29 04:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* utils/hbmk2/hbmk2.prg
    ! Fixed silly variable initialization bug after last commit.

  * contrib/hbwin/wapi_shellapi.c
    ! Fixed WAPI_SHELLEXECUTE() having HB_PARSTRDEF() one 
      position off.

  * examples/rddado/tests/access1.prg
    * Minor update. Still doesn't work.

harbour/ChangeLog

@@ -17,6 +17,17 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-05-29 04:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * utils/hbmk2/hbmk2.prg
+    ! Fixed silly variable initialization bug after last commit.
+
+  * contrib/hbwin/wapi_shellapi.c
+    ! Fixed WAPI_SHELLEXECUTE() having HB_PARSTRDEF() one
+      position off.
+
+  * examples/rddado/tests/access1.prg
+    * Minor update. Still doesn't work.
+
 2010-05-28 17:27 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   + contrib/gtwvg/tests/demowvg.hbp
     + Project definition.

harbour/contrib/hbwin/wapi_shellapi.c

@@ -68,10 +68,10 @@ HB_FUNC( WAPI_SHELLEXECUTE )
    void * hDirectory;
 
    hb_retnint( ( HB_PTRDIFF ) ShellExecute( ( HWND ) hb_parptr( 1 ),
-                                            HB_PARSTRDEF( 2, &hOperation , NULL ), /* edit, explore, open, print, play?, properties? */
-                                            HB_PARSTR( 3, &hFile      , NULL ),
+                                            HB_PARSTR( 2, &hOperation, NULL ), /* edit, explore, open, print, play?, properties? */
+                                            HB_PARSTRDEF( 3, &hFile, NULL ),
                                             HB_PARSTR( 4, &hParameters, NULL ),
-                                            HB_PARSTR( 5, &hDirectory , NULL ),
+                                            HB_PARSTR( 5, &hDirectory, NULL ),
                                             HB_ISNUM( 6 ) ? hb_parni( 6 ) : SW_SHOWNORMAL /* nShowCmd */ ) );
 
    hb_strfree( hOperation  );

harbour/examples/rddado/tests/access1.prg

@@ -6,12 +6,12 @@
 
 REQUEST ADORDD
 
-function Main()
-
-   USE test.mdb VIA "ADORDD" TABLE "Tabla1"
+PROCEDURE Main()
+? hb_dirBase() + "test.mdb"
+   USE ( hb_dirBase() + "test.mdb" ) VIA "ADORDD" TABLE "Tabla1"
 
    Browse()
 
    USE
 
-return nil
+   RETURN

harbour/utils/hbmk2/hbmk2.prg

@@ -802,6 +802,7 @@ FUNCTION hbmk2( aArgs, /* @ */ lPause )
    hbmk[ _HBMK_lHBCPPMM ] := .F.
    hbmk[ _HBMK_aVAR ] := {}
    hbmk[ _HBMK_hKEYHEADER ] := { => }
+   hbmk[ _HBMK_aREQPKG ] := {}
 
    hbmk[ _HBMK_lBLDFLGP ] := .F.
    hbmk[ _HBMK_lBLDFLGC ] := .F.