20000121-14:00 GMT+1 Ignacio Ortiz <ignacio@fivetech.com>

2000-01-21 12:59:38 +00:00
parent 625dc3cad7
commit 2f94f920ad
1 changed files with 8 additions and 0 deletions
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -669,6 +669,10 @@ METHOD WordLeft() CLASS TGet
      nPos--
   Enddo

+   if nPos < 1
+      nPos := 1
+   endif
+
   if nPos > 0
      ::Pos := nPos
   endif
@@ -708,6 +712,10 @@ METHOD WordRight() CLASS TGet
      nPos++
   Enddo

+   if nPos > ::nMaxLen
+      nPos := ::nMaxLen
+   endif
+
   if nPos <= ::nMaxLen
      ::Pos := nPos
   endif