From 0f954ce607da753f89d7d5511771dd4792e063ff Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 7 Aug 1999 17:27:52 +0000 Subject: [PATCH] *** empty log message *** --- harbour/source/rtl/tbcolumn.prg | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/harbour/source/rtl/tbcolumn.prg b/harbour/source/rtl/tbcolumn.prg index 9b818895e2..fad10c144e 100644 --- a/harbour/source/rtl/tbcolumn.prg +++ b/harbour/source/rtl/tbcolumn.prg @@ -51,7 +51,7 @@ function TBColumnNew( cHeading, bBlock ) oCol:Heading = cHeading oCol:block = bBlock - oCol:Width = If( cHeading != nil, Len( cHeading ), 10 ) + oCol:Width = If( cHeading != nil, Len( cHeading ), Len( Eval( bBlock ) ) ) return oCol