From 3576994b5d66ff5fd52dc71b0a7d0abbf46b0bf8 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Thu, 11 Oct 2012 10:56:28 +0000
Subject: [PATCH] 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        | 5 +++++
 harbour/tests/gtwin.prg  | 8 +++++++-
 harbour/tests/wvt_fs.prg | 4 ++++
 3 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e782ab3292..abdd21bb10 100644
--- a/harbour/ChangeLog
+++ b/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
diff --git a/harbour/tests/gtwin.prg b/harbour/tests/gtwin.prg
index 4aaaec2852..723c99a7d9 100644
--- a/harbour/tests/gtwin.prg
+++ b/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"
diff --git a/harbour/tests/wvt_fs.prg b/harbour/tests/wvt_fs.prg
index 5a040f050e..81d07adde6 100644
--- a/harbour/tests/wvt_fs.prg
+++ b/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" )