From 024ccdf51ba173e2ee124a6843de7e6c6037bf6d Mon Sep 17 00:00:00 2001
From: Ron Pinkas <ron@profit-master.com>
Date: Fri, 9 Feb 2001 19:29:17 +0000
Subject: [PATCH] 2001-02-09 11:25 UTC-0800 Ron Pinkas <ron@profit-master.com> 
   * harbour/source/debug/debugger.prg      ! Fixesd ValType( &cColor ) to
 Type( cColor )    * hb_slex.bc      * Synched with makefile.bc

---
 harbour/ChangeLog                 |  6 ++++++
 harbour/hb_slex.bc                | 10 +++++++++-
 harbour/source/debug/debugger.prg |  2 +-
 3 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 533b989e5f..195d732a37 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+2001-02-09 11:25 UTC-0800 Ron Pinkas <ron@profit-master.com>
+   * harbour/source/debug/debugger.prg
+     ! Fixesd ValType( &cColor ) to Type( cColor )
+   * hb_slex.bc
+     * Synched with makefile.bc
+
 2001-02-08 12:15 UTC-0500 David G. Holm <dholm@jsd-llc.com>
 
   * config/dos/djgpp.cf
diff --git a/harbour/hb_slex.bc b/harbour/hb_slex.bc
index 37af95c21a..aa7ad6a348 100644
--- a/harbour/hb_slex.bc
+++ b/harbour/hb_slex.bc
@@ -431,7 +431,8 @@ DEBUG_LIB_OBJS = \
    $(OBJ_DIR)\debugger.obj \
    $(OBJ_DIR)\dbgtarr.obj \
    $(OBJ_DIR)\dbgtobj.obj \
-   $(OBJ_DIR)\tbrwtext.obj
+   $(OBJ_DIR)\tbrwtext.obj \
+   $(OBJ_DIR)\dbgwa.obj
 
 #
 # COMMON.LIB rules
@@ -2020,6 +2021,13 @@ $(OBJ_DIR)\dbgtobj.obj : $(OBJ_DIR)\dbgtobj.c
    $(CC) $(CLIBFLAGS) -o$@ $**
    tlib $(DEBUG_LIB) $(ARFLAGS) -+$@,,
 
+$(OBJ_DIR)\dbgwa.c : $(DEBUG_DIR)\dbgwa.prg
+   $(HARBOUR_EXE) $(HARBOURFLAGS) $** -o$@
+
+$(OBJ_DIR)\dbgwa.obj : $(OBJ_DIR)\dbgwa.c
+   $(CC) $(CLIBFLAGS) -o$@ $**
+   tlib $(DEBUG_LIB) $(ARFLAGS) -+$@,,
+
 #
 # GTCGI.LIB dependencies
 #
diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index fb5e623231..386047ccc3 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -512,7 +512,7 @@ METHOD EditColor( nColor, oBrwColors ) CLASS TDebugger
 
    SetCursor( SC_NORMAL )
    @ Row(), Col() GET cColor COLOR SubStr( ::ClrModal(), 5 ) ;
-      VALID If( ValType( &cColor ) != "C", ( Alert( "Must be string" ), .f. ), .t. )
+      VALID If( Type( cColor ) != "C", ( Alert( "Must be string" ), .f. ), .t. )
 
    READ
    SetCursor( SC_NONE )