From f727607d2113eceac1aba1990091cbdb4d86762d Mon Sep 17 00:00:00 2001
From: Lorenzo Fiorini <lorenzo.fiorini@gmail.com>
Date: Fri, 5 Sep 2008 15:17:39 +0000
Subject: [PATCH]

---
 harbour/ChangeLog                       | 5 +++++
 harbour/contrib/hbtip/popcln.prg        | 2 +-
 harbour/contrib/hbtip/tests/tiptest.prg | 6 +++---
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0b5ae1871f..6480b91a3c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-09-05 17:11 UTC+0200 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)
+  * contrib/hbtip/test/tiptest.prg
+  * contrib/hbtip/popcln.prg
+    * fixed typos: "retreived vs retrieved"
+
 2008-09-05 16:54 UTC+0100 Miguel Angel Marchuet <miguelangel@marchuet.net>
   * contrib/hbbmcdx/bmdbfcdx.c
     ! fixed to not respect bitmap filters when structural order
diff --git a/harbour/contrib/hbtip/popcln.prg b/harbour/contrib/hbtip/popcln.prg
index 0abb9de8e4..3b635c763f 100644
--- a/harbour/contrib/hbtip/popcln.prg
+++ b/harbour/contrib/hbtip/popcln.prg
@@ -179,7 +179,7 @@ METHOD Read( nLen ) CLASS tIPClientPOP
       ENDIF
    ENDIF
 
-RETURN ::Retreive( Val (::oUrl:cFile ), nLen )
+RETURN ::Retrieve( Val (::oUrl:cFile ), nLen )
 
 
 
diff --git a/harbour/contrib/hbtip/tests/tiptest.prg b/harbour/contrib/hbtip/tests/tiptest.prg
index 06ed52aa2f..7c380d0348 100644
--- a/harbour/contrib/hbtip/tests/tiptest.prg
+++ b/harbour/contrib/hbtip/tests/tiptest.prg
@@ -13,7 +13,7 @@
 * just demostrating it is working
 *
 * With the filename, data will be stored to the file or
-* retreived from the file and sent to internet.
+* retrieved from the file and sent to internet.
 *
 * Usage of URI.
 * HTTP Protocol
@@ -43,7 +43,7 @@
 *    - without path, get the list of files (use path/ to get the list of
 *      files in a dir.
 *    - with path, get a file. If the target file (second param) starts with '+'
-*      it will be sent instead of being retreived.
+*      it will be sent instead of being retrieved.
 */
 
 #include "hbclass.ch"
@@ -124,7 +124,7 @@ PROCEDURE MAIN( cUrl, cFile )
                @7,5 SAY "First 80 characters:"
                ? Trim(SubStr( cData, 1, 80 ))
             ELSE
-               @7,5 SAY "ERROR - file can't be retreived " + oClient:lastErrorMessage()
+               @7,5 SAY "ERROR - file can't be retrieved " + oClient:lastErrorMessage()
             ENDIF
          ELSE
             IF oClient:ReadToFile( cFile )