From ae77dfc376f3e5e9d99b36693ffdbd28b6593dcc Mon Sep 17 00:00:00 2001
From: Jacek Kubica <kubica@wssk.wroc.pl>
Date: Sun, 13 Nov 2005 21:22:41 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/ChangeLog              |  5 +++++
 harbour/contrib/ole/hbtest.prg | 30 +++++++++++++++---------------
 2 files changed, 20 insertions(+), 15 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 659176ea1d..6f9eb3bf14 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -7,6 +7,11 @@
    For example:
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+2005-11-13 21:21 UTC+0100 Jacek Kubica (kubica/at/wssk.wroc.pl)
+  * harbour/contrib/ole/bldtest.bat
+  * harbour/contrib/ole/hbtest.prg
+    ! updated files
+
 2005-11-13 20:50 UTC+0100 Jacek Kubica (kubica/at/wssk.wroc.pl)
   * harbour/contrib/rdd_ads/makefile.bc
   * harbour/contrib/rdd_ads/make_b32.bat
diff --git a/harbour/contrib/ole/hbtest.prg b/harbour/contrib/ole/hbtest.prg
index 1203de1908..537e092663 100644
--- a/harbour/contrib/ole/hbtest.prg
+++ b/harbour/contrib/ole/hbtest.prg
@@ -19,14 +19,14 @@ PROCEDURE MAIN()
    CLS
    SetColor("W+/R")
    @  6, 25 TO 16, 55 DOUBLE
-   @  8, 28 SAY "Probar OLE con..."
+   @  8, 28 SAY "Test hbole.lib with ..."
 
    While .t.
       @ 10, 32 PROMPT "Excel"
       @ 11, 32 PROMPT "Word"
       @ 12, 32 PROMPT "Internet Explorer"
       @ 13, 32 PROMPT "Outlook"
-      @ 14, 32 PROMPT "Salir"
+      @ 14, 32 PROMPT "Quit"
 
       MENU TO nOption
 
@@ -65,14 +65,14 @@ STATIC PROCEDURE EXCEL97()
    oHoja:Cells:Font:Name := "Arial"
    oHoja:Cells:Font:Size := 12
 
-   oHoja:Cells( 3, 1 ):Value := "Texto:"
-   oHoja:Cells( 3, 2 ):Value := "Esto es un texto"
-   oHoja:Cells( 4, 1 ):Value := "Número:"
+   oHoja:Cells( 3, 1 ):Value := "Text:"
+   oHoja:Cells( 3, 2 ):Value := "This is sample text"
+   oHoja:Cells( 4, 1 ):Value := "Numeric:"
    oHoja:Cells( 4, 2 ):NumberFormat := "#.##0,00"
    oHoja:Cells( 4, 2 ):Value := 1234.50
-   oHoja:Cells( 5, 1 ):Value := "Lógico:"
+   oHoja:Cells( 5, 1 ):Value := "Logical:"
    oHoja:Cells( 5, 2 ):Value := .T.
-   oHoja:Cells( 6, 1 ):Value := "Fecha:"
+   oHoja:Cells( 6, 1 ):Value := "Date:"
    oHoja:Cells( 6, 2 ):Value := DATE()
 
    oHoja:Columns( 1 ):Font:Bold := .T.
@@ -81,7 +81,7 @@ STATIC PROCEDURE EXCEL97()
    oHoja:Columns( 1 ):AutoFit()
    oHoja:Columns( 2 ):AutoFit()
 
-   oHoja:Cells( 1, 1 ):Value := "OLE desde FW"
+   oHoja:Cells( 1, 1 ):Value := "OLE in Harbour"
    oHoja:Cells( 1, 1 ):Font:Size := 16
    oHoja:Range( "A1:B1" ):HorizontalAlignment := 7
 
@@ -105,13 +105,13 @@ STATIC PROCEDURE WORD97()
 
    oTexto := oWord:Selection()
 
-   oTexto:Text := "OLE desde FW"+CRLF
+   oTexto:Text := "Harbour hbOLE.lib"+CRLF+"Word Sample"+CRLF
    oTexto:Font:Name := "Arial"
    oTexto:Font:Size := 48
    oTexto:Font:Bold := .T.
 
    oWord:Visible := .T.
-   oWord:WindowState := 1  // Maximizado
+   oWord:WindowState := 1  // Maximize
 
    oTexto:End()
    oWord:End()
@@ -128,7 +128,7 @@ STATIC PROCEDURE IEXPLORER()
 
    oIE:Visible := .T.
 
-   oIE:Navigate( "http://www.fivetech.com" )
+   oIE:Navigate( "http://www.harbour-project.org" )
 
    oIE:End()
 
@@ -144,19 +144,19 @@ STATIC PROCEDURE OUTLOOK()
 
    IF Ole2TxtError() != "S_OK"
 
-      Alert("Outlook 2000 no está disponible.", "Error")
+      Alert("Outlook is not available", "Error")
 
    ELSE
 
       oMail := oOL:CreateItem( 0 )  // olMailItem
 
       FOR i := 1 TO 10
-         oMail:Recipients:Add( "Contacto" + LTRIM( STR( i, 2 ) ) + ;
-               "<contacto" + LTRIM( STR( i, 2 ) ) + "@servidor.com>" )
+         oMail:Recipients:Add( "Contact" + LTRIM( STR( i, 2 ) ) + ;
+               "<contact" + LTRIM( STR( i, 2 ) ) + "@server.com>" )
       NEXT
 
       oLista := oOL:CreateItem( 7 )  // olDistributionListItem
-      oLista:DLName := "Prueba de lista de distribución"
+      oLista:DLName := "Test with distribution list"
       oLista:Display( .F. )
       oLista:AddMembers( oMail:Recipients )
       oLista:Save()