From 3b874f247b23eeff38793ba66cd949c6e1b8a01e Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sat, 1 Sep 2001 07:41:31 +0000
Subject: [PATCH] tests moved to HGF root directory

---
 harbour/contrib/hgf/win32/tests/build_b32.bat | 81 -------------------
 harbour/contrib/hgf/win32/tests/form2.prg     | 37 ---------
 harbour/contrib/hgf/win32/tests/testform.prg  | 47 -----------
 3 files changed, 165 deletions(-)
 delete mode 100644 harbour/contrib/hgf/win32/tests/build_b32.bat
 delete mode 100644 harbour/contrib/hgf/win32/tests/form2.prg
 delete mode 100644 harbour/contrib/hgf/win32/tests/testform.prg

diff --git a/harbour/contrib/hgf/win32/tests/build_b32.bat b/harbour/contrib/hgf/win32/tests/build_b32.bat
deleted file mode 100644
index 4b07b2fb31..0000000000
--- a/harbour/contrib/hgf/win32/tests/build_b32.bat
+++ /dev/null
@@ -1,81 +0,0 @@
-@rem 
-@rem $Id$
-@rem 
-
-@ECHO OFF
-CLS
-
-if A%1 == A GOTO :SINTAX
-if NOT EXIST %1.prg GOTO :NOEXIST
-
-ECHO Compiling...
-
-set hdir=..\..\..\..
-set bcdir=c:\bcc55\bin
-
-%hdir%\bin\harbour %1 /n /i..\include;%hdir%\include %2 %3 > comp.log
-@type comp.log
-IF ERRORLEVEL 1 PAUSE
-IF ERRORLEVEL 1 GOTO EXIT
-
-echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc
-%bcdir%\bcc32 -M -c @b32.bc
-:ENDCOMPILE
-
-echo c0w32.obj + > b32.bc
-echo %1.obj, + >> b32.bc
-echo %1.exe, + >> b32.bc
-echo %1.map, + >> b32.bc
-echo %hdir%\lib\rtl.lib + >> b32.bc
-echo %hdir%\lib\vm.lib + >> b32.bc
-echo %hdir%\lib\gtwin.lib + >> b32.bc
-echo %hdir%\lib\lang.lib + >> b32.bc
-echo %hdir%\lib\macro.lib + >> b32.bc
-echo %hdir%\lib\rdd.lib + >> b32.bc
-echo %hdir%\lib\dbfntx.lib + >> b32.bc
-echo %hdir%\lib\dbfcdx.lib + >> b32.bc
-echo %hdir%\lib\debug.lib + >> b32.bc
-echo %hdir%\lib\common.lib + >> b32.bc
-echo %hdir%\lib\pp.lib + >> b32.bc
-echo %hdir%\lib\hgfwin32.lib + >> b32.bc
-
-rem Uncomment these two lines to use Advantage RDD
-rem echo %hdir%\lib\rddads.lib + >> b32.bc  
-rem echo %hdir%\lib\ace32.lib + >> b32.bc
-
-echo %bcdir%\lib\cw32.lib + >> b32.bc
-echo %bcdir%\lib\import32.lib, >> b32.bc
-
-ECHO * 
-ECHO Linking...
-rem Use these flags to avoid the console window creation
-rem %bcdir%\ilink32 -Gn -aa -Tpe -s @b32.bc
-%bcdir%\ilink32 -Gn -Tpe -s @b32.bc
-
-rem delete temporary files
-@del %1.c
-@del b32.bc
-@del comp.log
-@del %1.map
-@del %1.obj
-@del %1.tds
-
-IF ERRORLEVEL 1 GOTO LINKERROR
-ECHO * Application successfully built
-%1
-GOTO EXIT
-ECHO
-
-:LINKERROR
-rem if exist meminfo.txt notepad meminfo.txt
-rem PAUSE * Linking errors *
-GOTO EXIT
-
-:SINTAX
-ECHO    SYNTAX: Build [Program]     {-- Don't specify .PRG extension
-GOTO EXIT
-
-:NOEXIST
-ECHO The specified PRG %1 does not exist
-
-:EXIT
\ No newline at end of file
diff --git a/harbour/contrib/hgf/win32/tests/form2.prg b/harbour/contrib/hgf/win32/tests/form2.prg
deleted file mode 100644
index 117ecd5499..0000000000
--- a/harbour/contrib/hgf/win32/tests/form2.prg
+++ /dev/null
@@ -1,37 +0,0 @@
-//
-// $Id$
-//
-
-// Inheriting from Class TForm sample
-
-#include "hbclass.ch"
-
-function Main()
-
-   local oForm2 := TForm2():New()
-
-   oForm2:ShowModal()
-
-return nil
-
-CLASS TForm2 FROM TForm
-
-   METHOD New()
-
-   METHOD Button1Click( oSender )
-
-ENDCLASS
-
-METHOD New() CLASS TForm2
-
-   Super:New()
-
-   ::cCaption = ::ClassName()
-
-return Self
-
-METHOD Button1Click( oSender ) CLASS TForm2
-
-   MsgInfo( oSender:ClassName() )
-
-return nil
\ No newline at end of file
diff --git a/harbour/contrib/hgf/win32/tests/testform.prg b/harbour/contrib/hgf/win32/tests/testform.prg
deleted file mode 100644
index f4d409ee9a..0000000000
--- a/harbour/contrib/hgf/win32/tests/testform.prg
+++ /dev/null
@@ -1,47 +0,0 @@
-//
-// $Id$
-//
-
-// Testing Harbour GUI framework for Win32
-
-function Main()
-
-   local oForm := TForm():New()
-   local oMenu := TMenu():New( oForm )
-   local oMenuItem, oSubItem, oSubItem2
-
-   oMenuItem = TMenuItem():New()
-   oMenuItem:cCaption = "One"
-   oMenu:Add( oMenuItem )
-
-   oSubItem = TMenuItem():New()
-   oSubItem:cCaption = "First"
-   oMenuItem:Add( oSubItem )
-
-   oSubItem = TMenuItem():New()
-   oSubItem:cCaption = "Second"
-   oMenuItem:Add( oSubItem )
-
-   oSubItem2 = TMenuItem():New()
-   oSubItem2:cCaption = "Some"
-   oSubItem:Add( oSubItem2 )
-
-   oSubItem2 = TMenuItem():New()
-   oSubItem2:cCaption = "More"
-   oSubItem:Add( oSubItem2 )
-
-   oMenuItem = TMenuItem():New()
-   oMenuItem:cCaption = "Two"
-   oMenu:Add( oMenuItem )
-
-   oMenuItem = TMenuItem():New()
-   oMenuItem:cCaption = "Three"
-   oMenu:Add( oMenuItem )
-
-   oForm:oMenu = oMenu
-
-   oForm:cCaption = "Harbour GUI Framework"
-
-   oForm:ShowModal()
-
-return nil
\ No newline at end of file