From c6a41da2c628711a53b4b2c079c88e663c915029 Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Sun, 22 Jul 2001 11:37:49 +0000 Subject: [PATCH] See changelog 2001-07-22 08:40 GMT -3 --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/getsys.prg | 14 ++++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index af7e9444f5..8384aae562 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2001-07-22 08:40 GMT -3 Luiz Rafael Culik + *source/rtl/getsys.prg + *Now if an get has an message it will display properly + 2001-07-21 18:15 UTC+0100 Ryszard Glab *source/compiler/harbour.sly diff --git a/harbour/source/rtl/getsys.prg b/harbour/source/rtl/getsys.prg index b5d08d2e97..dd543759c4 100644 --- a/harbour/source/rtl/getsys.prg +++ b/harbour/source/rtl/getsys.prg @@ -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 )