2012-10-11 12:55 UTC+0200 Viktor Szakats (harbour syenar.net)

* tests/gtwin.prg
  * tests/wvt_fs.prg
    + made them work as scripts using hbrun

harbour/ChangeLog

@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-10-11 12:55 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * tests/gtwin.prg
+  * tests/wvt_fs.prg
+    + made them work as scripts using hbrun
+
 2012-10-11 12:42 UTC+0200 Viktor Szakats (harbour syenar.net)
   * src/rtl/gtwin/gtwin.c
   * src/rtl/gtwvt/gtwvt.c

harbour/tests/gtwin.prg

@@ -16,7 +16,9 @@
 #include "box.ch"
 
 #ifdef __PLATFORM__WINDOWS
-   REQUEST HB_GT_WVT_DEFAULT
+   #if ! defined( __HBSCRIPT__HBSHELL )
+      REQUEST HB_GT_WVT_DEFAULT
+   #endif
    #define THREAD_GT "WVT"
 #else
    REQUEST HB_GT_STD_DEFAULT
@@ -26,6 +28,10 @@
 proc main()
    local pGT, pGT1, pGT2
 
+#if defined( __PLATFORM__WINDOWS ) .AND. defined( __HBSCRIPT__HBSHELL )
+   hbshell_gtSelect( "GTWVT" )
+#endif
+
    ? "This is small test for using more then one console window."
    ? "It needs GT which supports such functionality i.e. GTWVT in"
    ? "MS-Windows or GTXWC in XWindow"

harbour/tests/wvt_fs.prg

@@ -8,6 +8,10 @@
 PROCEDURE Main()
    LOCAL cGt
 
+#if defined( __PLATFORM__WINDOWS ) .AND. defined( __HBSCRIPT__HBSHELL )
+   hbshell_gtSelect( "GTWVT" )
+#endif
+
    cGt := HB_GtVersion( 0 )
    IF cGt == "WVT"
       HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )