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

See changelog 2001-07-22 08:40 GMT -3

Browse Source
This commit is contained in:
Luiz Rafael Culik
2001-07-22 11:37:49 +00:00
parent 8e957ebe48
commit c6a41da2c6
2 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-07-22 08:40 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
*source/rtl/getsys.prg
*Now if an get has an message it will display properly
2001-07-21 18:15 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.sly

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

@@ -106,7 +106,13 @@ FUNCTION ReadModal( GetList, nPos, nMsgRow, nMsgLeft, nMsgRight, cMsgColor )
lColorFlag := ( ValType( cMsgColor ) == "C" )
endif
#endif
DO WHILE oGetList:nPos != 0
oGetList:oGet := oGetList:aGetList[ oGetList:nPos ]
oGetList:PostActiveGet()
#ifdef HB_COMPAT_C53
if ( lMsgFlag )
oGet := oGetList:aGetList[ oGetList:nPos ]
if ( lColorFlag )
@@ -124,12 +130,8 @@ FUNCTION ReadModal( GetList, nPos, nMsgRow, nMsgLeft, nMsgRight, cMsgColor )
if ( lColorFlag )
SetColor( cSaveColor )
endif
Endif
#endif
DO WHILE oGetList:nPos != 0
oGetList:oGet := oGetList:aGetList[ oGetList:nPos ]
oGetList:PostActiveGet()
endif
#endif
IF ISBLOCK( oGetList:oGet:Reader )
#ifndef HB_COMPAT_C53
Eval( oGetList:oGet:Reader, oGetList:oGet )