From dd8ec9907d2b2f6791a0a775cd30bd247d25c89f Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Tue, 17 Aug 1999 19:05:59 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 12 +++++++++--- harbour/source/rtl/tbcolumn.prg | 17 +++++++++++------ 2 files changed, 20 insertions(+), 9 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 3b75709475..0b6c986b13 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,12 +1,18 @@ +19990817-20:51 GMT+1 Antonio Linares + * 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 *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 * tests/working/Makefile tests/working/colorind.prg (moved to rtl_test.prg) diff --git a/harbour/source/rtl/tbcolumn.prg b/harbour/source/rtl/tbcolumn.prg index fd55baba6c..40c22c154a 100644 --- a/harbour/source/rtl/tbcolumn.prg +++ b/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 )