From 0100d14b8993cc4eb5972bcfb52fa05f2a8dbf21 Mon Sep 17 00:00:00 2001
From: Luiz Rafael Culik <culik@sl.conex.net>
Date: Fri, 18 Oct 2002 17:40:22 +0000
Subject: [PATCH] See changelog 2002-10-18 14:40 UTC-0300

---
 harbour/ChangeLog              | 3 +++
 harbour/source/rtl/tbrowse.prg | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 64ec05ded0..80035a50fb 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -7,6 +7,9 @@
    For example:
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+2002-10-17 14:40 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
+   * source/rtl/tbrowse.prg
+     ! Fixed SetColumnMethod() that was not using all Display Area(The nWidthMax variable was substraced by 2)
 2002-10-17 15:00 UTC+0700 Andi Jahja <andijahja@cbn.net.id>
    * source/compiler/harbour.sly
    * source/compiler/harbour.y
diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg
index c8bbd47a94..e19b6deccf 100644
--- a/harbour/source/rtl/tbrowse.prg
+++ b/harbour/source/rtl/tbrowse.prg
@@ -495,7 +495,7 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
 
    // if oCol has :Width property set I use it
    if oCol:Width <> nil
-      nWidth := Min(oCol:Width, nWidthMax - 2)
+      nWidth := Min(oCol:Width, nWidthMax)
 
    else
       if ISBLOCK( oCol:block )
@@ -526,7 +526,7 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
          enddo
       endif
 
-      nWidth:= Min(iif(nColwidth > nLen, nColwidth, nLen), nWidthMax - 2)
+      nWidth:= Min(iif(nColwidth > nLen, nColwidth, nLen), nWidthMax )
 
    endif