*** empty log message ***

harbour/ChangeLog

@@ -1,12 +1,18 @@
+19990817-20:51 GMT+1 Antonio Linares <alinares@fivetech.com>
+   * source/rtl/tbrowse.prg
+     * Added lHeaders := .f. at method New().
+   * source/rtl/tbcolumn.prg
+     * Small fix on nWidth do case otherwise.
+
 19990817-20:35 GMT+2 Ryszard Glab <rglab@imid.med.pl>
 
     *source/compiler/harbour.y
 	* corrected code used to generate HB_P_ENDPROC - the declared
 	 length of function/procedure is now equal to the number of bytes
 	 written into HRB file - some comments added
-	 
+
     *source/runner/runner.c
-	* corrected reading of function/procedure body (it was trying to 
+	* corrected reading of function/procedure body (it was trying to
 	 read (size+1) bytes)
 	* the MAIN procedure is defined if HARBOUR_START_PROCEDURE is
 	 defined - the runner works with GCC/Linux now
@@ -14,7 +20,7 @@
 	 this function there is no access to passed parameters then
 	 there is no need to pass them - static variables can be
 	 initialized using literal values only
-	
+
 19990817-20:14 GMT+1 Victor Szel <info@szelvesz.hu>
   * tests/working/Makefile
     tests/working/colorind.prg (moved to rtl_test.prg)

harbour/source/rtl/tbcolumn.prg

@@ -58,12 +58,17 @@ function TBColumnNew( cHeading, bBlock )
    oCol:Heading = cHeading
    oCol:block   = bBlock
    do case
-   case nType = "N"
-      nWidth = 10
-   case nType = "L"
-      nWidth = 3
-   case nType = "C"
-      nWidth = Len( Eval( bBlock ) )
+      case nType = "N"
+           nWidth = 10
+
+      case nType = "L"
+           nWidth = 3
+
+      case nType = "C"
+           nWidth = Len( Eval( bBlock ) )
+
+      otherwise
+           nWidth = 0
    endcase
    oCol:Width = If( cHeading != nil, Max( Len( cHeading ), nWidth ), nWidth )