From a368a9bca238edf7a04ae84e2e50697797fb5aa0 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Tue, 6 Feb 2001 16:47:52 +0000
Subject: [PATCH] debugger colors selection support

---
 harbour/source/debug/dbgtwin.prg | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/harbour/source/debug/dbgtwin.prg b/harbour/source/debug/dbgtwin.prg
index 90107e284a..0ab15c9e7c 100644
--- a/harbour/source/debug/dbgtwin.prg
+++ b/harbour/source/debug/dbgtwin.prg
@@ -72,6 +72,8 @@ ENDCLASS
 
 METHOD New( nTop, nLeft, nBottom, nRight, cCaption, cColor ) CLASS TDbWindow
 
+   DEFAULT cColor TO __DbgColors()[ 1 ]
+
    ::nTop     := nTop
    ::nLeft    := nLeft
    ::nBottom  := nBottom
@@ -185,7 +187,7 @@ METHOD ShowModal() CLASS TDbWindow
               lExit := .t.
 
          case nKey == K_LBUTTONDOWN
-              if MRow() == ::nTop .and. MCol() == ::nLeft + 3
+              if MRow() == ::nTop .and. MCol() == ::nLeft + 2
                  lExit = .t.
               endif
       endcase