From 1a6f3d52070465fcc0184c80b7eddc5ed73ff207 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sat, 3 Feb 2001 03:56:28 +0000
Subject: [PATCH] Removed SetsUp(), SetsDown() and MyColors() not needed
 functions

---
 harbour/source/debug/debugger.prg | 45 +++++++------------------------
 1 file changed, 10 insertions(+), 35 deletions(-)

diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index 598f99f1f6..5b323f1a26 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -809,7 +809,7 @@ METHOD ViewSets() CLASS TDebugger
    ocol:ColorBlock := { || { iif( n == oBrwSets:Cargo, 3, 1 ), 3 } }
 
 
-   oWndSets:bPainted    := { || oBrwSets:ForceStable(),myColors(oBrwsets,{1,2}) }
+   oWndSets:bPainted    := { || oBrwSets:ForceStable() }
    oWndSets:bKeyPressed := { | nKey | SetsKeyPressed( nKey, oBrwSets, Len( aSets ),;
                             oWndSets ) }
 
@@ -826,13 +826,17 @@ static procedure SetsKeyPressed( nKey, oBrwSets, nSets, oWnd )
       case nKey == K_UP
            if oBrwSets:Cargo > 1
               oBrwSets:Cargo--
-              SetsUp( oBrwSets )
+              oBrwSets:RefreshCurrent()
+              oBrwSets:Up()
+              oBrwSets:ForceStable()
            endif
 
       case nKey == K_DOWN
            if oBrwSets:Cargo < nSets
               oBrwSets:Cargo++
-              SetsDown( oBrwSets )
+              oBrwSets:RefreshCurrent()
+              oBrwSets:Down()
+              oBrwSets:ForceStable()
            endif
 
       case nKey == K_HOME
@@ -850,32 +854,16 @@ static procedure SetsKeyPressed( nKey, oBrwSets, nSets, oWnd )
               oBrwSets:RefreshAll()
               oBrwSets:ForceStable()
            endif
+
 /*      case nKey == K_ENTER
           ::doGet(*/
+
    endcase
 
    if nSet != oBrwSets:Cargo
       oWnd:SetCaption( "System Settings[" + AllTrim( Str( oBrwSets:Cargo ) ) + ;
                        "..47]" )
    endif
-   myColors(oBrwsets,{1,2})
-return
-
-static procedure SetsUp( oBrw )
-
-   oBrw:RefreshCurrent()
-   oBrw:Up()
-   oBrw:ForceStable()
-   //myColors(oBrw,{1,2}) //NOTE: What is this needed for?
-
-return
-
-static procedure SetsDown( oBrw )
-
-   oBrw:RefreshCurrent()
-   oBrw:Down()
-   oBrw:ForceStable()
-   //myColors(oBrw,{1,2})
 
 return
 
@@ -910,17 +898,4 @@ static function ValToStr( uVal )
            cResult := "Class " + uVal:ClassName() + " object"
    endcase
 
-return cResult
-
-static function myColors( oBrowse, aColColors )
-   local i
-   local nColPos := oBrowse:colpos
-
-   for i := 1 to len( aColColors )
-      oBrowse:colpos := aColColors[i]
-      oBrowse:DeHilite()
-      oBrowse:hilite()
-   next
-
-   oBrowse:colpos := nColPos
-return Nil
\ No newline at end of file
+return cResult
\ No newline at end of file