fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* source/rtl/getsys.prg

Browse Source 
! 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()
This commit is contained in:
Walter Negro
2002-06-07 14:49:42 +00:00
parent 17375c8043
commit 5e28f83bca
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/source/rtl/getsys.prg
View File

@@ -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 )