From 5e28f83bca519498b4a718e6cfa7fe8516f6aee1 Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Fri, 7 Jun 2002 14:49:42 +0000
Subject: [PATCH]   * source/rtl/getsys.prg     ! Modification of work for save
 oGetList active.       Save oGetList for recursives calls to ReadModal().    
   Necessary to support post-evaluation functions       to the exit of the
 ReadModal().       eg: UPDATE()

---
 harbour/source/rtl/getsys.prg | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/harbour/source/rtl/getsys.prg b/harbour/source/rtl/getsys.prg
index 371a96d72d..d889b94794 100644
--- a/harbour/source/rtl/getsys.prg
+++ b/harbour/source/rtl/getsys.prg
@@ -70,7 +70,7 @@ FUNCTION ReadModal( GetList, nPos, nMsgRow, nMsgLeft, nMsgRight, cMsgColor )
 FUNCTION ReadModal( GetList, nPos )
 #endif
 
-   LOCAL oGetList, oSaveGetList
+   LOCAL oGetList //, oSaveGetList
 
 #ifdef HB_COMPAT_C53
    LOCAL lMsgFlag
@@ -89,7 +89,7 @@ FUNCTION ReadModal( GetList, nPos )
    oGetList:cReadProcName := ProcName( 1 )
    oGetList:nReadProcLine := ProcLine( 1 )
 
-   oSaveGetList := __GetListActive( )
+//   oSaveGetList := __GetListActive( )
    __GetListSetActive( oGetList )
 
    IF ! ( ISNUMBER( nPos ) .AND. nPos > 0 )
@@ -142,7 +142,7 @@ FUNCTION ReadModal( GetList, nPos )
 
       IF ISBLOCK( oGetList:oGet:Reader )
 #ifdef HB_COMPAT_C53
-         Eval( oGetList:oGet:Reader, oGetList:oGet ,Ogetlist)
+         Eval( oGetList:oGet:Reader, oGetList:oGet ,oGetlist)
 #else
          Eval( oGetList:oGet:Reader, oGetList:oGet )
 #endif
@@ -160,7 +160,7 @@ FUNCTION ReadModal( GetList, nPos )
    endif
 #endif
 
-   __GetListSetActive( oSaveGetList )
+//   __GetListSetActive( oSaveGetList )
 
    SetPos( MaxRow() - 1, 0 )