From 27521a4b96679ecdd8a2d4a9edb223e079c0c421 Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Sun, 10 Nov 2002 21:30:46 +0000 Subject: [PATCH] See changelog 2002-11-11 19:35 UTC-0300 --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/alert.prg | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b57d676ba5..0291135f4c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -7,6 +7,9 @@ For example: 2002-12-01 23:12 UTC+0100 Foo Bar */ +2002-11-10 19:35 UTC-0300 Luiz Rafael Culik + *source/rtl/alert.prg + ! fix initialization of cold Var 2002-11-08 13:19 UTC+0100 Ignacio Ortiz * source/rtl/errorapi.c @@ -15,6 +18,7 @@ !Fixed bug reported Brian Hays (the solution is also from Brian) 2002-11-07 22:05 UTC-0300 Luiz Rafael Culik + *source/rtl/alert.prg ! due an little mistake i`ve posted xharbour code, i`ve reverted back to version 1.38 and applyed the patch 2002-11-07 08:30 UTC-0300 Luiz Rafael Culik * source/rtl/alert.prg diff --git a/harbour/source/rtl/alert.prg b/harbour/source/rtl/alert.prg index 1cae9a1cba..41d141a0ef 100644 --- a/harbour/source/rtl/alert.prg +++ b/harbour/source/rtl/alert.prg @@ -61,7 +61,7 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay ) LOCAL nOldDispCount LOCAL nCount Local cNew,cOld,cTemp - + #ifdef HB_COMPAT_C53 LOCAL nMRow, nMCol #endif @@ -119,7 +119,8 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay ) CASE ValType( xMessage ) == "B" ; xMessage := "{||...}" OTHERWISE ; xMessage := "NIL" ENDCASE - + cOld:= xMessage + if Len(cOld) >60 WHILE LEN(cOld) > 0