From b81936bd25bb9306dfa201411ebff509ac7c77d1 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Thu, 8 Feb 2001 10:23:51 +0000
Subject: [PATCH] some minor fixes to let the debugger inspect a GetNew()
 object

---
 harbour/source/rtl/tget.prg | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 02590b2e71..7f5d0bd41c 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -315,7 +315,7 @@ METHOD End() CLASS Get
 
    local nLastCharPos
 
-   if ::HasFocus
+   if ::HasFocus != nil .and. ::HasFocus
       nLastCharPos := Min( Len( RTrim( ::buffer ) ) + 1, ::nMaxLen )
       if ::Pos != nLastCharPos
          ::Pos := nLastCharPos
@@ -413,7 +413,9 @@ return Self
 
 METHOD VarPut( xValue ) CLASS Get
 
-   Eval( ::block, xValue )
+   if ::block != nil
+      Eval( ::block, xValue )
+   endif
 
 return xValue