2001-12-15 10:53 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

harbour/ChangeLog

@@ -8,6 +8,15 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2001-12-15 10:53 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
+
+   * source/rtl/tbcolumn.prg
+     ! Fixed case when heading parameter was NIL 
+       in TBColumnNew() or TBColumn():New()
+
+   * source/rtl/fstemp.c
+     - One unused #include removed.
+
 2001-12-15 10:05 UTC+0100 Antonio Linares <alinares@fivetech.com>
    + source/vm/dynlibhb.c
      + HB_LIBLOAD()

harbour/source/rtl/fstemp.c

@@ -51,8 +51,6 @@
  *
  */
 
-#include <errno.h>
-
 #include "hbapi.h"
 #include "hbapifs.h"
 

harbour/source/rtl/tbcolumn.prg

@@ -84,12 +84,14 @@ METHOD New( cHeading, bBlock ) CLASS TBColumn
 
    local cType, nTokenPos := 0, nL
 
+   DEFAULT cHeading TO ""
+
    ::DefColor := { 1, 2 }
    ::FootSep  := ""
    ::ColPos   := 1
 
    ::Width    := 0
-   ::Heading  := iif(!Empty(cHeading), cHeading, "")
+   ::Heading  := cHeading
 
    /* TOFIX: In Clipper the column widths are not determined at this point.
           [vszakats] */
@@ -116,7 +118,7 @@ METHOD New( cHeading, bBlock ) CLASS TBColumn
             ::Width := 0
       endcase
 
-      cHeading +=  ";"
+      cHeading += ";"
       while (nL := Len(__StrTkPtr(@cHeading, @nTokenPos, ";"))) > 0
          if nL > ::Width
             ::Width := nL
@@ -141,6 +143,3 @@ function TBColumnNew(cHeading, bBlock)
 
 return TBColumn():New(cHeading, bBlock)
 
-
-
-