From c16c4438f6b813ec65c517df5f9ef8e0fec5e6e7 Mon Sep 17 00:00:00 2001
From: Luiz Rafael Culik <culik@sl.conex.net>
Date: Sat, 27 Apr 2002 03:22:15 +0000
Subject: [PATCH] See changelog 2002-04-27 00:10 UTC -0300

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

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3170eca795..6843f6bf86 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
   * source/rtl/dummy.prg
+    *Removed reference to ordkeydel() and ordkeyadd()
+
+2002-04-27 23:50 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
+  * source/rtl/teditor.prg
+    * Added Support lookup on SetKey()'s Defined functions on Edit()
       and BrowseText() then this are not Handle by TMemoEditor:Edit() method
 
 2002-04-27 19:15 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>
diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg
index 42b852d5bc..f4e400d5de 100644
--- a/harbour/source/rtl/tbrowse.prg
+++ b/harbour/source/rtl/tbrowse.prg
@@ -475,7 +475,7 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
    LOCAL nWidthMax := ::nRight - ::nLeft +1    // Visible width of TBrowse
    LOCAL nWidth := 0,nColWidth:=0,nLen:=0
 
-   tracelog('nWidthMax : ',nWidthMax)
+   
    // if oCol has :Width property set I use it
    if oCol:Width <> nil //.AND. oCol:Width < (nWidthMax - 4)
       nWidth := oCol:Width
@@ -516,9 +516,6 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
         nLen:=nWidthMax
     endif
     nWidth:= if(nColwidth>nLen,nColwidth,nLen)
-    tracelog('nColwidth : ',nColwidth)
-    tracelog('nLen : ',nLen)
-    tracelog('nwidth : ',nWidth)
 
 return nWidth
 
@@ -1492,11 +1489,9 @@ function TBMOUSE( oBrowse, nMouseRow, nMouseCol )
 
    local Local1
    if ( oBrowse:hittest(nMouseRow, nMouseCol) == -5121 )
-      //tracelog('mouse row ',oBrowse:mrowpos)
-      //tracelog('mouse col ',oBrowse:mcolpos)
 
       Local1 := oBrowse:mrowpos - oBrowse:rowpos
-      //tracelog('local1 ',local1)
+
 
       do while ( Local1 < 0 )
          Local1++
@@ -1527,11 +1522,9 @@ function TBMOUSE( oBrowse, nMouseRow, nMouseCol )
 
 Method hitTest(mrow,mcol) CLASS TBROWSE
 	local i
-        //tracelog('mrow',mrow)
-        //tracelog('mcol',mrow)
   ::mRowPos := ::rowPos
   ::mColPos := ::colPos
-  //tracelog(::mrowPos)
+
 
   if mRow< ::rect[1] .or. mRow > ::rect[3]
      return HTNOWHERE