From 918fb22c895e9ae94f8330a27f8aea3bcbfee38f Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 12 Feb 2001 09:27:08 +0000
Subject: [PATCH] some minor fixes

---
 harbour/source/debug/dbgmenu.prg  | 3 +--
 harbour/source/debug/debugger.prg | 7 ++++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/harbour/source/debug/dbgmenu.prg b/harbour/source/debug/dbgmenu.prg
index 9c8962f24f..d917563cab 100644
--- a/harbour/source/debug/dbgmenu.prg
+++ b/harbour/source/debug/dbgmenu.prg
@@ -122,8 +122,7 @@ function __dbgBuildMenu( oDebugger )  // Builds the debugger pulldown menu
                      oPublic:lChecked := oPrivate:lChecked := oStatic:lChecked := ;
                      oLocal:lChecked := oAll:lChecked )
 
-         MENUITEM oSort PROMPT " s~Ort" ;
-            ACTION ( oDebugger:Sort(), oSort:Toggle() )
+         MENUITEM " s~Ort" ACTION oDebugger:Sort()
       ENDMENU
 
       MENUITEM " ~Options "
diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index 694786ce9d..2ef205a50e 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -235,7 +235,8 @@ CLASS TDebugger
    METHOD ShowCode( cModuleName )
    METHOD ShowVars()
 
-   METHOD Sort() INLINE ASort( ::aVars, {|x,y| x[1] < y[1] } ),;
+   METHOD Sort() INLINE ASort( ::aVars,,, {|x,y| x[1] < y[1] } ),;
+                        ::lSortVars := .t.,;
                         If( ::oBrwVars != nil, ::oBrwVars:RefreshAll(), nil ),;
           If( ::oWndVars != nil .and. ::oWndVars:lVisible, ::oBrwVars:ForceStable(),)
 
@@ -297,7 +298,6 @@ METHOD New() CLASS TDebugger
    ::aCallStack        := {}
    ::lGo               := .f.
    ::aVars             := {}
-   ::lSortVars         := .f.
    ::lCaseSensitive    := .f.
    ::cSearchString     := ""
    ::cPathForFiles     := ""
@@ -309,6 +309,7 @@ METHOD New() CLASS TDebugger
    ::lShowStatics      := .f.
    ::lShowLocals       := .f.
    ::lAll              := .f.
+   ::lSortVars         := .f.
 
 return Self
 
@@ -964,7 +965,7 @@ METHOD LoadVars() CLASS TDebugger // updates monitored variables
    endif
 
    if ::lSortVars
-      ::SortVars()
+      ::Sort()
    endif
 
 return nil