2012-11-29 14:39 UTC+0100 Viktor Szakats (harbour syenar.net)

* contrib/rddads/tests/datad.prg
  * contrib/rddads/tests/testmg.prg
    * cleanup to script rdd registration code from yesterday

harbour/ChangeLog.txt

@@ -10,6 +10,11 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2012-11-29 14:39 UTC+0100 Viktor Szakats (harbour syenar.net)
+  * contrib/rddads/tests/datad.prg
+  * contrib/rddads/tests/testmg.prg
+    * cleanup to script rdd registration code from yesterday
+
 2012-11-29 13:54 UTC+0100 Viktor Szakats (harbour syenar.net)
   * contrib/hblzf/tests/hbmk.hbm
   * contrib/hblzf/tests/test.prg

harbour/contrib/rddads/tests/datad.prg

@@ -21,16 +21,14 @@ PROCEDURE Main()
    LOCAL aStru := { { "ID", "A", 1, 0 }, { "Name", "C", 50, 0 }, { "address", "C", 50, 0 }, { "city", "C", 30, 0 }, { "Age", "n", 3, 0 } }
    LOCAL hConnection1
 
-#if defined( __HBSCRIPT__HBSHELL )
-   rddRegister( "ADSADT" )
-#endif
-
 #if defined( __HBDYNLOAD__RDDADS__ )
    LOCAL l := hb_libLoad( hb_libName( "rddads" + hb_libPostfix() ) )
 
    hb_rddADSRegister()
 
    HB_SYMBOL_UNUSED( l )
+#elif defined( __HBSCRIPT__HBSHELL )
+   hb_rddADSRegister()
 #endif
 
    CLS

harbour/contrib/rddads/tests/testmg.prg

@@ -65,16 +65,14 @@ PROCEDURE Main()
    LOCAL i
    LOCAL aRay
 
-#if defined( __HBSCRIPT__HBSHELL )
-   rddRegister( "ADS" )
-#endif
-
 #if defined( __HBDYNLOAD__RDDADS__ )
    LOCAL l := hb_libLoad( hb_libName( "rddads" + hb_libPostfix() ) )
 
    hb_rddADSRegister()
 
    HB_SYMBOL_UNUSED( l )
+#elif defined( __HBSCRIPT__HBSHELL )
+   hb_rddADSRegister()
 #endif
 
    rddSetDefault( "ADS" )