2002-09-25 20:00 GMT+0100 Martin Vogel <vogel@inttec.de>

2002-09-25 18:03:16 +00:00
parent 58f7e17f43
commit 8a09b98c7b
2 changed files with 5 additions and 1 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
   2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */

+2002-09-25 20:00 GMT+0100 Martin Vogel <vogel@inttec.de>
+  * contrib/libct/color.prg
+    ! fixed initialization bug reported by Marek Horodyski<homar@altkom.com.pl>
+
 2002-09-25 13:15 UTC+0300 Gustavo Junior Alves <alves@coslinux.com.br>
  * source/rtl/file.c
  * source/rtl/filesys.c
--- a/harbour/contrib/libct/color.prg
+++ b/harbour/contrib/libct/color.prg
@@ -214,7 +214,7 @@ FUNCTION COLORTON( cColor )

  local cColorFore, cColorBack
  local nColorFore, nColorBack
-  local lHiColor, lBlinking
+  local lHiColor := .f., lBlinking := .f.
  local nSep

  if valtype( cColor ) == "N"